¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

problemas con obten...
 
Share:
Avisos
Vaciar todo

[Resuelto] problemas con obtener la fila disponible excel  

  RSS
copo1990
(@copo1990)
Nuevo miembro Registered

Buenas! me surge un problemita! al usar 

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

me carga siempre todo en la fila 5.. se les ocurre algo? necesitan algún otro dato? 

Citar
Respondido : 03/07/2020 2:58 pm
MacroMaster
(@macromaster)
Mien¡mbro activo Registered

Hola copo1990,

 

Supongo que lo que quieres es cargar en la variable fila el numero de fila en que tocaría cargar nuevos datos.

Con la función contará que aplicas sobre la columna A, te da 5 porque de las filas 1 a 6, solo tienes datos en 4  celdas (las celdas de las filas 2 y 3, están vacias). Si eso va a ser siempre así, en vez de sumar 1, sumale 3:

fila = Application.WorksheetFunction.CountA(Range("A:A")) + 3

Si los datos van a ir en orden, también puedes buscar la última fila usada con

If Hoja1.Cells(5, 1).Value = "" Then
fila = 5
Else
fila = Hoja1.Cells(4, 1).End(xlDown).Row + 1
End If

 

ResponderCitar
Respondido : 03/07/2020 6:17 pm
RET le gustó
copo1990
(@copo1990)
Nuevo miembro Registered

@macromaster Maestro! gracias!! le estuve dando vueltas y no veía el error!, claramente recién estoy empezando con vba.. y de estos errores voy a tener miles.. Gracias a personas como vos q se toman su tiempo para responder este tipo de cosas!! 

ResponderCitar
Respondido : 03/07/2020 7:10 pm

Dejar una respuesta

Author Name

Author Email

Título *

 
Vista previa 0 revisiones Guardado