Actividad pública reciente
Ha valorado "Buena" la respuesta
Cortar y pegar celdas debajo en columna con macro
Prueba esto : Private Sub CommandButton1_Click() Dim i As Integer Dim f As Integer Dim c As Integer Dim nombre As Variant nombre = InputBox("Indique el valor buscado", "Buscar", 0) If nombre = "" Then Exit Sub On Error GoTo 1 Cells.Find(What:=nombre,...