Si te ha gustado este vídeo puedes ver más en el Curso de Excel avanzado 🔥🔥🔥 cutt.ly/JnHy9yG Sub TraerDatos() 'th-cam.com/users/aprendizdeexcel Application.ScreenUpdating = False Application.DisplayAlerts = False
Espectacular. No sabes de curro que me va ahorrar esta macro. En serio, no lo sabes. En vez de una porra va ser con alumnos si funciona te debo unas cervezas o algo. Muchiiiisimas gracias!!
Genial! Ahorrar trabajo siempre es el objetivo ☺ Subo ahora una tercera parte de esta serie. De esta parte afecta poco, solo meter la carpeta en una celda
Hola, estoy tratando de hacer esto pero con muchos archivos que tienen tablas pero con distintos valores, sin embargo, yo quiero tomar las mismas filas de cada archivo. Por alguna razon me dice que tengo error tipo 9. Como podria mejorarlo?
Hola. Como siempre para mi el mejor: Quiero formular una pregunta sobre voces Windows, si hay alguna manera de que se puedan escuchar las Voces en Español puesto que en el paquete pone Voz Pablo que no se escucha, Predeterminada viene Helena voz robotica,en cambio en paquetes español (Mexico) si se oye la Voz Hombre, habria alguna manera de que se pudieran oir una o ambas Voces Hombre-Mujer en Español ,en EXCEL y WORD (En Castellano) cierto es que no tengo mucho conocimiento en VBA pero espero alguna respuesta para intentar conseguirlo llevo meses y no lo consigo le agradeceria si me pudiese ayudar, un cordial saludo
Si te ha gustado este vídeo puedes ver más en el Curso de Excel avanzado 🔥🔥🔥
cutt.ly/JnHy9yG
Sub TraerDatos()
'th-cam.com/users/aprendizdeexcel
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Carpeta = "C:\Excel\Nueva carpeta" & "\"
Libro = Dir(Carpeta & "*porr*.xl*")
Do While Libro ""
Application.Workbooks.Open Carpeta & Libro, ReadOnly:=True
Sheets("Data").Visible = True
Sheets("Data").Select
Range("A3:JB3").Copy
Workbooks(1).Activate
Sheets("TotalApuestas").Select
Range("B50000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, -1).Value = Mid(Libro, 1, Len(Libro) - 5)
Workbooks(Libro).Close
Libro = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
gracias, creo que me has enseñado a solucionar un problema
Justo es lo que estaba buscando. Excelente trabajo, gracias
Excelente info, super util, gracias por el acceso
Espectacular. No sabes de curro que me va ahorrar esta macro. En serio, no lo sabes. En vez de una porra va ser con alumnos si funciona te debo unas cervezas o algo. Muchiiiisimas gracias!!
Genial!
Ahorrar trabajo siempre es el objetivo ☺
Subo ahora una tercera parte de esta serie. De esta parte afecta poco, solo meter la carpeta en una celda
Muy interesante el ejemplo
Excelente
Gracias!
Excelente ayuda gracias
Es una locura esto. Enhorabuena por el trabajo. Solo hay algo mas grande que el universo y la imaginacion... es el excell
😅
Me ha resultado muy útil. Gracias!
Como siempre, se entiende perfectament el procedimineto.
🥰 Excelente trabajo, podemos aplicar en trabajo tambien. Vamos a ver quien gana en la oficina
Es lo que estaba buscando.. con alguna pequeña modificación..
Genial!
Excelente trabajo, gracias
Gracias!
Excente info Gracias por el acceso a la plantilla
Excelente! Justo es lo que estaba buscando. Quiero esa planilla! Porfavor
Muy buena aportacion!
Buenas noches, me encantarái tener la aplicación. Gracias. Un saludo
Un Trabajo extraordinario. Muhas gracias
Muy buen trabajo!
Me ha gustado, quiero la plantilla.
Muy buena la plantilla.
Me gustaria obtener la plantilla, es exactamente lo que necesito para un trabajo que me han pedido
Hola , genial bien explicado, me podrías dar el acceso , gracias
Buenísima la planilla, me gustaría poder descargarla
🙂👍
GRACIAS ESTA PERFECTO COMO TENGO ACCESO ???
Revisando el correo 😉
Hola buenos días! Me ha parecido muy interesante el vídeo, me gustaría poder descargar la plantilla. Gracias
favor acceso, excelente trabajo
Que buena pinta
Gracias por la explicación!! me gustaría obtener la plantilla
Claro!
🤩Excelente
Excelente trabajo. ¿Podría tener acceso al archivo?
Hola, me gustaria tener acceso al archivo
Gracias
Hola, me gustaria tener acceso al archivo 🙏🏻 excelente trabajo
Hola, estoy tratando de hacer esto pero con muchos archivos que tienen tablas pero con distintos valores, sin embargo, yo quiero tomar las mismas filas de cada archivo. Por alguna razon me dice que tengo error tipo 9. Como podria mejorarlo?
Vista la segunda parte, también me interesa ese archivo con el macro
Manda la solicitud
Y echa un vistazo al tercero
Muchas gracias. Quisiera la plantilla, por favor 🙂
Claro!
Buen día, disculpa, estoy intentando replicarlo, pero necesito extraer información de dos hojas en vez de 1, tendrás alguna idea ???
Hola. Como siempre para mi el mejor: Quiero formular una pregunta sobre voces Windows, si hay alguna manera de que se puedan
escuchar las Voces en Español puesto que en el paquete pone Voz Pablo que no se escucha, Predeterminada viene Helena voz robotica,en cambio en paquetes español (Mexico) si se oye la Voz Hombre, habria alguna manera de que se pudieran oir una o ambas Voces Hombre-Mujer en Español ,en EXCEL y WORD (En Castellano) cierto es que no tengo mucho conocimiento en VBA pero espero alguna respuesta para intentar conseguirlo llevo meses y no lo consigo le agradeceria si me pudiese ayudar, un cordial saludo
quiero la plantilla
Util
Me gusta, ¿como puedo descargarlo?
Me gustaría recibir el programa. Muchas gracias
Lanza la solicitud de nuevo
Acceso a la planilla
Hola.. excelente... quiero el archivo por favor
hola, quiero la plantilla, gracias
Podría descargar la macro?
hola, solicito acceso a su archivo por favor
me deniega el acceso continuamente
HOLA ME GUSTARIA TENER EL ARCHIVO MUY BUEN TRABAJO
Quiero la plantilla por favor, gracias
Claro!
me compartes la plantilla por favor
compartir la planilla por favor
Claro!
QUIERO LA PLANILLA
ACCESO A LA CARPETA
Quiero la plantilla! jeje
Lo he replicado a otra situación, pero no me abre el siguiente archivo...
solventado....
Estupendo!
quiero la plantilla, gracias
Revisa el correo 😉
que rico tener la plantilla para jugar con amigos en este mundial
🙂
Excelente
Gracias!
Excente info Gracias por el acceso a la plantilla
Hola, me gustaria tener acceso al archivo 🙏🏻 excelente trabajo
quiero la plantilla
X2