Hola de nuevo,
Dando una vuelta al tema, he interpretado que quizá la solución que buscabas era otra. Si lo que buscabas era aflorar el concepto 'folio' partiendo del resto de variables, quizá el archivo adjunto te dé una idea de cómo abordar la solución.
He corregido algunos importes, para confirmar que la asignación recoja los resultados más probables.
Saludos,
Base 05 (C).xlsx
Por
Victor7, · publicado
Aunque ya existe el método de seleccionar todas las hojas y dar el comando control+b, les comparto esta forma..
podemos crear un botón en nuestra hoja de calculo para no entrar hasta el código.
Sub Macro1()
Dim x As String, Hoja As Worksheet, Nombre As String, msg As String
Nombre = InputBox("Introduce el nombre o dato a buscar:")
For Each Hoja In ThisWorkbook.Worksheets
On Error Resume Next
If Nombre <> "" Then
x = Hoja.Cells.Find(What:=Nombre, _
After:=Hoja.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Address
If Err.Number = 0 Then
If msg = "" Then _
msg = "se ha encontrado el texto buscado en:" _
& Chr(13) & Chr(13)
msg = msg & Hoja.Name & "!" & x & Chr(13)
End If
End If
On Error GoTo 0
Next Hoja
If msg <> "" Then MsgBox msg
End Sub
saludos