Ayuda con Macros que consolide datos

[martony_94]

Tengo problemas para consolidar en una hoja los datos de distintas hojas y estoy ocupando esta formula


Sub unionhojas()
Sheets("Consolidar").Select 'Recuerda nombrar una hoja con el nombre de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Hola,

Sin un saludo, un palabra respetuosa pidiendo el favor y la ayuda...

Espera otra ayuda.

Saludos.

 

[martony_94]

Hola, Saludos

Si, perdón por lo descortés, es primera vez que escribía en este Foro, y en realidad debería haber pedido el por favor y al ayuda.

Por favor me pueden ayudar con este tema, que no...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Hola,

Bien.... Empecemos de nuevo... :D

Recomendaciones:

• Siempre declara las variables, es buena practica.

• Estudia e investiga el código

• Así es más fácil...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[martony_94]

Gracias Leopoldo, adjunto el archivo que estoy trabajando, ocupé la formula que me mandaste pero me ocurrió lo mismo de que se pegaban todas las hojas del archivo excel, el tema es que sólo quiero...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Bueno...

Como tenias hojas ocultas... evita hacer eso ya que es más difícil ayudar. Y ni mencionas nada al respecto.

Espero no se vuelva a repetir.

Sub UnionHojas_LBV()
Dim uFO&, uFD&, n&...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Leopoldo Blancas]

Sub UnionHojas_LBV()
Dim uFO&, uFD&, n&
    For n = 1 To Sheets.Count
        uFD = Sheets("Consolidar").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
        Select Case Sheets(n).Name...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[martony_94]

Muchas Gracias Leopoldo por tu ayuda. Me sirvió mucho.

¿Cómo puedo contactarme contigo de manera interna?

Cordiales saludos

 

[Leopoldo Blancas]

Hola,

Hola, por este foro...

Saludos.