Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

INSERTAR FORMULA SALTANDO FILAS

erick1011

New member
Registrado
13 Sep 2019
Mensajes
9
Buenas Una vez mas necesito de su ayuda
Lo que pasa es que tengo 4 columnas de datos "AB","Y","Z","AA" y lo que quiero hacer es copiar todo esos datos en una sola columna "AK" pero ordenadamente...
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í
 

Adjuntos

    Sin permisos de acceso
Se me olvido...
Código:
Sub CopyAUnaColumna()
Dim nF&, Celda As Range: nF = 2
    For Each Celda In Range("Y2:Y" & Range("Y" & Rows.Count).End(xlUp).Row)
        Range("AK" & nF) = Celda.Offset(0...
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 dijo:
Se me olvido...
Código:
Sub CopyAUnaColumna()
Dim nF&, Celda As Range: nF = 2
    For Each Celda In Range("Y2:Y" & Range("Y" & Rows.Count).End(xlUp).Row)...
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 dijo:
Se me olvido...
Código:
Sub CopyAUnaColumna()
Dim nF&, Celda As Range: nF = 2
    For Each Celda In Range("Y2:Y" & Range("Y" & Rows.Count).End(xlUp).Row)...
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 dijo:
Se me olvido...
Código:
Sub CopyAUnaColumna()
Dim nF&, Celda As Range: nF = 2
    For Each Celda In Range("Y2:Y" & Range("Y" & Rows.Count).End(xlUp).Row)...
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í
 
Hola! erick (y Leopoldo). Intenta con "algo" así:
Código:
Sub Transponer()
Dim Mat, Q&, i&, Vec, R&
Mat = Range("ab2", [y1].End(xlDown)): Q = UBound(Mat): R = -3
ReDim Vec(1 To 4 * Q, 1 To 1)...
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í
 
Cacho R dijo:
Hola! erick (y Leopoldo). Intenta con "algo" así:
Código:
Sub Transponer()
Dim Mat, Q&, i&, Vec, R&
Mat = Range("ab2", [y1].End(xlDown)): Q = UBound(Mat): R = -3
ReDim Vec(1...
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í
 
Volver
Arriba