Hola.. Neceitaria buscar un comentario
Hola .. Que tal .. En principio te agradezco .. Se me solucione el problema o no.
Tu valioso tiempo.
No obstante.. Te comento cual es mi problema.
Tengo una cantidad de comentarios insertados en un libro excel.
Y desarrollé una macro que busca los comentarios ... Y funciona ok.
Pero solo lo busca en la hoja activa y no automáticamente en todo el libro.
te paso el código que utilicé .
Private Sub CommandButton1_Click()
On Error GoTo errando
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlComments, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub
errando:
MsgBox "Nombre inválido para esta hoja intente con otra."
End Sub
El form cuanta con un textbox ( texbox1) y un botón .
En lo que yo estaría necesitando ayuda es que busque los comentarios en todo el libro y no en la hoja activa... Saludos y desde ya muchas gracias .!
PD en textbox1.value va el valor que queremos buscar.!!!!
Gracias !
Tu valioso tiempo.
No obstante.. Te comento cual es mi problema.
Tengo una cantidad de comentarios insertados en un libro excel.
Y desarrollé una macro que busca los comentarios ... Y funciona ok.
Pero solo lo busca en la hoja activa y no automáticamente en todo el libro.
te paso el código que utilicé .
Private Sub CommandButton1_Click()
On Error GoTo errando
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlComments, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub
errando:
MsgBox "Nombre inválido para esta hoja intente con otra."
End Sub
El form cuanta con un textbox ( texbox1) y un botón .
En lo que yo estaría necesitando ayuda es que busque los comentarios en todo el libro y no en la hoja activa... Saludos y desde ya muchas gracias .!
PD en textbox1.value va el valor que queremos buscar.!!!!
Gracias !
1 Respuesta
Respuesta
1
Tomando tu código, fíjate si te sirva algo como
Private Sub CommandButton1_Click()
dim tBuscar as string, w as Worksheet
tBuscar = Textbox1.Value
On Error GoTo errando
for each w in Thisworkbook.WorkSheets
w.Cells.Find(What:=tBuscar, After:=ActiveCell, LookIn:=xlComments, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub
Next w
errando:
MsgBox "Nombre inválido para esta hoja intente con otra."
End Sub
Private Sub CommandButton1_Click()
dim tBuscar as string, w as Worksheet
tBuscar = Textbox1.Value
On Error GoTo errando
for each w in Thisworkbook.WorkSheets
w.Cells.Find(What:=tBuscar, After:=ActiveCell, LookIn:=xlComments, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Exit Sub
Next w
errando:
MsgBox "Nombre inválido para esta hoja intente con otra."
End Sub
Claro.. el tema era por buscar una variable.. que busque por todo el libro..
Pero .. el tema es que no me funciona..
Pero .. el tema es que no me funciona..
Que hace (o que no hace); te recomiendo que le hagas un seguimiento "Paso a Paso" para ver por que no encuentra el dato, también cambiá el FIND por lo siguiente
w.Cells.Find(What:=tBuscar).Activate
w.Cells.Find(What:=tBuscar).Activate
Private Sub CommandButton1_Click()
Dim tBuscar As String
Dim w As Worksheet
tBuscar = TextBox1.Value
On Error GoTo errando
For Each w In ThisWorkbook.Worksheets
w.Cells.Find(What:=tBuscar, LookIn:=xlComments, SearchDirection:=xlNext).Activate
Exit Sub
Next w
errando:
MsgBox "Nombre inválido para esta hoja intente con otra."
End Sub
Este es el código final que coloqué... y sigue sin funcionarme..
No se que sera, le puse step by step o paso a paso y se me colorea
todo de amarillo desde el for each hasta en next w
seguiré investigando a ver que podrá ser.-!
Igual Bárbaro me vino tu ayuda, Saludos .!
Dim tBuscar As String
Dim w As Worksheet
tBuscar = TextBox1.Value
On Error GoTo errando
For Each w In ThisWorkbook.Worksheets
w.Cells.Find(What:=tBuscar, LookIn:=xlComments, SearchDirection:=xlNext).Activate
Exit Sub
Next w
errando:
MsgBox "Nombre inválido para esta hoja intente con otra."
End Sub
Este es el código final que coloqué... y sigue sin funcionarme..
No se que sera, le puse step by step o paso a paso y se me colorea
todo de amarillo desde el for each hasta en next w
seguiré investigando a ver que podrá ser.-!
Igual Bárbaro me vino tu ayuda, Saludos .!
no entiendo, no "sale" con el Exit Sub?