macro excel

02/07/2004 - 21:44 por carlos | Informe spam
Estoy haciendo una macro en excel (Office XP) ... necesito
hacer un bucle en donde analice la celda de la derecha de
la celda activa y si dicha celda está llena, escriba en la
celda activa un texto. Seguidamente que haga lo mismo con
la celda de debajo de la celda activa y así sucesivamente
hasta que la celda de la derecha de la celda activa no
este llena. El rango se situa siempre en la columna B,
pero no siempre en la misma fila, es decir que las filas
pueden ser 10, 20 o 100. Se me ocurrió la siguiente
subrutina, pero me falla al intentar seleccionar la celda
de debajo de la celda activa. Que me sugeris?
Sub AcDaPrueba()

Range("A3").Select

ActiveCell.FormulaR1C1 = "xxxxx"

Range("A4").Select

While ActiveCell.Next > 0

ActiveCell.FormulaR1C1 = "xxxxx"

ActiveCell.TopLeftCell.Select

Wend

Range("A2").Select

End Sub

Gracias por todo. Saludos.
 

Leer las respuestas

#1 JoseLuisArg
02/07/2004 - 23:47 | Informe spam
Sub djkfldjfld()
v = Range("B1").End(xlDown).Row
For i = 1 To v
If (Range("B" & i).Value = "") Then
Exit For
Else
Range("A" & i).Value = "Algo"
End If
Next i
End Sub

José Luis
Guns And Roses


"carlos" escribió en el mensaje
news:256ec01c4606d$06621710$
Estoy haciendo una macro en excel (Office XP) ... necesito
hacer un bucle en donde analice la celda de la derecha de
la celda activa y si dicha celda está llena, escriba en la
celda activa un texto. Seguidamente que haga lo mismo con
la celda de debajo de la celda activa y así sucesivamente
hasta que la celda de la derecha de la celda activa no
este llena. El rango se situa siempre en la columna B,
pero no siempre en la misma fila, es decir que las filas
pueden ser 10, 20 o 100. Se me ocurrió la siguiente
subrutina, pero me falla al intentar seleccionar la celda
de debajo de la celda activa. Que me sugeris?
Sub AcDaPrueba()

Range("A3").Select

ActiveCell.FormulaR1C1 = "xxxxx"

Range("A4").Select

While ActiveCell.Next > 0

ActiveCell.FormulaR1C1 = "xxxxx"

ActiveCell.TopLeftCell.Select

Wend

Range("A2").Select

End Sub

Gracias por todo. Saludos.

Preguntas similares