Código VBA para Intercalar Columnas
Hola a tod@s. Estoy buscando la manera de intercalar la información de las columnas A y B para que salga mostrada en la C. Me explico:
A B C
A1 B1 A1
A2 B2 B1
A2
B2
Parece ser que la solución pasa irremediablemente por medio de código VBA. He probado el que sale aquí
pero me da un error porque no para de generar código. Lo paro pulsando "Esc" y me sale la opción de "Depurar", y en amarillo me resalta esto
"ActiveCell.Offset(-posición, -2).Select"
¿Que se debe de modificar para que salga bien?.
Te mando mi solución, sigue mis instrucciones:
Selecciona con el ratón el rango de celdas de las columnas A y B (en este caso hubiera sido seleccionar el rango A1:B2 pero puede ser más grande).
Seguidamente ejecuta esta macro y todo listo!
Sub intercalar() 'Por Luismondelo fila = 1 ubica = ActiveCell.Column For Each celda In Selection Cells(fila, ubica + 2).Value = celda.Value fila = fila + 1 Next End Sub
recuerda finalizar y puntuar
Perfecto. Me ha ido muy bien. Hubiese sido más cómodo si no hubiese que seleccionar y que cogiese lo que hubiese, pero va de cine. Gracias.
