Hola
Tengo el siguiente problema elabore una macro para buscar las facturas que estan en un libro, en otro diferente y una vez que encuentre la factura en el otro libro la seleccione de amarillo, mi problema comienza cuando quiero que el numero de factura varie conforme voy ejecutando la macro pero excel me graba el mismo numero de factura, cuando el numero que necesito en realidad va variando, alguno de ustedes como debo de editar el siguiente codigo para que en vez de que me salga en Find(What:="F/39965") s la factura "F/39965" me salga mejor la posicion en que me encuentro actualmente, por que las facturas que quiero buscar estan en una columna
Les paso el codigo de la macro y en negrillas el numero de factura que quiero que cambie de acuerdo a la celda seleccionada.
Muchas Gracias espero que alguien pueda ayudarme
Saludos.
Sub Macro3()
'
' Macro3 Macro
'
'
Selection.Copy
ActiveWindow.ActivateNext
Cells.Find(What:="F/39965", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Rows("1:1").EntireRow.Select
ActiveCell.Activate
Selection.Interior.ColorIndex = 6
ActiveCell.Select
ActiveWindow.ActivateNext
End Sub
Tengo el siguiente problema elabore una macro para buscar las facturas que estan en un libro, en otro diferente y una vez que encuentre la factura en el otro libro la seleccione de amarillo, mi problema comienza cuando quiero que el numero de factura varie conforme voy ejecutando la macro pero excel me graba el mismo numero de factura, cuando el numero que necesito en realidad va variando, alguno de ustedes como debo de editar el siguiente codigo para que en vez de que me salga en Find(What:="F/39965") s la factura "F/39965" me salga mejor la posicion en que me encuentro actualmente, por que las facturas que quiero buscar estan en una columna
Les paso el codigo de la macro y en negrillas el numero de factura que quiero que cambie de acuerdo a la celda seleccionada.
Muchas Gracias espero que alguien pueda ayudarme
Saludos.
Sub Macro3()
'
' Macro3 Macro
'
'
Selection.Copy
ActiveWindow.ActivateNext
Cells.Find(What:="F/39965", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Rows("1:1").EntireRow.Select
ActiveCell.Activate
Selection.Interior.ColorIndex = 6
ActiveCell.Select
ActiveWindow.ActivateNext
End Sub