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

Подписаться 300 тыс.

Просмотров 38 тыс.

50% 1

✅ Download the file | www.exceleinfo....
🏆 Subscribe | bit.ly/youtube...
📩 Tutorials in your email: www.exceleinfo....
💯 Purchase Office 365 safely in the Microsoft Store
microsoft.msaf...
In this video tutorial we will see a practical case where we will review some topics that we have seen in this macro course.
We will see how to group or consolidate several tables or ranges of data that we have in several sheets, in one. The interesting thing about the macro is to go through the sheets of the file and take the data to group them in a sheet.
More examples | www.exceleinfo.com
More examples | blogs.itpro.es/...
Facebook Page | / exceleinfo
Get notificacions on Telegram | t.me/EXCELeINFO
Twitter | @EXCELeINFO
Twitter | @SergioACamposH
Download EXCELeINFO addin:
addin.exceleinf...
#MsExcel #VBA

Опубликовано:

23 сен 2024

Ссылка:

Скачать:

Готовим ссылку...

Добавить в:

Мой плейлист

Посмотреть позже

Комментарии : 133

@jvillegas4624 5 месяцев назад

Espectacular MACRO..

@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

@josed.lopezs.9415 3 года назад

GRACIAS, GRAN MATERIAL. SALUDOS.

@SergioAlejandroCampos 3 года назад

Gracias a ti.

@CarlosFranciscoCastroRumiche 4 месяца назад

Excelente, bastante útil, gracias por la paciencia en la explicación.

@carlosmolinaflores8082 2 года назад

Espectacular la explicación y el video, se agradece!!

@samuelfranciscogarcia1440 3 года назад

Cuando veo tus vídeos me ciento menos ignorante y GRACIAS a ti yo he aprendido MUCHO 🕵🤖👽🚀🎁

@salvadortorres801 2 года назад

Mis respetos Sergio, excelente tutor.

@DiegoLopez-jl4xg 4 года назад

MASTER BLASTER de la explicación programada!!!!!

@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.

@vicentetodaro7242 Год назад

Excelente Tus explicaciones haste ahora, felicitaciones sergio

@eduardomunoz2764 5 лет назад

Buenas noches a todos. Saludos Sergio

@rrrraaaacccc80 3 года назад

Excelente ir linea por linea es muy esclarecedor. Felicitaciones 👍. El mejor curso de macros que vi en español por mucho.

@antioquia112 2 года назад

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 2 года назад

¡MARAVILLOSO!

@walterjesusgonzalesbardale391 4 года назад

gracias aprendo mucho con tus videos

@SergioAlejandroCampos 4 года назад

Saludos Walter.

@JuanSuarez-yy2pc 5 лет назад

Es un buen ejemplo de concentración de información, gracias por compartir tus conocimientos, excelente

@SergioAlejandroCampos 5 лет назад

Saludos Juan.

@Julio_82 4 месяца назад

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

@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 2 года назад

Tienes razón, debe ser byte.

@angelvarela6446 Год назад

Entonces tendría que ser " Dim MsgContinuar As Byte "? Muchas gracias!

@alexeiofp 4 года назад

Gracias Maestro, saludos desde Santiago de Chile.

@osvaldocortinacruz9671 3 года назад

Excelente video.Gracias por compartir tus conocimientos, son de muicha ayuda en mi trabajo.

@reynaldocarmona4685 2 года назад

excelente practica se aplican funciones de los videos vistos , aplique la funcion CURRENTREGION ya vista , pero me di cuenta que toma tambien lso encabezados

@sergiozazueta7395 5 лет назад

Excelente Video Tocayo, francamente siempre estoy atento esperando los nuevos videos, muchísimas gracias por compartir

@carlosrescalonaz3424 5 лет назад

Gracias por tus aportes y enseñanzas para todos nosotros.

@JuanSuarez-yy2pc 5 лет назад

Te agradezco la forma en que estás ejemplificando el trabajo en Excel con macros, excelente explicación....

@carlosbellido1388 2 года назад

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.

@maticunia1982 5 лет назад

Gracias por el tiempo empleado en enseñar 👍👌

@carlo21ification 4 года назад

Gracias Sergio, eres un maestro en macros, la manera de explicar y la logica es muy buena. Un abrazo desde Perú

@carmenflores1113 4 года назад

Buen vídeo profesor, muchas gracias¡¡¡

@SergioAlejandroCampos 4 года назад

A ti

@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.

@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.

@marubiruseru7031 5 лет назад

Excelente aporte Sergio. Se te agradece profundamente este conocimiento ya que pocos canales lo hacen con el detalle que tú lo haces.

@marcopalpancastro6655 2 года назад

muy bueno, gracias.

@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.

@miguelneira 4 года назад

hola, muy buen video. necesitaba esa información de como hacerlo. gracias desde chile

@foxplayfoxplay5324 4 года назад

Excelente Sergio.... Exactamente lo necesitaba. Gracias

@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.

@principe1029 8 месяцев назад

MUY buenos videos

@miguelmelian6833 2 года назад

Gracias por el video, muy util la información 💪

@rodrigocorrales5049 6 месяцев назад

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.

@hectorsanchez9225 5 лет назад

