Excel VBA and Macros - Chapter 27 - Practice: Grouping tables of several sheets into one @EXCELeINFO

  Рет қаралды 38,182

Sergio Alejandro Campos - EXCELeINFO

Sergio Alejandro Campos - EXCELeINFO

Күн бұрын

Пікірлер: 133
@mpaliza
@mpaliza 4 жыл бұрын
Buenísimo Sergio! Yo le hice un cambio, porque le agregué un par de hojas antes de hacer la macro. Mi libro tiene las 5 hojas que ya tenía el que bajé más dos que le agregué yo (se llaman "Teoría" y "Ejercicio") y luego la que se agrega al comenzar la macro. Entonces, lo que hice, que funcionó, fue cambiar el If: en lugar de pedirle a la macro que ejecute la acción si el nombre se la hoja es distinto de "Excel e Info", le pedí que ejecute la acción si el nombre de la hoja es igual a "Sucursal (i-1), me quedó de esta manera: If Sheets(i).Name = "Sucursal " & i - 1 Then
@carlosmolinaflores8082
@carlosmolinaflores8082 2 жыл бұрын
Espectacular la explicación y el video, se agradece!!
@CarlosFranciscoCastroRumiche
@CarlosFranciscoCastroRumiche 7 ай бұрын
Excelente, bastante útil, gracias por la paciencia en la explicación.
@salvadorsena7057
@salvadorsena7057 Жыл бұрын
Hola Sergio, Felicidades por el curso y mi mayor agradecimiento por compartir tu saber con nosotros. Como aporte, he condensado dos lineas en una dentro del for next For i = 2 To Cuenta If Sheets(i).Name "EXCELeINFO" Then Sheets(i).Activate Sheets(i).Range("A2").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Sheets(1).Activate ActiveSheet.Paste 'Selection.End(xlDown).Select 'Selection.Offset(1, 0).Select Selection.End(xlDown).Offset(1, 0).Select Else 'Nada End If Next i Un saludo desde España.
@DiegoLopez-jl4xg
@DiegoLopez-jl4xg 4 жыл бұрын
MASTER BLASTER de la explicación programada!!!!!
@salvadortorres801
@salvadortorres801 3 жыл бұрын
Mis respetos Sergio, excelente tutor.
@vicentetodaro7242
@vicentetodaro7242 Жыл бұрын
Excelente Tus explicaciones haste ahora, felicitaciones sergio
@rrrraaaacccc80
@rrrraaaacccc80 3 жыл бұрын
Excelente ir linea por linea es muy esclarecedor. Felicitaciones 👍. El mejor curso de macros que vi en español por mucho.
@eduardomunoz2764
@eduardomunoz2764 5 жыл бұрын
Buenas noches a todos. Saludos Sergio
@jvillegas4624
@jvillegas4624 8 ай бұрын
Espectacular MACRO..
@osvaldocortinacruz9671
@osvaldocortinacruz9671 3 жыл бұрын
Excelente video.Gracias por compartir tus conocimientos, son de muicha ayuda en mi trabajo.
@JuanSuarez-yy2pc
@JuanSuarez-yy2pc 5 жыл бұрын
Te agradezco la forma en que estás ejemplificando el trabajo en Excel con macros, excelente explicación....
@JuanSuarez-yy2pc
@JuanSuarez-yy2pc 5 жыл бұрын
Es un buen ejemplo de concentración de información, gracias por compartir tus conocimientos, excelente
@SergioAlejandroCampos
@SergioAlejandroCampos 5 жыл бұрын
Saludos Juan.
@carlosrescalonaz3424
@carlosrescalonaz3424 5 жыл бұрын
Gracias por tus aportes y enseñanzas para todos nosotros.
@walterjesusgonzalesbardale391
@walterjesusgonzalesbardale391 4 жыл бұрын
gracias aprendo mucho con tus videos
@SergioAlejandroCampos
@SergioAlejandroCampos 4 жыл бұрын
Saludos Walter.
@alexeiofp
@alexeiofp 4 жыл бұрын
Gracias Maestro, saludos desde Santiago de Chile.
@reynaldocarmona4685
@reynaldocarmona4685 3 жыл бұрын
excelente practica se aplican funciones de los videos vistos , aplique la funcion CURRENTREGION ya vista , pero me di cuenta que toma tambien lso encabezados
@samuelfranciscogarcia1440
@samuelfranciscogarcia1440 3 жыл бұрын
Cuando veo tus vídeos me ciento menos ignorante y GRACIAS a ti yo he aprendido MUCHO 🕵🤖👽🚀🎁
@foxplayfoxplay5324
@foxplayfoxplay5324 4 жыл бұрын
Excelente Sergio.... Exactamente lo necesitaba. Gracias
@marubiruseru7031
@marubiruseru7031 5 жыл бұрын
Excelente aporte Sergio. Se te agradece profundamente este conocimiento ya que pocos canales lo hacen con el detalle que tú lo haces.
@carlo21ification
@carlo21ification 4 жыл бұрын
Gracias Sergio, eres un maestro en macros, la manera de explicar y la logica es muy buena. Un abrazo desde Perú
@antioquia112
@antioquia112 3 жыл бұрын
Buenas tardes, ante todo gracias por la formación en esta materia. Una recomendación con respecto a este video sería cambiar el titulo pues no se agrupan tablas sino celdas dentro de un rango definido en una hoja de excel. El codigo si se agruparan tablas de distintas hojas en una sola, creo que sería muy distinto. Gracias de nuevo por todo. Saludos desde España.
@manuelroa654
@manuelroa654 3 жыл бұрын
¡MARAVILLOSO!
@sergiozazueta7395
@sergiozazueta7395 5 жыл бұрын
Excelente Video Tocayo, francamente siempre estoy atento esperando los nuevos videos, muchísimas gracias por compartir
@josed.lopezs.9415
@josed.lopezs.9415 3 жыл бұрын
GRACIAS, GRAN MATERIAL. SALUDOS.
@SergioAlejandroCampos
@SergioAlejandroCampos 3 жыл бұрын
Gracias a ti.
@carlosbellido1388
@carlosbellido1388 3 жыл бұрын
Gracias por el aporte, ajuste la macro para un reporte existente y en vez de añadir hoja, lo asigne a una hoja existente. Gracias y ya cuentas con un suscriptor.
@Omar-xs3nf
@Omar-xs3nf 2 жыл бұрын
Hay una observación: La variable "MsgContinuar" debería ser declarada como Byte/Integer/Variant/Long o cualquiera que permita capturar el valor numérico que arroja los botones yes/no del cuadro de dialogo, para que funcionen . No del tipo "Boolean" (De ser así, siempre va a correr el resto de la macro, independientemente de la respuesta).
@SergioAlejandroCampos
@SergioAlejandroCampos 2 жыл бұрын
Tienes razón, debe ser byte.
@angelvarela6446
@angelvarela6446 Жыл бұрын
Entonces tendría que ser " Dim MsgContinuar As Byte "? Muchas gracias!
@albertopenalver1435
@albertopenalver1435 5 жыл бұрын
Excelente práctica Sergio. De vdd q aprendemos mucho de esta forma, me gustó mucho el tip de la propiedad range con selection muy, pero muy útil. Gracias por compartirlo.
@maticunia1982
@maticunia1982 5 жыл бұрын
Gracias por el tiempo empleado en enseñar 👍👌
@josueferrey7043
@josueferrey7043 5 жыл бұрын
Excelente trabajo realmente admiro tu trabajo Sergio, se ve cuanto has dedicado al manejo de Macros en Excel. Dios te siga llenando de sabiduria. Saludos.
@principe1029
@principe1029 11 ай бұрын
MUY buenos videos
@marcopalpancastro6655
@marcopalpancastro6655 2 жыл бұрын
muy bueno, gracias.
@miguelmelian6833
@miguelmelian6833 2 жыл бұрын
Gracias por el video, muy util la información 💪
@hectorsanchez9225
@hectorsanchez9225 5 жыл бұрын
Excelente!!!! me sirve para unir muchas hojas en mi trabajo, mil Gracias!!!!!
@carmenrosape
@carmenrosape 5 жыл бұрын
Gracias por compartir tus conocimientos
@carmenflores1113
@carmenflores1113 4 жыл бұрын
Buen vídeo profesor, muchas gracias¡¡¡
@SergioAlejandroCampos
@SergioAlejandroCampos 4 жыл бұрын
A ti
@miguelneira
@miguelneira 5 жыл бұрын
hola, muy buen video. necesitaba esa información de como hacerlo. gracias desde chile
@joseantoniosanchezlopez7215
@joseantoniosanchezlopez7215 5 жыл бұрын
Buen trabajo Sergio, Me gusta como esta estructurada la macro. Como comenta un compañero se podría acortar un poco las macros, pero creo que inicialmente lo tenemos que ver como nos lo explicas tu tan pacientemente, por que en alguna ocasión vamos a omitir el paso cuando no se deba y nos vamos a volver locos has descubrir que pasa. A mi me paso estos días con un simple If. lo dejé reposar un día volví y me di cuenta que pasaba. Yo también me he preguntado alguna vez porque inicialmente siempre se usa la letra i como variable, supongo que será casual. Quedo a la espera del próximo capitulo. Sergio, gracias por tu tiempo Saludos desde España.
@oscarsantos9251
@oscarsantos9251 5 жыл бұрын
es de lo mejor 100% sal2 y pulgar arriba.
@alfonsolopez1119
@alfonsolopez1119 3 жыл бұрын
Muy buen video. Le quité la parte de no copiar hoja diferente porque todas en mi archivo eran iguales. Si están activados los autofiltros de alguna hoja se detiene. Por eso antes de ejecutarla hay que verificar que ninguna hoja tenga puesto el autofiltro. ¡¡Muchas Gracias!!
@RIGSAN45
@RIGSAN45 5 жыл бұрын
He detectado que si la hoja, que no queremos inportar, esta la primera, Index(1), al crear la nueva pasa a indice 2 y la toma como referencia para importar las cabeceras. Creo que te sera facil modificar codigo para que sea casi perfecta. Todo se puede mejorar. Un abrazo y gracias por tu buen trabajo.
@julioenriquebarrenecheamon607
@julioenriquebarrenecheamon607 4 жыл бұрын
excelente explicación
@Julio_82
@Julio_82 7 ай бұрын
Muy buen video para que muchos se den cuenta del paso a paso que hace una macro pero llevado a la practica eso es demasiado codigo y recorrido. Todo se puede hacer sin activar hojas o rangos. Es mas ni siquiera uno se daria cuenta que se realizo todo hasta el final cuando revises la hoja
@fredericjavier
@fredericjavier 5 жыл бұрын
Excelente Sergio, muchas gracias por compartir
@conradohernanvillagil2764
@conradohernanvillagil2764 5 жыл бұрын
Gracias Sergio.
@edicionexpress8559
@edicionexpress8559 3 жыл бұрын
Woooowww 👏👏👏👏👏👏👏👏
@SergioAlejandroCampos
@SergioAlejandroCampos 3 жыл бұрын
Gracias!
@RICARDOHERNANDEZ-fp9wu
@RICARDOHERNANDEZ-fp9wu 4 жыл бұрын
Hola Segio, Nuevamente buen material, nanda mas tengo duda en esta linea
@linoquintana6663
@linoquintana6663 5 жыл бұрын
Como siempre excelente, pero tal vez un poco mas dificil se agardeceria. Por ejemplo codigo para ignorar dos hojas, no solo "exceleinfo" y otra cuestion, hacer la macro con diferentes rangos. De cualquier forma muchísimas gracias maestro por compartir.
@miguelulloa8275
@miguelulloa8275 11 ай бұрын
siquieres que ignore otra hoja, creo que podria ser agregando al final del If, un And, y pondrias denuevo el codigo del if, cambiando el nombre de Excelinfo por el otro nombre
@nataliaandres6034
@nataliaandres6034 4 жыл бұрын
Hola! Ante todo muchas gracias por la dedicación que tienes! Quisiera saber si algún vídeo para aprender a unificar muchos archivos de Excel en una sola hoja. Gracias!
@jeanvaljean6468
@jeanvaljean6468 Жыл бұрын
🥰🥰🤩🤩🌹🌹💋💋😍😍😘😘
@SergioAlejandroCampos
@SergioAlejandroCampos Жыл бұрын
Sí, tengo un video usando Power Query.
@raulhumbertomoravillamizar3827
@raulhumbertomoravillamizar3827 4 жыл бұрын
Saludos Sergio y a todos los compañeros que siguen este excelente curso. Veo que en esta práctica has declarado la variable "j" en la primera rutina. Asumo que pensabas utilizarla en esa misma primera macro. Mi pregunta es, si ya la habías declarado en esa primera rutina, es necesario volver a declararla en la segunda Macro llamada "ActivarA2"?. Gracias de antemano y adelante con tus cursos, no solo en VBA sino en prácticas de avanzadas de la hoja de cálculo.
@miguelulloa8275
@miguelulloa8275 11 ай бұрын
Me parece que la declaro en la primera macro por las puras, porque al final la termino usando en la segunda macro, creo que podria haber hecho un public con el j y en la segunda macro ya no deberia haberla definido, espero no equivocarme
@franklinccoylloccanto7317
@franklinccoylloccanto7317 4 жыл бұрын
Muchas gracias por el video, Esta muy bien explicado y se ve super útil. Me gustaria saber algo, si tuviera dos tablas en cada hoja donde solo una tabla está fija y la otra no ,ya que depende del tamaño de la primera, como podria hacer la selección de la segunda ya que su posición es variable ? ahí se me complica al ejecutar los códigos
@baironvelasquez6660
@baironvelasquez6660 2 жыл бұрын
muy buen video!! quisiera saber si tienes un video donde se pueda hacer lo mismo pero con libros diferentes muchas gracias
@rodrigocorrales5049
@rodrigocorrales5049 9 ай бұрын
Hola Sergio. Gracias por tus excelentes videos.¿ Tienes algún video en el que se aplique un ejemplo similar, pero en el que los nombres de las hojas sean todos diferentes y queramos excluir algunas (O solo incluir algunas)?. Te agradecería mucho tu respuesta. Saludos desde Colombia.
@harlesp.7461
@harlesp.7461 3 жыл бұрын
Que explicacion tan excelente !!!!! Sergio cual es el libro recomendado para aprender macros avanzado, o alquien de los que opinan en el canal me pueda decir. gracias
@SergioAlejandroCampos
@SergioAlejandroCampos 3 жыл бұрын
Qué tal Harles. Este Power Programming with VBA
@felipevaldiviacortes4451
@felipevaldiviacortes4451 4 жыл бұрын
Como apunte, además de la variable j que no se usa en la primera macro, la variable "MsgContinuar" debe definirse como tipo "byte" para que pueda comparse su valor, de lo contrario sin importar lo que elijan siempre continuara la macro
@MedinaZyzz
@MedinaZyzz 4 жыл бұрын
@Felipe Valvidia Cortes Gracias por el tip, te importaría explicarme por qué? Saludos
@felipevaldiviacortes4451
@felipevaldiviacortes4451 4 жыл бұрын
@@MedinaZyzz Aún estoy aprendiendo a diferencia de sergio, así que quizás no te satisfaga mi respuesta, pero básicamente necesitamos que esa variable tome valores numéricos que son los que consigue al apretar el usuario una opción en la ventana (como 1 por ejemplo), esto se satisface con declarándola como byte que es para números enteros "pequeños", contrario a como estaba definido en el video, saludos
@MedinaZyzz
@MedinaZyzz 4 жыл бұрын
@@felipevaldiviacortes4451 pensé que era por el tema 1 y 0, o sea el SI representaba "1" y NO "0". Gracias por la respuesta!
@postventatewis9968
@postventatewis9968 2 жыл бұрын
Gracias por la explicación, como harías el bucle si solo quieres las hojas de la serie 1,,4, 7, etc. Gracias
@cathipathi
@cathipathi 4 жыл бұрын
Hola Sergio, gracias por tus videos, se puede usar Cuenta en ambas macros y definirla como una especie de variable general??
@SergioAlejandroCampos
@SergioAlejandroCampos 4 жыл бұрын
Claro. En un módulo escribe en la parte superior Public tuvariable
@juansabasgonzalezmesa7709
@juansabasgonzalezmesa7709 4 жыл бұрын
Hola Sergio . Ante todo gracias por compartir tu sabiduría con nosotros y por lo bien que lo expica... Me gustaría saber por qué , sea si o no, siempre se ejecuta la maro compleleta: Dim MsgContinuar As Boolean MsgContinuar = MsgBox("Se agruparán las tablas de igual estructura." + _ vbNewLine + vbNewLine + "Desea continuar?", vbYesNo + vbQuestion, "EXCELeINFO") If MsgContinuar = vbNo Then Exit Sub No sale de la macro, gracias!
@RICARDOHERNANDEZ-fp9wu
@RICARDOHERNANDEZ-fp9wu 4 жыл бұрын
Hola Sergio, nuevamente buen material, nada mas tengo una duda, en esta linea
@vicentetodaro7242
@vicentetodaro7242 Жыл бұрын
Sergio no seria mejor utilzar el metodo de seleccion de rangos que usaste Al final del video Cap 10 y se utilizaria me is codigo en la macro, current region y luego quitar la filament de tus encabezados . ?
@SergioAlejandroCampos
@SergioAlejandroCampos Жыл бұрын
Es buena opción.
@armandobrito5022
@armandobrito5022 5 жыл бұрын
Excelente macro que permite consolidar. Tengo una duda la instruccion sheets(1).activate es igual a sheets(1).select o cual sería diferencia??
@jjairr1975
@jjairr1975 4 жыл бұрын
Buenas tardes Sergio excelente tutorial solo tengo una duda con el IF para continuar al dar que no igual se sigue ejecutando la macro de nuevo le agradezco su tiempo y dedicación.
@maru7189
@maru7189 3 жыл бұрын
Excelente el curso, Necesito una macro que me agregue columnas intercaladas en una matriz, como ser tengo una matriz de 5x5 necesito que me inserte 5 columnas pero intercaladas... ABCDE llenas deberia quedar A-llena b-vacia c-llena d-vacia Les agradeceria mucho igualmente sigo con este curso...
@PANCHIKUS
@PANCHIKUS 5 жыл бұрын
Excelente Video.. Quisiera ver si esto mismo al agrupar las hojas se puede , pero sumando el contenido de cada hoja. Tienes alguna macros que me indiques como hacerlo..por favor saludos
@Ferry2099
@Ferry2099 4 жыл бұрын
Gracias por el video. ¿La instrucción de estar copiando el rango de datos en cada hoja también se puede hacer con "currentregion"?, Gracias por tu respuesta.
@marlenenavarro2017
@marlenenavarro2017 3 жыл бұрын
El problema con currentregion es que tomará en cuenta los encabezados. Entonces se copiarán y pegarán 3 filas de encabezados las cuáles no queremos.
@SergioAlejandroCampos
@SergioAlejandroCampos 3 жыл бұрын
Solución?
@marlenenavarro2017
@marlenenavarro2017 3 жыл бұрын
@@SergioAlejandroCampos Una solución fue la del vídeo, a partir de la celda A2 seleccionar todo a la derecha y posteriormente todo hacia abajo. Otra solución utilizando CurrentRegion es con el método Resize. Por poner un ejemplo: Sub SeleccionarSinEncabezados() Dim Área As Range Set Área = Application.ActiveSheet._ Range("A2"). CurrentRegion Área.Offset(1, 0).Resize(Área.Rows._ Count - 1, Área.Columns.Count).Select End Sub Si tuviera algún error le agradecería que me lo hiciera saber, ya que sólo lo escribí aquí y no me tomé el tiempo de compilarlo en el editor de VBA.
@marlenenavarro2017
@marlenenavarro2017 3 жыл бұрын
Entonces maestro@@SergioAlejandroCampos ¿Qué opina? ¿Es válida mi solución?
@SergioAlejandroCampos
@SergioAlejandroCampos 3 жыл бұрын
@@marlenenavarro2017 Claro! Es válida. Con resize podemos redimensionar un rango y es muy útil cuando tenemos el caso de los encabezados. Gracias Marlene.
@patriciosarmientoreinoso7524
@patriciosarmientoreinoso7524 2 жыл бұрын
Hola Sergio, muy buen video. lo que quería consultarte es: si es posible buscar determinados datos de una tabla, por ejemplo dados en las filas de la primera columna, y colocarlos en otra tabla, dados en los encabezados de esta segunda tabla?. Es como un BUSCARV, pero con tablas dinámicas y macros. Gracias
@miguelulloa8275
@miguelulloa8275 11 ай бұрын
podria ser con un for each filas in rangofilas, tendrias que definir las filas y un rangofilas, dentro de ese for each tendrias que meterle una instruccion if, que cumpla una condicion que tu quieres y asi se copie y se pegue, espero no equivocarme
@carolidiaft
@carolidiaft 3 жыл бұрын
Wow excelente! Tengo una duda, cuando los datos de varias tablas en distintas hojas del mismo libro están con fórmulas, como lo hago para que la macro me copie y pegue los datos como "valores"? Ya que al hacerlo como lo tienes tu, me sale error.
@SergioAlejandroCampos
@SergioAlejandroCampos 3 жыл бұрын
Aún replicando el código te marca error?
@jaumefp
@jaumefp 5 жыл бұрын
Muy bien explicado. A mi me cuesta entender el proceso del porqué hay que crear variables y cuantas variables hay que crear para cada proceso. El tipo de variables que se aplican, si lo entiendo. Gracias!
@R9.ANTONIO
@R9.ANTONIO 7 ай бұрын
Excelente, pero como podría elegir solo algunas hojas que deseo agrupar sin que se tenga que elegir todas las hojas.
@fernandonebreda3005
@fernandonebreda3005 2 жыл бұрын
Hola Sergio, estoy intentando hacer esta práctica y, cuando le digo No, me sigue ejecutando la macro. He copiado y pegado tu código de la web y al ejecutarla me devuelve también errores. No sé si podrás echarme una mano. Gracias
@harlesp.7461
@harlesp.7461 3 жыл бұрын
A que se debe, que sergio se preocupo por utilizar una funcion para seleccionar celdas A2 ??
@rafaelvelasco2734
@rafaelvelasco2734 5 жыл бұрын
Hola Sergio, excelente de antemano, tengo una duda porque si declarastes MsgContinuar como Boolean usastes este condicional If MsgContinuar = VbNO Then Exit Sub debería haber sido declarada como Byte
@cristopherahumada3674
@cristopherahumada3674 5 жыл бұрын
El dato boolean que asigno te debe devolver verdadero o falso, en cambio el valor de la biblioteca de vb en respuesta te lo trae como número por eso. Saludos desde Chile
@marceloferraro1110
@marceloferraro1110 5 жыл бұрын
Sin dudas que la variable tiene que ser numérica sino el código no funciona.....debe haber sido un lapsus de SERGIO. Ya que en el capítulo 20 del curso VBA, nos explicó claramente que la pulsación de un botón de MSGBOX nos devuelve un número del 1 al 7 según que botón se pulse.
@Edfepemo
@Edfepemo 4 жыл бұрын
Sergio gracias. Sin embargo, tengo una pregunta, al momento de hacer las selecciones con xlToRoght y xlDown puedo usar CurrentRegion? Gracias
@erickwilliamlapasarmiento2421
@erickwilliamlapasarmiento2421 4 жыл бұрын
si amigo , yo creo que si
@franklinccoylloccanto7317
@franklinccoylloccanto7317 4 жыл бұрын
Si usaras el CurrentRegion no estarías seleccionando toda la tabla en general incluyendo los titulos?, eso era lo que se queria evitar. Mas interesate me parece saber que hacer si la tabla se ubicara en diferentes posiciones de la hoja excel.
@ZeratulX
@ZeratulX 4 жыл бұрын
No, porque al poner currentregion tambien incluiría la seleccion de los encabezados, y solo se quiere seleccionar los datos.
@joseenriquecuevagomez5751
@joseenriquecuevagomez5751 4 жыл бұрын
Si podrías con currentregion, lo de los encabezados para que no se tomen se solucionaría con un offset y luego un resize.
@tenasas10
@tenasas10 4 жыл бұрын
También se puede seleccionar el rango con currentregion y un offset??
@luisrenteria9443
@luisrenteria9443 4 жыл бұрын
tuve la misma inquietud
@agusm.1410
@agusm.1410 3 жыл бұрын
@@luisrenteria9443 No se puede, currentregion recogería todos los valores, es decir de A1 a G14 ,y solo quiere coger los encabezados, es decir de A1 a G1
@jorgerizo350
@jorgerizo350 4 жыл бұрын
Sergio, Buenas Noches! Gracias por darte este tiempo para compartir tu conocimiento. Estoy realizando este ejercicio para unir varias pestañas de un mismo seleccionando pestañas especificas, dentro de estas pestañas tengo algunas formulas para traer datos de otras bases, estoy intentando concentrar toda la información y pegarla en la nueva pestaña como "valores", estoy atorado en parte de la instrucción ´ActiveSheet.Paste, por que la cambie por .PasteSpecial Paste:=xlPasteAll o .PasteSpecial xlPasteValues y en ambas me marca error, me podrias ayudar por favor con tus comentarios
@miguelulloa8275
@miguelulloa8275 11 ай бұрын
creo que tu pegado tendria que ser con un xlPasteFormulas
@josemiguelvelizchong5698
@josemiguelvelizchong5698 4 жыл бұрын
Y si quisiera que fuese al reves? Es decir, agrupar tablas de una hoja, en varias hojas automáticamente? Tengo aprox 400 tablas, una debajo de otra, en una sola hoja y quisiera extraerlas en hojas independientes, por cada tabla. Las tablas tienen 68 filas cada una y todas son diferentes, con igual formato. Gracias Sergio si es que pudiese ayudarme
@brendafalcon4467
@brendafalcon4467 3 жыл бұрын
Como puedo agregar en nombre de la hoja del cual se pegaron los datos??
@mauricioandresgallegogalvi9776
@mauricioandresgallegogalvi9776 2 жыл бұрын
Muy buen video. Me salió un error y no se si es por mi cuenta de Excel (Se ha producido el error '424' en tiempo de ejecución: Se requiere un objeto) Si me puedes ayudar estaré muy agradecido. Saludos.
@juanfernandogf4395
@juanfernandogf4395 5 жыл бұрын
Sergio, espero te encuentres muy bien. Gracias por tan valioso aporte. Por favor podrías revisar el procedimiento a la hora de escoger "NO" para el "MsgContinuar", encuentro que no se sale del procedimiento y he revisado el código y no logro detectar el error.
@marceloferraro1110
@marceloferraro1110 5 жыл бұрын
Es cierto, al parecer nuestro amigo SERGIO tuvo un lapsus al codificar el NO del MSGBOX. Cambia la definición de la variable MSGCONTINUAR a BYTE y en el la condición del IF igualalo a 7 y solucionado el problema. Esto último es lo que nos enseñó SERGIO en su capitulo 20 cuando detalló el uso del cuadro de mensajes MSGBOX. Luego no lo respetó en esta última práctica de programación. Un abrazo y suerte!!!
@ZeratulX
@ZeratulX 4 жыл бұрын
Lo que sucede es que Msgcontinuar lo declaró como Boolean, y por ello solo admitiría valores de verdadero o falso, es por ello que si ponemos VbNo lanza un error. Cambia el tipo de dato de Msgcontinuar por String o Byte y asunto solucionado.
@oscarmonroynajera7686
@oscarmonroynajera7686 4 жыл бұрын
Es correcto esto que dice @@marceloferraro1110 muchas gracias por compartir : D
@carlosplasencia1694
@carlosplasencia1694 4 жыл бұрын
Era namas para ver si estaban en la jugadaaa 😏, alguien mas se dio cuenta al usarlo de ejemplo en su propia macro? 🤚🏽😅
@vacosauriomandaloriano
@vacosauriomandaloriano 5 жыл бұрын
La variable j de la primer macro se puso de más o, para que se iba a usar?
@oscarmonroynajera7686
@oscarmonroynajera7686 4 жыл бұрын
para recorrer las hojas y posicionarse en el rango "A2"
@dafodils7153
@dafodils7153 Жыл бұрын
En la segunda macro (ActivarA2), no declaró la variable "contar" y escribe directo; For j = 1 To Sheet.Count, y aun asi funciona.
@RIGSAN45
@RIGSAN45 5 жыл бұрын
Otro pequeño apunte: Seria util que al principio se nos pidiera el nombre de la hoja que no queremos importar.
@signifer6742
@signifer6742 5 жыл бұрын
Sergio, ¿ me puedes aclarar una duda de principiante que arrastro desde los vídeos anteriores? ¿De qué depende que al escribir algunas instrucciones no funcionen las ayudas del intellisense VBA?. Observo el los vídeos que en ciertas instrucciones a ti no te funciona y cuando yo lo hago tampoco. Y aún no he conseguido identificar de qué depende que si funcione y de qué no. Pones . y no se abren las opciones, o haces CTRL+barra space al empezar a escribir una palabra y no completa. No logro ver si tiene que ver con determinados objetos VBA. Observo que ocurre, por ejemplo, con shetts(i). no aparecen las opciones Saludos
@JinjinatoSMP
@JinjinatoSMP 5 жыл бұрын
Lo único que veo es que se usa "Select" en sitios donde se puede omitir. A la hora de copiar se podía hacer en una sola línea ¿Verdad??? También a la hora de moverse una línea hacia abajo se podría haber hecho en la misma instrucción que hace que se mueva a la línea final de la tabla. Gracias por tan buen trabajo.
@felipesantana1467
@felipesantana1467 4 жыл бұрын
Que tal Sergio, hay un pequeño error en la pregunta que se hace para continuar o no con la macro, tú definiste una variable tipo boolean y en las opciones le pusiste vbYes, vbNo entonces la respuesta que espera la variable es True or False asi que si le pones SI O NO lo toma siempre como True, Saludos y muy buen curso !!
@CarlosOrtiz-vp3fg
@CarlosOrtiz-vp3fg 4 жыл бұрын
Es verdad, la variable "MsgContinuar" tiene que ser de tipo "Byte" o "Integer" para que la constante devuelva VbYes or VbNo, o su equivalente 6 o 7. Por lo demas el video y el Curso está Fabuloso. Saludos desde El Salvador
@JuanSuarez-yy2pc
@JuanSuarez-yy2pc 5 жыл бұрын
Disculpa mi ignorancia pero quisiera saber porque siempre se usa la letra i como variable...
@joseenriquecuevagomez5751
@joseenriquecuevagomez5751 4 жыл бұрын
Eso es subjetivo, tú puedes usar la letra que deseas. Generalmente es usado la i por costumbre.
@jesusmellado8719
@jesusmellado8719 3 жыл бұрын
Incorporé un IF que valida si ya existe la hoja "Consolidado", y en caso de existir permite renombrarla Dim z As Byte For z = 1 To Sheets.Count If Sheets(z).Name = "Consolidado" Then If MsgBox("Ya existe una Hoja llamada Consolidada, desea renombrar la hoja existente?", vbYesNo + vbInformation) = vbYes Then Sheets(z).Name = InputBox("Ingrese nuevo nombre", "Renombrar Hoja Consolidado", "Consolidado_antiguo") Else Exit Sub End If End If Next BUEN VIDEO!!!!!!!!!!!!!!!!!!!!!
@karlarodriguez4965
@karlarodriguez4965 4 жыл бұрын
cómo puedo dividir una base de datos en varias hojas con sus respectivos datos??
@carmenrosape
@carmenrosape 5 жыл бұрын
y si quiero que consolide la información en una hoja creada con nombre y que se actualice sola con forme se vaya ingresando datos en las otras hojas. y que esta hoja se comparta para que otras personas trabajen al mismo tiempo
@oscarmonroynajera7686
@oscarmonroynajera7686 4 жыл бұрын
Más bien para este caso tendrías que compartir el libro con las demás personas.
@pedrorodriguezsarrin9391
@pedrorodriguezsarrin9391 4 жыл бұрын
Buen día , solicito su ayuda profesor, mi base de datos aún no se puede consolidar , me sigue saliendo Error 1004 y que no se pueden pegar por no tener el mismo tamaño.Podría ayudarme.
@oscarmonroynajera7686
@oscarmonroynajera7686 4 жыл бұрын
Checa que no tengas celdas combinadas. Saludos ; )P
@jeanvaljean6468
@jeanvaljean6468 Жыл бұрын
👍👍🦾🦾👌👌✔✔🤗🤗👀👀😎😎🍺🍺
Excel VBA and Macros - Chapter 28 - Practice 2: Optimizing Grouping tables of several sheets
27:29
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 25 М.
3 Essential Macros for Pivot Tables in Excel
15:45
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 16 М.
Lamborghini vs Smoke 😱
00:38
Topper Guild
Рет қаралды 68 МЛН
How to treat Acne💉
00:31
ISSEI / いっせい
Рет қаралды 21 МЛН
Что-что Мурсдей говорит? 💭 #симбочка #симба #мурсдей
00:19
Excel VBA and Macros - Chapter 32 - Creating Functions with no arguments, one or two @EXCELeINFO
25:51
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 21 М.
VBA to Delete Multiple Columns based on Headers - Excel VBA Macro Example
8:45
¡Adiós Tablas Dinámicas! Descubre el Secreto de Power Pivot en Excel 🎯
11:49
Código Espinoza - Productividad
Рет қаралды 2,5 М.
Excel VBA and Macros - Chapter 17 - If...Then...Else statement to decision making @EXCELeINFO
19:04
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 61 М.
20 приемов и трюков MS Excel для начинающих
25:32
Езепов Дмитрий
Рет қаралды 1,6 МЛН
Excel VBA and Macros - Chapter 31 - Creating Function procedures and UDF to use in formulas
24:22
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 31 М.
Excel VBA and Macros - Chapter 30 - Passing arguments to Sub procedures ByRef and ByVal @EXCELeINFO
24:57
Unlock Excel Secrets: Magic Search Bar You NEVER Knew About!
17:59
PK: An Excel Expert
Рет қаралды 542 М.
Excel VBA and Macros - Chapter 21 - Function and Method InputBox to input values @EXCELeINFO
17:38
Sergio Alejandro Campos - EXCELeINFO
Рет қаралды 43 М.
Lamborghini vs Smoke 😱
00:38
Topper Guild
Рет қаралды 68 МЛН