Visual Basic para Aplicaciones - urgente: rellenar la primera celda vacia

Life is soft - evento anual de software empresarial
   
Vista:

urgente: rellenar la primera celda vacia

Publicado por Andoni (1 intervención) el 13/02/2008 10:48:48
vamos a ver este es el codigo q tengo escrito de momento:

Sub rellenar_historico()

If (Worksheets("HacerPresupuesto").Range("A11").Value <> "001+(x)") Then
Worksheets("Historico").Range("G5").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D5").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E5").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B5").Value = Worksheets("HacerPresupuesto").Range("E4").Value
If (Worksheets("Historico").Range("B5").Value <> "" And _
Worksheets("Historico").Range("D5").Value <> "" And _
Worksheets("Historico").Range("E5").Value <> "" And _
Worksheets("Historico").Range("G5").Value <> "") Then
Worksheets("Historico").Range("G(last)").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D(last)").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E(last)").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B(last)").Value = Worksheets("HacerPresupuesto").Range("E4").Value
End If
End If
End Sub

eso de (last) se q no esta bien lo puse para aclararme solo, bueno el caso es q la primera vez me los coloque en la fila 5, y a partir de ahi valla colocandolo en las sucesivas filas, la primera parte del codigo hasta el 2º IF me funciona pero me falta lo otro, he oido de hacerlo con un bucle FOR pero nose como hacerlo.... si alguien me pudiese ayudar se lo agradeceria
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:urgente: rellenar la primera celda vacia

Publicado por doplear (22 intervenciones) el 30/04/2008 21:25:57
Para usar un bucle FOR lo que primero tenes que saber es la cantidad de datos que vas a recorrer. Suponiendo que la variable "Cantidad" tenga este valor, el bucle FOR quedaria asi


Sub rellenar_historico()

For I=1 to Cantidad

If (Worksheets("HacerPresupuesto").Range("A11").Value <> "001+(x)") Then
Worksheets("Historico").Range("G5").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D5").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E5").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B5").Value = Worksheets("HacerPresupuesto").Range("E4").Value
If (Worksheets("Historico").Range("B5").Value <> "" And _
Worksheets("Historico").Range("D5").Value <> "" And _
Worksheets("Historico").Range("E5").Value <> "" And _
Worksheets("Historico").Range("G5").Value <> "") Then
Worksheets("Historico").Range("G(last)").Value = Worksheets("HacerPresupuesto").Range("A11").Value
Worksheets("Historico").Range("D(last)").Value = Worksheets("HacerPresupuesto").Range("B11").Value
Worksheets("Historico").Range("E(last)").Value = Worksheets("HacerPresupuesto").Range("E49").Value
Worksheets("Historico").Range("B(last)").Value = Worksheets("HacerPresupuesto").Range("E4").Value
End If
End If

Next i
End Sub

Espero que sea de ayuda, saludos desde argentina
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar