Realizar buscar en cualquier hoja en formulario (Combobox) + Botón
publicado
Hola! Amigos del foro quisiera solicitarles el apoyo para resolver lo siguiente: Lo que pretendo obtener es en un form mediante la selección de un combobox, buscar el valor en todas las hojas (realizar la búsqueda con el botón) y se devuelva un resultado mediante un msgbox mostrando en cual(es) hoja(s) se encontraron el valor. En el tab FindError del formulario es donde deseo realizar el buscador, algo parecido a la siguiente macro:
Sub buscarEnTodasHojas()
Dim hj As Worksheet
Dim contExiste As Integer
Dim busqueda As Range
Dim res, consulta As String
res = ""
consulta = Sheets("EEE").Cells(7, 4)
contExiste = 0
For Each hj In ThisWorkbook.Worksheets
With hj.UsedRange
Set busqueda = .Cells.Find(what:=consulta)
If Not busqueda Is Nothing Then
If hj.Name <> "EEE" Then
res = res & vbCrLf & hj.Name
contExiste = 1
Set busqueda = .FindNext(busqueda)
End If
End If
End With
Next
If contExiste = 0 Then
MsgBox ("Dato no existe en ninguna hoja")
Else
res = "Dato encontrado en las hojas" & vbCrLf & res
MsgBox res
End If
End Sub
Lo segundo que deseo consultar si es posible aplicar una resta de fecha en textboxs, en el mismo formulario en el tab Date tengo lo siguiente: textbox1 (fechafin) y en Textbox2 ( fecha actual), quisiera saber si es posible con estos datos obtener como resultado en otro TextBox (Resultado [fechafin-fecha actual/365]) .
Hola! Amigos del foro quisiera solicitarles el apoyo para resolver lo siguiente: Lo que pretendo obtener es en un form mediante la selección de un combobox, buscar el valor en todas las hojas (realizar la búsqueda con el botón) y se devuelva un resultado mediante un msgbox mostrando en cual(es) hoja(s) se encontraron el valor. En el tab FindError del formulario es donde deseo realizar el buscador, algo parecido a la siguiente macro:
Sub buscarEnTodasHojas() Dim hj As Worksheet Dim contExiste As Integer Dim busqueda As Range Dim res, consulta As String res = "" consulta = Sheets("EEE").Cells(7, 4) contExiste = 0 For Each hj In ThisWorkbook.Worksheets With hj.UsedRange Set busqueda = .Cells.Find(what:=consulta) If Not busqueda Is Nothing Then If hj.Name <> "EEE" Then res = res & vbCrLf & hj.Name contExiste = 1 Set busqueda = .FindNext(busqueda) End If End If End With Next If contExiste = 0 Then MsgBox ("Dato no existe en ninguna hoja") Else res = "Dato encontrado en las hojas" & vbCrLf & res MsgBox res End If End SubLo segundo que deseo consultar si es posible aplicar una resta de fecha en textboxs, en el mismo formulario en el tab Date tengo lo siguiente: textbox1 (fechafin) y en Textbox2 ( fecha actual), quisiera saber si es posible con estos datos obtener como resultado en otro TextBox (Resultado [fechafin-fecha actual/365]) .
Agradezco cualquier ayuda.
Saludos
JB
Consulta buscar frm.xlsm