Anónimo
Buscar valor de celdas
Hola tavopz
Te molesto por lo siguiente, revisando en la página conseguí este código que realizaste para otro usuario ...
Sub buscahoja()
x = InputBox("Ingrese el nombre de la hoja")
s = ActiveSheet.Name
Application.ScreenUpdating = fase
Sheets(1).Activate
While ActiveSheet.Name <> x
If ActiveSheet.Index = Sheets.Count Then
MsgBox ("No se encontró la hoja " & x)
Sheets(s).Activate
GoTo fin
End If
ActiveSheet.Next.Select
Wend
fin:
Application.ScreenUpdating = True
End Sub
Funciona perfectamente, ahora bien como podría modificarlo para que en vez de buscar una hoja me busque una celda y me lo copie en otra hoja...
Desde ya mil gracias..
Te molesto por lo siguiente, revisando en la página conseguí este código que realizaste para otro usuario ...
Sub buscahoja()
x = InputBox("Ingrese el nombre de la hoja")
s = ActiveSheet.Name
Application.ScreenUpdating = fase
Sheets(1).Activate
While ActiveSheet.Name <> x
If ActiveSheet.Index = Sheets.Count Then
MsgBox ("No se encontró la hoja " & x)
Sheets(s).Activate
GoTo fin
End If
ActiveSheet.Next.Select
Wend
fin:
Application.ScreenUpdating = True
End Sub
Funciona perfectamente, ahora bien como podría modificarlo para que en vez de buscar una hoja me busque una celda y me lo copie en otra hoja...
Desde ya mil gracias..
1 Respuesta
Respuesta de tavopz
1
Se puede aprovechar la herramienta de búsqueda de excel para encontrar la dirección de la celda. Sería algo así:
Sub BuscarDato()
x = InputBox("Ingrese el dato a buscar")
On Error GoTo NoEncontrado
y = Cells.Find(What:=x).Address
Sheets("OtraHoja").Range("A1").Value = Range(y).Value
GoTo fin
NoEncontrado:
MsgBox ("No se encontró el dato " & x)
fin:
End Sub
Sub BuscarDato()
x = InputBox("Ingrese el dato a buscar")
On Error GoTo NoEncontrado
y = Cells.Find(What:=x).Address
Sheets("OtraHoja").Range("A1").Value = Range(y).Value
GoTo fin
NoEncontrado:
MsgBox ("No se encontró el dato " & x)
fin:
End Sub