Saltar al contenido

Máximos colaboradores

Popular Content

Showing content with the highest reputation on 04/23/24 in all areas

  1. avanzar una celda hacia abajo apartir de una celda seleccionada

    1 point
    Sub RecorrerRangoC() Set hoja = ActiveSheet Set rango = hoja.Range("C2:C" & hoja.Cells(hoja.Rows.Count, "C").End(xlUp).Row) If rango.Cells.Count = 0 Then MsgBox "No hay datos en la columna C.", vbExclamation Exit Sub End If For Each celda In rango.SpecialCells(xlCellTypeVisible) celda.Select Application.Wait Now + TimeValue("00:00:01") Next celda End Sub Prueba y comenta