9 ай бұрын
Жыл бұрын
4 жыл бұрын
5 жыл бұрын
7 жыл бұрын
7 жыл бұрын
7 жыл бұрын
7 жыл бұрын
8 жыл бұрын
Пікірлер
@carlosviera6586 18 күн бұрын
HOLA TU SAVE QUE CUANDO QUIERO INGREZAR EL (120) O EL (3OO) NO ME DEJA INGRESAR EL NUMERO 0 ¿COMO LO SOLUCIONO?
@Claudio_Rengifo 19 күн бұрын
Excelente, consulta como se haria si el rango es discontinuo, ejemplo hallar el ultimo dato del rango A45:A89
@alejandrorosales1830 Ай бұрын
esta funciona para importar registros superiores a los 2 millones y se puede asignar a varias hojas
@juliomarcelosaavedracortes4205 Ай бұрын
Hola tecien vi tu video Es posible en esta macro enviar una plantilla con los datos de pedido a mi proveedor ¿ como se haria? Gracias
@maihuire11 Ай бұрын
Hola, si es posible, puede ser mediante codigo html o una plantilla previamente creada en word.
@juliomarcelosaavedracortes4205 Ай бұрын
@maihuire11 yo tengo unas plantillas hechas en otra hoja de exel drive donde los datos los pego
@maihuire11 Ай бұрын
@@juliomarcelosaavedracortes4205 Esa plantilla la podrias crear en word y el excel mediante la macro los envia a esa plantilla y luego por correo. el correo quedaría como si tu lo hubieras escrito. Si deseas que te lo haga como servicio me comentas.
@juliomarcelosaavedracortes4205 Ай бұрын
@@maihuire11 ok. Le aviso gracias
@sebastianhernandez-dx7ut 2 ай бұрын
El destination:= siempre me genera error
@maihuire11 22 күн бұрын
Hola que error te sale
@ramoncjose 2 ай бұрын
Aún estás activo aquí.? Podrías brindarme un asesoría.?
@maihuire11 2 ай бұрын
Hola entra a mi fanpage de facebook y contactame x ahi.
@ramoncjose 2 ай бұрын
@@maihuire11 ok, gracias...
@sebastianhernandez-dx7ut 2 ай бұрын
Hola y si quiero que este formulario se vaya ordenando alfabéticamente como sería???
@maihuire11 2 ай бұрын
Si deseas que los datos se ordenen tienes que ordenar los datos de la hoja por la columna que quieras. Ejemplo rango.Sort Key1:=rango, Order1:=xlAscending, Header:=xlNo
@Claudio_Rengifo 2 ай бұрын
Excelente, consulta si quiero copiar del filtrado solo una columna y aun libro ya abierto que se modificaría.
@maihuire11 2 ай бұрын
Hola tendrias que cambiar la fila donde dice .copy, ahi solo selecciona el rango de tu columna por ejemplo si tu columna es la A puedes poner Range("A1:A50").copy Para pasarlo a un libro que ya esta abierto deberias cambiar este codigo Set LibroAbierto = Workbooks("NombreDelLibroAbierto.xlsx")
@waler9 2 ай бұрын
Esta bueno el video pero no me quedo claro lo de la variable vacía que se usa en propiedades expresiones para que lea todos los archivos.
@maihuire11 2 ай бұрын
Hola, la tarea foreach recorre los archivos de una carpeta. Para que puedas tomar la ruta debes almacenarlos en una variable y eso se hace en expresiones.
@richardchataroque1231 2 ай бұрын
Hola Q tal, me sale error aqui Set wsProducto = ThisWorkbook.Worksheets("Producto")
@eduardofarias8971 2 ай бұрын
Hola, como descargo la macro ?
@enriqueruiz320 3 ай бұрын
😮 Wow!!, me ahorraste 266 inserciones manuales de archivos planos, muy buena explicación!! 👍
@maihuire11 3 ай бұрын
Hola, me alegra eso. ;)
@carloscorona8933 3 ай бұрын
Muchas gracias
@carloscorona8933 3 ай бұрын
Excelente tutorial curiosamente la primera opción no me funcionaba, funcionaba pero dejo de hacerlo cuando la convertir en tabla y le puse nombre lo arregle usando la segunda opción y el rango le puse el nombre de la tabla no se si fue la mejor opción pero si funciono, FILA = Hoja21.Range("TABLAINGREDIENTES").End(xlDown).Row + 1 me podrias ayudar en explicarme por que no funciono de la otra forma 'Hoja21.Range("A" & Rows.Count).End(xlUp).Row + 1
@maihuire11 3 ай бұрын
Hola cuando el rango esta como tabla siempre deja una fila vacia para insertar registros, sin embargo el codigo que hace .end(xlUp).row la reconoce como una fila con datos y por ese motivo deja un espacio vacio.
@pauladanielazarateortega4531 3 ай бұрын
Hola!! Este codigo sirve en google sheets??
@maihuire11 3 ай бұрын
@@pauladanielazarateortega4531 Hola, el código es diferente.
@josepsanchezz 3 ай бұрын
excelente video muchas gracias 😇😀😀
@lrivera 3 ай бұрын
Excelente, pero como seria separado por comas o el palito?
@raulperilla 4 ай бұрын
Muy clara y buena tu explicaci{on. Muchas gracias
@nekrosoul 4 ай бұрын
Excelente aporte. Me gustaria saber como seleccionar solo columnas especificas, y tambien que el nombre del archivo creado tenga cieta nomenclatura. Ojala me puedas apoyar.
@Tanawata17 4 ай бұрын
Muy bueno el tutorial!!! Como debiera hacer para obtener el numero de la fila a partir de conocer el texto de la misma?
@Capitan-Gandalf 4 ай бұрын
he seguido los pasos uno a uno y manejo lo de la programación hasta cierto punto sin embargo en este ejercicio de me da un erro y es que si lo cierro en la X arriba del login se abre el archivo sin necesidad de poner contrase;as ni usuario y me muestra todo
@Eldoguiier 4 ай бұрын
brooo, muchas gracias!, pero no me funciono con un excel de mas 100.000 registros
@maihuire11 4 ай бұрын
Hola, que pasó se colgo tu archivo o te sale algun error?
@Eldoguiier 4 ай бұрын
Me salía, error de desbordamiento, pero le cambié el integer a long y corrió perfectamente, muchas gracias!
@sammorgen 4 ай бұрын
MUCHÍSIMAS GRACIAAAAAASSSSSS! ME SALVASTE LA VIDAAAAAAA
@sammorgen 4 ай бұрын
¡Gracias!
@CesSanti 5 ай бұрын
😲 Gracias!
@AndruErazo 5 ай бұрын
exlente video bro, para los que quieran que no aparezcan hojas determinadas puede usar For Each hojas In ThisWorkbook.Sheets If hojas.Name <> "Hoja1" And hojas.Name <> "Hoja2" Then cmbProveedoresPrecio.AddItem hojas.Name End If Next
@oswaldorivas4941 5 ай бұрын
Saludos. El ejercicio está muy bueno. Además su forma de explicarlo está súper bien. Gracias Profesor.
@maihuire11 5 ай бұрын
@@oswaldorivas4941 Hola, que bueno que te haya servidor.
@kitty.luthier 6 ай бұрын
Hola, muchas gracias x toda la data. Como sería para llamar a una hoja específica, desde un botos y no desde una lista desplegable? Gracias
@Capitan-Gandalf 6 ай бұрын
Excelente sabes explicar sabes mostrar el paso a paso hay personas que hacen video pero solo muestran coas ya hechas pero no se entiende nada tu si muestras los paso a paso
@Capitan-Gandalf 6 ай бұрын
Excelnte 5 estrelal spor favor sube mas videos para hacer programas de plantillas tambien hacer accesos directos hacer applicaciones para telefonos o hacer un axcel como intalador de autorun sin que salga la pagina de excel mas que solo lo que has dise;ado y que no se puedan hacer camnbios
@paulina-dz8gn 6 ай бұрын
Explicas super bien, pero solo me funciono una vez, la volvi a ejecutar y no aparece nada de información pero no me sale error. ¿a qué se puede deber?
@ingridmor 6 ай бұрын
Excelente tutorial; justo lo que buscaba . Desde ya te sigo ! saludos
@sheily41 6 ай бұрын
Poder escribir detras de formulario 6:11
@maihuire11 6 ай бұрын
Así es, gracias por tu comentario.
@germandiaz2271 6 ай бұрын
me sale el error 9 en tiempo de ejecución , como puedo solucionarlo?
@iamfredd7261 3 ай бұрын
debes cambiar integer por long
@joelvega249 6 ай бұрын
Muy buen video, cada paso bien explicado…
@JoséLuisEgüezLuján 6 ай бұрын
Como puedo descargarlo Ya que no me sale el datapicker
@jorgemadariaga2947 6 ай бұрын
Gran ayuda con este video, tienes un suscriptor más, un duda, cómo hacer para que dentro del mismo código, el archivo creado se grabe en un tipo de condificación personalizada, ej. UTF8, UTF16, ANSI, etc... Estarémos agaradecidos por este tip, saludos!!!
@juandiegovelez2307 7 ай бұрын
Hola, infinitas gracias por tan maravilloso apoorte, solo que no me deja ver los resultados agrupados por el criterio, no sé qué pueda ser, te agradezco si le echas una revisada a mi código Function DatosUnicos(Rango As Range) As Object Dim celda As Range Set DatosUnicos = New Collection On Error Resume Next For Each celda In Rango.Cells DatosUnicos.Add celda.Value, CStr(celda.Value) Next celda On Error GoTo 0 End Function Sub FiltroMasivo() Dim Lista As Collection Dim item As Variant Dim wsHojaBase As Worksheet Dim uFila As Long Dim RangoDatos As Range Dim uFilaFiltro As Integer Dim wbLibroNuevo As Workbook Dim RutaArchivos As String Application.ScreenUpdating = False Set wsHojaBase = ThisWorkbook.Worksheets("BD") uFila = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row RutaArchivos = ThisWorkbook.Path & "\Excel Ouput\" Set RangoDatos = wsHojaBase.UsedRange Set Lista = DatosUnicos(wsHojaBase.Range("B2:B" & uFila)) For Each item In Lista RangoDatos.AutoFilter Field:=4, Criteria1:=item uFilaFiltro = wsHojaBase.Range("A" & Rows.Count).End(xlUp).Row wsHojaBase.Range("A1:AF" & uFilaFiltro).Copy Set wbLibroNuevo = Workbooks.Add wbLibroNuevo.Worksheets(1).Paste 'wbLibroNuevo.Worksheets(1) = "Datos" wbLibroNuevo.Close SaveChanges:=True, Filename:=RutaArchivos & item & ".xlsx" Next item RangoDatos.AutoFilter MsgBox "Libros de excel generados con éxito", vbInformation, "Filtros" Application.ScreenUpdating = True End Sub
@jota2002 7 ай бұрын
Eres el master, gracias
@santiagomera7009 7 ай бұрын
Tengo bastantes datos y la macro ya no funciona. Cuál podría ser la solución a este problema?
@JoséLuisEgüezLuján 7 ай бұрын
No me sale esa opción en mi Excel
@jhaylercarbajal9587 7 ай бұрын
Muchas gracias me sirvió de mucho tu video
@blacksoul4239 7 ай бұрын
buenos dias, me podrias ayudar para sacar en este casos los meses y dias actuales, transcurridos sin contar el de los años pasados, no se si me dé a entender, saludos
@maihuire11 7 ай бұрын
Hola podrias poner un ejemplo.
@slacex 7 ай бұрын
que pasa si no esta la carpeta de los archivos a combinar dentro de la otra?
@nilthonrodriguezyupanqui6084 7 ай бұрын
Hola utilizo excel 2016 y veo que me sigue apareciendo el login segui los pasos que faltaria
@jordimarchmateu6632 7 ай бұрын
Buenos días. Puedes pasar la macro por aquí?
@kigarkeed 7 ай бұрын
Alguien tiene el codigo?
@WelshArma 8 ай бұрын
Excelente método, muchas gracias por compartir amigo!
@adrianvale4251 8 ай бұрын
Mis planillas poseen mas de una hoja ¿Cómo haría en ese caso?
@vanessagarciagonzalez6521 8 ай бұрын
Hola!! Primero de todo felicitarte por el tutorial, muy bien explicado y muy util. A ver si me puedes ayudar porque me devuelve el error 52 cuando llega a esta parte del código: set tstxtArchivo=fso.createtextfile(rutaarchivo,true). Muchas gracias
@contactoafisca 8 ай бұрын
Muchas gracias. Pero tengo un detalle, yo quisiera que el resultado fuera asi 👇🏼 Primera columna|Segunda Columna|Tercer Columnas Fila 2 A|Fila 2 B|Fila 2 C Fila 3 A|Fila 3 B|Fila 3 C Fila 4 A|Fila 4 B|Fila 4 C Fila 5 A|Fila 5 B|Fila 5 C Fila 6 A|Fila 6 B|Fila 6 C Fila 7 A|Fila 7 B|Fila 7 C Fila 8 A|Fila 8 B|Fila 8 C Fila 9 A|Fila 9 B|Fila 9 C
@contactoafisca 8 ай бұрын
Primera columna|Segunda Columna|Tercer Columnas Fila 2 A|Fila 2 B|Fila 2 C Fila 3 A|Fila 3 B|Fila 3 C Fila 4 A|Fila 4 B|Fila 4 C Fila 5 A|Fila 5 B|Fila 5 C Fila 6 A|Fila 6 B|Fila 6 C Fila 7 A|Fila 7 B|Fila 7 C Fila 8 A|Fila 8 B|Fila 8 C Fila 9 A|Fila 9 B|Fila 9 C
@contactoafisca 8 ай бұрын
Pero me sale así, de forma acumulada. 👇🏼
@contactoafisca 8 ай бұрын
|Primera columna|Segunda Columna|Tercer Columnas |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C|Fila 4 A|Fila 4 B|Fila 4 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C|Fila 4 A|Fila 4 B|Fila 4 C|Fila 5 A|Fila 5 B|Fila 5 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C|Fila 4 A|Fila 4 B|Fila 4 C|Fila 5 A|Fila 5 B|Fila 5 C|Fila 6 A|Fila 6 B|Fila 6 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C|Fila 4 A|Fila 4 B|Fila 4 C|Fila 5 A|Fila 5 B|Fila 5 C|Fila 6 A|Fila 6 B|Fila 6 C|Fila 7 A|Fila 7 B|Fila 7 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C|Fila 4 A|Fila 4 B|Fila 4 C|Fila 5 A|Fila 5 B|Fila 5 C|Fila 6 A|Fila 6 B|Fila 6 C|Fila 7 A|Fila 7 B|Fila 7 C|Fila 8 A|Fila 8 B|Fila 8 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C|Fila 4 A|Fila 4 B|Fila 4 C|Fila 5 A|Fila 5 B|Fila 5 C|Fila 6 A|Fila 6 B|Fila 6 C|Fila 7 A|Fila 7 B|Fila 7 C|Fila 8 A|Fila 8 B|Fila 8 C|Fila 9 A|Fila 9 B|Fila 9 C |Primera columna|Segunda Columna|Tercer Columnas|Fila 2 A|Fila 2 B|Fila 2 C|Fila 3 A|Fila 3 B|Fila 3 C|Fila 4 A|Fila 4 B|Fila 4 C|Fila 5 A|Fila 5 B|Fila 5 C|Fila 6 A|Fila 6 B|Fila 6 C|Fila 7 A|Fila 7 B|Fila 7 C|Fila 8 A|Fila 8 B|Fila 8 C|Fila 9 A|Fila 9 B|Fila 9 C|Fila 10|Fila 10|Fila 10