Porque no me salta a la fila vacia y me reescribe los datos

[alivsesiom]

Hola chicos, soy nuevo en este foro y el primero de todos.
Tengo una duda que no soy capaz de resolver.
En el siguiente código me busca en la columna A:
1) si hay datos duplicados y me indica...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Cambia:

'Obtener la fila disponible
fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1

Por:

'Obtener la fila disponible
fila =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[alivsesiom]

Hola antoni, gracias por tu rapida respuesta.
Ahora si me lo pone en la siguiente linea....peeero no me reconoce si hay duplicados , y me repite valores

 

[alivsesiom]

Realmente, es el siguiente codigo lo que quiero hacer, no se si será por la version del excel pero no me funciona en mi hoja;

Private Sub CommandButton1_Click()

Dim fila As Long
Dim duplicados...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Si no subes el archivo, no hay nada que hacer.

 

[lucasebg]

Tengo el mismo problema, pero veo que la solución busca en toda la hoja la fila que este vacía.
Y si yo quisiera que solo buscara en la columna A, como tendría que modificar la instrucción...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

nFilaVacia = ActiveSheet.Range("A" & Rows.Count).End(xlup).Row+1