Anónimo
Consulta de los datos copiados del filtro...
Buenas Tavop...
Antemano muchas gracias por su colaboración, ya que funciono perfecto la copia de filtrado a una hoja diferente... Ahora mi pregunta es, Esos datos copiados del filtro a una hoja diferente... Como hago para hacer una macros que en una hoja nueva llamada "IINFORME" elabore una consulta de de esos datos que se van registrando en la Hoja "Registro de factura" y me los coloque en la hoja INFORME... Por ejemplo: que dentro de esos datos registrados hayan 5 códigos iguales como: 51236 con sus respectivos datos a su derecha y me los traiga y muestre en la hoja INFORME.
Le agradezco su colaboración a sobremanera... Y que tenga un feliz día y Dios lo bendiga. Le comento que lo coloque como mi Experto Preferido... BYE Hermano
Antemano muchas gracias por su colaboración, ya que funciono perfecto la copia de filtrado a una hoja diferente... Ahora mi pregunta es, Esos datos copiados del filtro a una hoja diferente... Como hago para hacer una macros que en una hoja nueva llamada "IINFORME" elabore una consulta de de esos datos que se van registrando en la Hoja "Registro de factura" y me los coloque en la hoja INFORME... Por ejemplo: que dentro de esos datos registrados hayan 5 códigos iguales como: 51236 con sus respectivos datos a su derecha y me los traiga y muestre en la hoja INFORME.
Le agradezco su colaboración a sobremanera... Y que tenga un feliz día y Dios lo bendiga. Le comento que lo coloque como mi Experto Preferido... BYE Hermano
Respuesta de tavopz
1
Listo... ahí le envíe un correo Adj, con lo que le comentaba...
El libro tiene 3 Hojas: 1. Registro de Factura, 2. Factura, 3.Consulta
Espero hay quedado bien ilustrado para usted... Gracias y espero su colaboración.
Att; Luis
El libro tiene 3 Hojas: 1. Registro de Factura, 2. Factura, 3.Consulta
Espero hay quedado bien ilustrado para usted... Gracias y espero su colaboración.
Att; Luis
No he recibido ningún mensaje.
Revisa y me avisas.
Revisa y me avisas.
Como es su correo completo...
¿Es así?
Le envíe el ejemplo a este mail, tal vez lo escribí mal... me lo podría enviar corregido su mail.
Muchas gracias, Luis
¿Es así?
Le envíe el ejemplo a este mail, tal vez lo escribí mal... me lo podría enviar corregido su mail.
Muchas gracias, Luis
Hola Sr. Tavoz
Sub Buscar_txt()
x = InputBox("Ingrese el texto a buscar")
Set RangeObj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
End Sub
Esa macro usted la diseño.... y la estoy usando, una pregunta Sr. Tavopz, en la linea
If RangeObj Is Nothing Then MsgBox "No encontrado" Else RangeObj.Select
si la Opcion es Nothing: Me gustaria que en vez de mostrar un MsgBox, me llevara a otra Hoja y el Else siga RangeObj.Select normalmente...
Como haria?
Sub Buscar_txt()
x = InputBox("Ingrese el texto a buscar")
Set RangeObj = Cells.Find(What:=x, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If RangeObj Is Nothing Then MsgBox "No Encontrado" Else RangeObj.Select
End Sub
Esa macro usted la diseño.... y la estoy usando, una pregunta Sr. Tavopz, en la linea
If RangeObj Is Nothing Then MsgBox "No encontrado" Else RangeObj.Select
si la Opcion es Nothing: Me gustaria que en vez de mostrar un MsgBox, me llevara a otra Hoja y el Else siga RangeObj.Select normalmente...
Como haria?