farturogs

jerryeagle respondió: Sub Buscar() Dim rng As Range, msg As String Dim fecha As String With Columns("A:A") Set rng = .Find( _ What:=InputBox("Introduce el Número de Tráfico: "), _ After:=.Cells(1), _ LookIn:=xlValues, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _...

leturia respondió: Usa.. Selection.EntireRow.Delete

Elsa Matilde respondió: Solo ajustá la línea siguiente donde le quité las comillas a la referencia: Combobox1.AddItem ActiveCell.value Este bucle se ejecutará mientras la celda activa, empezando por A1, no sea vacía. Verificá también esto. Saludos Elsa *No te pierdas la...