Me pueden explicar, por fa!!
Publicado por Luis Estrada (5 intervenciones) el 27/06/2005 22:49:05
Saludos....
Estoy modificando una Macro que hice en Excel. Queria que esa Macro me eliminara las filas vacias de un listado, buscando en Internet encontre este codigo que funciona muy bien, pero trate de entender como funcionaba y no le entiendo.
Por eso solicito de su generosa ayuda y si me pueden explicar.....
Les dejo el codigo:
Dim strC As String, lngFila As Long
With Worksheets("LlamadasTrabajo") 'Nombre de la hoja
For lngFila = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(lngFila)) = 0 Then strC = strC & lngFila & ":" & lngFila & ","
Next lngFila
Application.ScreenUpdating = False
.Range(Left(strC, Len(strC) - 1)).Delete
Application.ScreenUpdating = True
End With
Gracias
Estoy modificando una Macro que hice en Excel. Queria que esa Macro me eliminara las filas vacias de un listado, buscando en Internet encontre este codigo que funciona muy bien, pero trate de entender como funcionaba y no le entiendo.
Por eso solicito de su generosa ayuda y si me pueden explicar.....
Les dejo el codigo:
Dim strC As String, lngFila As Long
With Worksheets("LlamadasTrabajo") 'Nombre de la hoja
For lngFila = 1 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(lngFila)) = 0 Then strC = strC & lngFila & ":" & lngFila & ","
Next lngFila
Application.ScreenUpdating = False
.Range(Left(strC, Len(strC) - 1)).Delete
Application.ScreenUpdating = True
End With
Gracias
Valora esta pregunta
0