Macro con Distintas condiciones, solo funciona la primera
Buenas tardes, trato de hacer una macro como la siguiente:
Private Sub CommandButton2_Click()
dato = InputBox("que dato buscamos???")
If dato = 1 Then
Set r = ActiveSheet.Range("a1:a" & Range("a65000").End(xlUp).Row)
Set buscado = r.Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not buscado Is Nothing Then
ubica = buscado.Address
Do
hoja = "hoja" & dato + 1
filalibre = Sheets("Planta1").Range("a65000").End(xlUp).Row + 1
buscado.EntireRow.Copy Destination:=Sheets("Planta1").Cells(filalibre, 1)
filalibre = filalibre + 1
Set buscado = r.FindNext(buscado)
Loop While Not buscado Is Nothing And buscado.Address <> ubica
End If
If dato = 2 Then
Set r = ActiveSheet.Range("a1:a" & Range("a65000").End(xlUp).Row)
Set buscado = r.Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not buscado Is Nothing Then
ubica = buscado.Address
Do
hoja = "hoja" & dato + 1
filalibre = Sheets("Planta2").Range("a65000").End(xlUp).Row + 1
buscado.EntireRow.Copy Destination:=Sheets("Planta2").Cells(filalibre, 1)
filalibre = filalibre + 1
Set buscado = r.FindNext(buscado)
Loop While Not buscado Is Nothing And buscado.Address <> ubica
End If 'dato 2
End If 'if not
End If
End Sub
El problema es que no funciona la segunda condición, y no se como corregirlo.
De antemano Gracias
1 Respuesta
Si los If si los estas cerrando bien... ayudate con el depurador paso a paso (F8).
me marca de amarillo las siguientes lineas que te dejo en cursiva :
Private Sub CommandButton2_Click()
dato = InputBox("que dato buscamos???")
End If 'dato 2
End If 'if not
End If
End If
si borro el End if que se encuentra en negrita, me marca un if, sin end If
alguna sugerencia?
Mandame la macro a [email protected], mi nombbre es Hernán Camilo desde Colombia.
