Escribir en siguiente fila con valor diferente a ""

[rubenbb]

Hola a todos

Tengo un problema con un formulario, estoy intentando poner los datos en la siguiente fila de una columna mediante:

Private Sub CommandButton1_Click()

Dim Hoja As String

Hoja = Nombre.Value

Sheets(Hoja).Select

Range("D32").End(xlUp).Offset(1, 0) = Titular.Value

End Sub

Todo lo hace bien, SI LA CELDA ESTA VACIA SIN FORMULAS, es decir, escribe en la siguiente fila hacia abajo....

...Pero yo en los valores de las celdas de esa columna tengo (cambiando el nº de fila obviamente) lo siguiente

=SI(C6="NO";"-";SI(C6="XX";"-";SI(C6="YY";"-";"")))

Con lo que, la celda de cara a 'verla' está vacia pero para el proceso VBA no lo está :-(

Asi es que, como puedo decirle a Excel que del rango D6 al D32, busque y escriba en la siguiente fila aun teniendo una formula en cada celda que de como resultado ""

Espero haberme explicado bien :-)

Gracias

[Armando Montes]

Hola Ruben, esto selecciona la ultima celda con valor, discrimina "":

Sub UltimaCelda1()

Columns("B").Find("*", , xlValues, , xlByRows, xlPrevious).Select

End Sub[/CODE]