Cita:
Iniciado por Crashman lo que necesito seria algo asi
que busque la primera celda hacia abajo sin dato
que cuando la encuentre le asigne el numero de celda a la variante "celda" pero que se mantenga en la misma fila digo algo asi
'codigo que desconosco
activecell.value= celda_activa
celda= celda_activa
cells(celda,1).value= "x"
Sigue sin quedarme del todo claro, pero nos vamos aproximando (o eso creo).
Lo que quieres es recorrer una columna (vertical), y que se pare en cuanto encuentre una celda vacía. ¿Es así?. Bueno, si estoy en lo cierto, una vez hecho eso, quieres poner en la celda de la izquierda, un texto, ¿verdad?. En ese caso, el código sería este (aunque se puede hacer de varias formas), ...pero claro, debes situarte en alguna celda de esa columna que deseas chequear:
Código:
'Que no se pare de buscar, hasta que no encuentre una fila vacía
Do While Not IsEmpty(ActiveCell.Offset(0, 0))
ActiveCell.Offset(1, 0).Select
Loop
'ahora que estaremos parados en la celda vacía,
'en la misma fila, y una columna más atrás (a la izquierda),
'ponemos una equis
ActiveCell.Offset(0, -1) = "x"
Creo que era esto lo que buscabas, ¿no?.
Salu2