Excelente!!!! me sirve para unir muchas hojas en mi trabajo, mil Gracias!!!!!

@carmenrosape 5 лет назад

Gracias por compartir tus conocimientos

@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!!

@oscarsantos9251 5 лет назад

es de lo mejor 100% sal2 y pulgar arriba.

@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 Год назад

🥰🥰🤩🤩🌹🌹💋💋😍😍😘😘

@SergioAlejandroCampos Год назад

Sí, tengo un video usando Power Query.

@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 8 месяцев назад

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

@fredericjavier 5 лет назад

Excelente Sergio, muchas gracias por compartir

@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 8 месяцев назад

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

@edicionexpress8559 3 года назад

Woooowww 👏👏👏👏👏👏👏👏

@SergioAlejandroCampos 3 года назад

Gracias!

@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

@julioenriquebarrenecheamon607 4 года назад

excelente explicación

@baironvelasquez6660 2 года назад

muy buen video!! quisiera saber si tienes un video donde se pueda hacer lo mismo pero con libros diferentes muchas gracias

@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!

@postventatewis9968 Год назад

Gracias por la explicación, como harías el bucle si solo quieres las hojas de la serie 1,,4, 7, etc. Gracias

@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 3 года назад

Qué tal Harles. Este Power Programming with VBA

@RICARDOHERNANDEZ-fp9wu 4 года назад

Hola Segio, Nuevamente buen material, nanda mas tengo duda en esta linea

@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 Год назад

Es buena opción.

@conradohernanvillagil2764 5 лет назад

Gracias Sergio.

@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.

@cathipathi 4 года назад

Hola Sergio, gracias por tus videos, se puede usar Cuenta en ambas macros y definirla como una especie de variable general??

@SergioAlejandroCampos 4 года назад

Claro. En un módulo escribe en la parte superior Public tuvariable

@RICARDOHERNANDEZ-fp9wu 4 года назад

Hola Sergio, nuevamente buen material, nada mas tengo una duda, en esta linea

@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??

@PANCHIKUS 4 года назад

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

@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...

@carolidiaft 2 года назад

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 2 года назад

Aún replicando el código te marca error?

@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 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 3 года назад

Solución?

@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 3 года назад

Entonces maestro@@SergioAlejandroCampos ¿Qué opina? ¿Es válida mi solución?

@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.

@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!

@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 8 месяцев назад

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

@josemiguelvelizchong5698 3 года назад

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

@R9.ANTONIO 5 месяцев назад

Excelente, pero como podría elegir solo algunas hojas que deseo agrupar sin que se tenga que elegir todas las hojas.

@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 3 года назад

@Felipe Valvidia Cortes Gracias por el tip, te importaría explicarme por qué? Saludos

@felipevaldiviacortes4451 3 года назад

@@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 3 года назад

@@felipevaldiviacortes4451 pensé que era por el tema 1 y 0, o sea el SI representaba "1" y NO "0". Gracias por la respuesta!

@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.

@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

@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 8 месяцев назад

creo que tu pegado tendria que ser con un xlPasteFormulas

@harlesp.7461 3 года назад

A que se debe, que sergio se preocupo por utilizar una funcion para seleccionar celdas A2 ??

@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 4 года назад

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 4 года назад

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.

@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

@dafodils7153 Год назад

En la segunda macro (ActivarA2), no declaró la variable "contar" y escribe directo; For j = 1 To Sheet.Count, y aun asi funciona.

@Edfepemo 4 года назад

Sergio gracias. Sin embargo, tengo una pregunta, al momento de hacer las selecciones con xlToRoght y xlDown puedo usar CurrentRegion? Gracias

@erickwilliamlapasarmiento2421 4 года назад

si amigo , yo creo que si

@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 4 года назад

No, porque al poner currentregion tambien incluiría la seleccion de los encabezados, y solo se quiere seleccionar los datos.

@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.

@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 4 года назад

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 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 4 года назад

Es correcto esto que dice @@marceloferraro1110 muchas gracias por compartir : D

@carlosplasencia1694 4 года назад

Era namas para ver si estaban en la jugadaaa 😏, alguien mas se dio cuenta al usarlo de ejemplo en su propia macro? 🤚🏽😅

@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 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

@brendafalcon4467 3 года назад

Como puedo agregar en nombre de la hoja del cual se pegaron los datos??

@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.

@vacosauriomandaloriano 5 лет назад

La variable j de la primer macro se puso de más o, para que se iba a usar?

@oscarmonroynajera7686 4 года назад

para recorrer las hojas y posicionarse en el rango "A2"

@tenasas10 4 года назад

También se puede seleccionar el rango con currentregion y un offset??

@luisrenteria9443 3 года назад

tuve la misma inquietud

@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

@JuanSuarez-yy2pc 5 лет назад

Disculpa mi ignorancia pero quisiera saber porque siempre se usa la letra i como variable...

@joseenriquecuevagomez5751 4 года назад

Eso es subjetivo, tú puedes usar la letra que deseas. Generalmente es usado la i por costumbre.

@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 4 года назад

Más bien para este caso tendrías que compartir el libro con las demás personas.

@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 4 года назад

Checa que no tengas celdas combinadas. Saludos ; )P

@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!!!!!!!!!!!!!!!!!!!!!