invasion7

Luis Mondelo respondió: Esta es la solución: posiciónate en la hoja2 y en la celda A1 y después ejecuta esta macro. Sub busqueda() Do While ActiveCell.Value <> "" valor = ActiveCell.Value Set busca = Sheets("hoja1").UsedRange.Find(valor, LookIn:=xlValues, lookat:=xlWhole)...

calvuch respondió: Yo que tu separaría los datos en columnas pues si en a1 tienes 2(1) para excel eso no es un numero es un texto... Yo separaría en columnas utilizando la utilidad "Texto en columnas" de la pestaña datos en la opción separadores pones ( luego la data...

calvuch respondió: Prueba esto: Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Dim c As String c = Target.Address c = Mid(c, 2, 1) If Target.Address = "$A:$A" Then Exit Sub If c = "A" Then i = Selection.Row - 1 If Target.Address = "$A$" & i Then...