Buscar un ID desde otro workbook y hacer algo?
Publicado por Marco Antonio (3 intervenciones) el 11/12/2022 20:31:58
Tengo el siguiente codigo para buscar la descripcion mediante un ID.
Mi pregunta es en .Find(What:=Range("D1")) con que sustituyo D1 si quiero que busque el ID insertado en una celda sea la misma D1 pero de otro workbook ?
Y en la parte DO que coloco la X en donde lo encuentra dos columnas despues como podria yo restar una cantidad en otra celda de otro woorkbook al valor que se encuentra en la celda que encontro en ves de colocar una X ?
Sub BuscarRapido()
Dim Celda As Range
Dim PrimeraDir As String
Set Celda = Range("A:A").Find(What:=Range("D1").Value, _
After:=Range("A1"), _
LookAt:=xlWhole)
If Not Celda Is Nothing Then
PrimeraDir = Celda.Address
Do
Celda.Offset(0, 2).Value = "X"
Set Celda = Range("A:A").FindNext(Celda)
Loop While (Not Celda Is Nothing) And (Celda.Address <> PrimeraDir)
End If
End Sub
Mi pregunta es en .Find(What:=Range("D1")) con que sustituyo D1 si quiero que busque el ID insertado en una celda sea la misma D1 pero de otro workbook ?
Y en la parte DO que coloco la X en donde lo encuentra dos columnas despues como podria yo restar una cantidad en otra celda de otro woorkbook al valor que se encuentra en la celda que encontro en ves de colocar una X ?
Sub BuscarRapido()
Dim Celda As Range
Dim PrimeraDir As String
Set Celda = Range("A:A").Find(What:=Range("D1").Value, _
After:=Range("A1"), _
LookAt:=xlWhole)
If Not Celda Is Nothing Then
PrimeraDir = Celda.Address
Do
Celda.Offset(0, 2).Value = "X"
Set Celda = Range("A:A").FindNext(Celda)
Loop While (Not Celda Is Nothing) And (Celda.Address <> PrimeraDir)
End If
End Sub
Valora esta pregunta
0
