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

แชร์
ฝัง
  • เผยแพร่เมื่อ 23 ก.ย. 2024
  • ✅ 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

ความคิดเห็น • 133

  • @jvillegas4624
    @jvillegas4624 5 หลายเดือนก่อน +1

    Espectacular MACRO..

  • @josed.lopezs.9415
    @josed.lopezs.9415 3 ปีที่แล้ว +1

    GRACIAS, GRAN MATERIAL. SALUDOS.

  • @manuelroa654
    @manuelroa654 2 ปีที่แล้ว

    ¡MARAVILLOSO!

  • @mpaliza
    @mpaliza 4 ปีที่แล้ว +3

    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 ปีที่แล้ว +1

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

  • @CarlosFranciscoCastroRumiche
    @CarlosFranciscoCastroRumiche 4 หลายเดือนก่อน +1

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

  • @salvadortorres801
    @salvadortorres801 2 ปีที่แล้ว +1

    Mis respetos Sergio, excelente tutor.

  • @DiegoLopez-jl4xg
    @DiegoLopez-jl4xg 4 ปีที่แล้ว

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

  • @samuelfranciscogarcia1440
    @samuelfranciscogarcia1440 3 ปีที่แล้ว +1

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

  • @Julio_82
    @Julio_82 4 หลายเดือนก่อน +1

    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

  • @rrrraaaacccc80
    @rrrraaaacccc80 3 ปีที่แล้ว

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

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

  • @eduardomunoz2764
    @eduardomunoz2764 5 ปีที่แล้ว +1

    Buenas noches a todos. Saludos Sergio

  • @vicentetodaro7242
    @vicentetodaro7242 ปีที่แล้ว +1

    Excelente Tus explicaciones haste ahora, felicitaciones sergio

  • @walterjesusgonzalesbardale391
    @walterjesusgonzalesbardale391 4 ปีที่แล้ว +1

    gracias aprendo mucho con tus videos

  • @principe1029
    @principe1029 8 หลายเดือนก่อน

    MUY buenos videos

  • @osvaldocortinacruz9671
    @osvaldocortinacruz9671 3 ปีที่แล้ว

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

  • @marcopalpancastro6655
    @marcopalpancastro6655 2 ปีที่แล้ว

    muy bueno, gracias.

  • @JuanSuarez-yy2pc
    @JuanSuarez-yy2pc 5 ปีที่แล้ว +1

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

  • @alexeiofp
    @alexeiofp 4 ปีที่แล้ว

    Gracias Maestro, saludos desde Santiago de Chile.

  • @antioquia112
    @antioquia112 2 ปีที่แล้ว +1

    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.

  • @carlosrescalonaz3424
    @carlosrescalonaz3424 5 ปีที่แล้ว

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

  • @JuanSuarez-yy2pc
    @JuanSuarez-yy2pc 5 ปีที่แล้ว

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

  • @sergiozazueta7395
    @sergiozazueta7395 5 ปีที่แล้ว +2

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

  • @maticunia1982
    @maticunia1982 5 ปีที่แล้ว

    Gracias por el tiempo empleado en enseñar 👍👌

  • @Omar-xs3nf
    @Omar-xs3nf 2 ปีที่แล้ว +8

    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 ปีที่แล้ว +7

      Tienes razón, debe ser byte.

    • @angelvarela6446
      @angelvarela6446 ปีที่แล้ว +2

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

  • @carmenflores1113
    @carmenflores1113 4 ปีที่แล้ว +1

    Buen vídeo profesor, muchas gracias¡¡¡

  • @RIGSAN45
    @RIGSAN45 5 ปีที่แล้ว +1

    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.

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

  • @foxplayfoxplay5324
    @foxplayfoxplay5324 4 ปีที่แล้ว

    Excelente Sergio.... Exactamente lo necesitaba. Gracias

  • @reynaldocarmona4685
    @reynaldocarmona4685 2 ปีที่แล้ว +1

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

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

  • @carlo21ification
    @carlo21ification 4 ปีที่แล้ว

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

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

  • @joseantoniosanchezlopez7215
    @joseantoniosanchezlopez7215 5 ปีที่แล้ว +2

    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.

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

  • @miguelmelian6833
    @miguelmelian6833 2 ปีที่แล้ว

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

  • @carmenrosape
    @carmenrosape 5 ปีที่แล้ว

    Gracias por compartir tus conocimientos

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

  • @miguelneira
    @miguelneira 4 ปีที่แล้ว

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

  • @hectorsanchez9225
    @hectorsanchez9225 5 ปีที่แล้ว

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

  • @fredericjavier
    @fredericjavier 5 ปีที่แล้ว

    Excelente Sergio, muchas gracias por compartir

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

  • @oscarsantos9251
    @oscarsantos9251 5 ปีที่แล้ว

    es de lo mejor 100% sal2 y pulgar arriba.

  • @edicionexpress8559
    @edicionexpress8559 3 ปีที่แล้ว +1

    Woooowww 👏👏👏👏👏👏👏👏

  • @julioenriquebarrenecheamon607
    @julioenriquebarrenecheamon607 4 ปีที่แล้ว

    excelente explicación

  • @postventatewis9968
    @postventatewis9968 ปีที่แล้ว

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

  • @conradohernanvillagil2764
    @conradohernanvillagil2764 5 ปีที่แล้ว

    Gracias Sergio.

  • @vicentetodaro7242
    @vicentetodaro7242 ปีที่แล้ว +1

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

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

  • @raulhumbertomoravillamizar3827
    @raulhumbertomoravillamizar3827 4 ปีที่แล้ว +1

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

  • @linoquintana6663
    @linoquintana6663 5 ปีที่แล้ว +3

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

  • @nataliaandres6034
    @nataliaandres6034 4 ปีที่แล้ว +2

    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!

  • @baironvelasquez6660
    @baironvelasquez6660 2 ปีที่แล้ว

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

  • @RICARDOHERNANDEZ-fp9wu
    @RICARDOHERNANDEZ-fp9wu 4 ปีที่แล้ว

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

  • @harlesp.7461
    @harlesp.7461 3 ปีที่แล้ว +1

    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

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

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

  • @cathipathi
    @cathipathi 4 ปีที่แล้ว +1

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

    • @SergioAlejandroCampos
      @SergioAlejandroCampos  4 ปีที่แล้ว +1

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

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

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

  • @carolidiaft
    @carolidiaft 2 ปีที่แล้ว +1

    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.

  • @RICARDOHERNANDEZ-fp9wu
    @RICARDOHERNANDEZ-fp9wu 4 ปีที่แล้ว

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

  • @Ferry2099
    @Ferry2099 4 ปีที่แล้ว +1

    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 ปีที่แล้ว +1

      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 ปีที่แล้ว +1

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

    • @SergioAlejandroCampos
      @SergioAlejandroCampos  3 ปีที่แล้ว +1

      @@marlenenavarro2017 Claro! Es válida. Con resize podemos redimensionar un rango y es muy útil cuando tenemos el caso de los encabezados. Gracias Marlene.

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

  • @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 8 หลายเดือนก่อน +1

      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

  • @R9.ANTONIO
    @R9.ANTONIO 5 หลายเดือนก่อน

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

  • @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 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
      @marceloferraro1110 4 ปีที่แล้ว +2

      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.

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

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

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

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

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

  • @harlesp.7461
    @harlesp.7461 3 ปีที่แล้ว

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

  • @jorgerizo350
    @jorgerizo350 4 ปีที่แล้ว +1

    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 8 หลายเดือนก่อน

      creo que tu pegado tendria que ser con un xlPasteFormulas

  • @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 3 ปีที่แล้ว

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

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

  • @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 4 ปีที่แล้ว +1

      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? 🤚🏽😅

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

  • @brendafalcon4467
    @brendafalcon4467 3 ปีที่แล้ว

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

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

  • @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 ปีที่แล้ว +1

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

  • @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 ปีที่แล้ว +1

      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

  • @tenasas10
    @tenasas10 4 ปีที่แล้ว

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

    • @luisrenteria9443
      @luisrenteria9443 3 ปีที่แล้ว

      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

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

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

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

  • @karlarodriguez4965
    @karlarodriguez4965 4 ปีที่แล้ว

    cómo puedo dividir una base de datos en varias hojas con sus respectivos datos??

  • @RIGSAN45
    @RIGSAN45 5 ปีที่แล้ว

    Otro pequeño apunte: Seria util que al principio se nos pidiera el nombre de la hoja que no queremos importar.

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

  • @jeanvaljean6468
    @jeanvaljean6468 ปีที่แล้ว

    👍👍🦾🦾👌👌✔✔🤗🤗👀👀😎😎🍺🍺