oscarpulga

Luis Mondelo respondió: Te mando mi solución con esta macro: Sub ejemplo() 'por luismondelo Set tabla1 = Application.InputBox("selecciona las celdas de la columna A de la hoja2", Type:=8) Set tabla2 = Application.InputBox("selecciona las celdas de la columna A de la hoja1",...

calvuch respondió: Prueba esto: Sub Cancelar() Sheets("Hoja2").Select Dim t As String Dim r As Range Dim p As Integer Dim j As Long Dim x As Long t = InputBox("INGRESE EL NÚMERO DE ORDEN: ") If Len(t) = 0 Then Exit Sub If...

calvuch respondió: Prueba esto. Sub Buscar() Dim t As String Dim r As Range t = InputBox("Introduce el Número de Tráfico: ") If Len(t) = 0 Then Exit Sub If Application.WorksheetFunction.CountIf(Range("A:A"), t) = 0 Then Exit Sub For Each r In Range("A1" & ":" & "A" &...