Necesito ayuda con macro para buscar en varias hojas

Ralvaradot mira tengo un macro que busca un dato en una hoja pero lo que necesito es que busque el mismo dato pero en las siguientes otras hojas y lo peque en otra así como lo hace este es el macro

Sub prueba()
fila = 4
dato = InputBox("que dato o parte de dato
buscamos??")
If dato = "" Then Exit Sub
Set busca = Sheets("hoja1").Range("b1:b"
&
Sheets("hoja1").Range("b65000").End(xlUp).Row).Find(dato,
LookIn:=xlValues, lookat:=xlPart)
If Not busca Is Nothing Then
ubica = busca.Address
Do
Cells(fila, 2).Value = busca.Value
Cells(fila, 3).Value = busca.Offset(0, 1)
Cells(fila, 4).Value = busca.Offset(0, 2)
Cells(fila, 5).Value = busca.Offset(0, 3)
Cells(fila,6).value = busca.offset(0,4)
Cells (fila,7).value=busca.offset(0,5)
Cells (fila,8).value=busca.offset(0,6)
Cells (fila,9).value=busca.offset(0,7)
Cells (fila,10).value=busca.offset(0,8)
Cells (fila,11).value=busca.offset(0,9)
Cells (fila,12).value=busca.offset(0,10)
Cells (fila,13).value=busca.offset(0,11)
Cells (fila,14).value=busca.offset(0,12)
Cells (fila,15).value=busca.offset(0,13)
Cells (fila,16).value=busca.offset(0,14)
Cells (fila,17).value=busca.offset(0,15)
Cells (fila,18).value=busca.offset(0,16)
Cells (fila,19).value=busca.offset(0,17)
fila = fila + 1
Set busca = Sheets("hoja1").Range("b1:b"
&
Sheets("hoja1").Range("b65000").End(xlUp).Row).FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <>
ubica
End If
End Sub

1 Respuesta

Respuesta
-1

Si le dices hoja. Sheets(0) es hoja1, y si vas incrementando son las demás hojas creadas

Puedes hacer un for hasta hoja.Sheets().Count y vas recorriendo una a una en este for.

y como se lo anexo al macro ??? o como quedaría ??? te agradeceira si pudieras modificarlo y subirlo para que lo ejecute

de antemano mil gracias y me serviría de mucho

saludos Cordiales

for por=0 to hoja.sheets.count -1

Set busca = Sheets(por).Range("b1:b"
&
Sheets(por).Range("b65000").End(xlUp).Row).Find(dato,
LookIn:=xlValues, lookat:=xlPart)

....

next

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas