UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Busca y pega varios datos el 21/02/14, 08:06 pm

rubito1


buenas tardes gente del foro,como estan?
a veces debo seleccionar varios pedidos de un mismo cliente para luego imprimirlos en un mismo remito
hoy estoy seleccionando de a un pedido y lo imprimo pero .... a veces un cliente tiene hasta 8 o 10 pedidos y cada uno con muchos items
adjunto ejemplo de lo dicho;en "datos" es donde toma los datos del pedido(ver formulas)acorde al numero de pedido y luego seleccciono el cliente para que ponga suis datos en la solapa"remito-of"(esto estaria ok,ya que el cliente seria uno solo x vez)(al margen,a su vez la solapa remito tiene un codigo que ejecuta ciertos comandos)espero se entienda mi necesidad y el ekemplo;gracias
Archivos
REMITO para varios clientes2ok.xlsm
No tienes los permisos para descargar los archivos.
(125 KB)

2RESUELTO Re: Busca y pega varios datos el 22/02/14, 12:27 pm

tyno


Hola rubito.
La verdad que no, no esta muy claro que es lo que necesitas. Has explicado como funciona la planilla pero me parece que no explicaste que es lo que habría que hacer. Saludos

3RESUELTO como estas el 22/02/14, 08:26 pm

rubito1


que tal tyno;sabes que creo que con otra cosa que resolvistes pueda sefvirme
el tema es:


10 Re: Búsqueda de datos el 14/02/14, 09:02 pm


y te pues epero no se si te llego,lo siguiente:
me encanto esta macro!!! y me viene barbaro;se me complica un poco para agregarle varias columnas de ddatos ya que a veces no lo pongo bien;podras ampliar este mismo archivo para agregarle varias columnas mas con datos y aclarar lo un poquito??;mil gracias y excelente tu trabajo

4RESUELTO Re: Busca y pega varios datos el 22/02/14, 10:07 pm

tyno


Hola Rubito.
Te paso el archivo que mencionas. Le he modificado el codigo para que tome la cantidad de columnas que tengas (bueno hasta 256 porque esta en Excel 2003).

Private Sub CommandButton1_Click()
On Error Resume Next
sede = InputBox("Introduzca el texto de busqueda")
With Sheets("Hoja2")
.Range("a2:m65536") = ""
i = 1
nxt: rw = Range(Cells(i, 7), Cells(65536, 7)).Find(sede, lookat:=xlWhole).Row
If rw = i Then
.Range("c1") = sede
resultado = Application.CountA(.Range("g2:g65536"))
MsgBox "Resultados de la busqueda: " & resultado, vbOKOnly, "Busqueda Finalizada"
Exit Sub
Else
fl = .Range("a1:a65536").Find("").Row
For a = 1 To Range("iv1").End(xlToLeft).Column
.Cells(fl, a) = Cells(rw, a)
Next a
i = rw
GoTo nxt
End If

End With
End Sub

Para que se tomen una cantidad de columnas que se puede desconcer el numero de las mismas, he utilizado al instrucción End(xlToLeft).Column la cual busca el numero de la primer columna con datos desde la derecha hacia la izquierda, en el ejemplo sería la columna 13 o M.
¿no se si es esta la información que andabas buscando?
proba de ir agregando mas columnas y verás como la macro las toma en cuenta.

Saludos
Archivos
prueba buscar.zip
No tienes los permisos para descargar los archivos.
(20 KB)

5RESUELTO hola tyno el 23/02/14, 01:33 am

rubito1


ante todo,mil gracias x tu velocidad en responder;estuve viendo el archivo y no estoy muy convencido con ese ya que hay otro que vi creo que tambien lo hicistes vos ,el cual me facilita todo porque me "permite elegir los numeros que deseo que copie"te lo adjunto a ver si podes hacer aca lo de ampliar las columnas(te pido mil o mejor aun dos mil disculpas por haberte molestado con el anterior,pero este es en realidad el que me serviria 10 puntos x la posiilidad de seleccion de varios pedidos que era lo queria del comienzo)
gracias y perdon por las molestias
Archivos
PasarDatos_io_130531 ORIGINAL.xlsm
No tienes los permisos para descargar los archivos.
(25 KB)

6RESUELTO Re: Busca y pega varios datos el 23/02/14, 07:16 pm

tyno


Hola Rubito.
¿este tema esta resuelto? ¿es el mismo tipo de tema que el te ha ayudado el Servando?

Saludos

7RESUELTO respuesta el 23/02/14, 09:49 pm

rubito1


que tal tyno;no lo se ,creo que ya debe estar resuelto, pero no puedo ubicarlo de nuevo y no se quien lo hizo para consultarle al respecto,salvo que vos puedas hacerlo(lo de ampliarle las columnas a este archivo que he subido("pasar datos io 130531 ";y este tema no tiene nada que ver con el de servando

8RESUELTO resuelto el 26/02/14, 12:56 pm

rubito1


resuelto

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.