Contar Filas de una hoja si existen datos
Necesito que una macro recorra una hoja y cuente las cantidad de filas que tiene datos y en un MsgBox indique este cantidad con un mensaje, puede contar los datos que están en una columna en A, pero el rango parte en A2.
Saludos y gracias
1 Respuesta
Enseguida te respondo, mientras visita http://programarexcel.blogspot.com/ podrás descargar ejemplos gratis de macros para excel programadas en VBA, las macros se pueden descargar y adaptar al proyecto que estés realizando para automatizar excel.
Esta macro hace lo que tu quieres
Sub cuentafilas()
Dim canrow As Integer
canrow = 0
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To uf
If Sheets("hoja1").Cells(i, 1) <> Empty Then
canrow = canrow + 1
End If
Next i
MsgBox ("Se contaron " & canrow & " registros"), vbInformation, "INFORME"
End Sub
En www.programarexcel.blogspot.com, se subió un ejemplo de lo que necesitas, puedes descargarlo y adaptarlo a tus necesidades.
Excelente, pero podría enviar un mensaje distinto si son 0 registros?
Si se puede debes poner un if por Ej
If canrow =0 then
Msgbox
Else
Msgbox
End if
Pásame lo que quieres que salga y te lo adapto.
si es 0 " no existen registros en la hoja" eso.
Sub cuentafilas()
Dim canrow As Integer
canrow = 0
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To uf
If Sheets("hoja1").Cells(i, 1) <> Empty Then
canrow = canrow + 1
End If
Next i
If canrow <> 0 then
MsgBox ("Se contaron " & canrow & " registros"), vbInformation, "INFORME"
Else
MsgBox ("No existen registros en la hoja"), vbInformation, "INFORME"
End if
End Sub
Ahí tienes la macro, por favor antes de puntuar pregunta las veces que sea necesario, sobre este tema, para mi es importante que quedes satisfecho con la respuesta.
