Macro para copiar texto a celdas alternas

Hola! Josa
Podrías intentar con:
_____________________

Sub Copia_Y_Pega()
Dim Rng1 As Range, Cell2 As Range, ii As Long
On Error Resume Next
Set Rng1 = Application.InputBox("Selecciona el rango de datos",
Type:=8)
If Rng1 Is Nothing Then Exit Sub
Set Cell2 = Application.InputBox("Y ahora selecciona la primera celda
destino", Type:=8)
If Cell2 Is Nothing Then Exit Sub
On Error GoTo 0
For ii = 1 To Rng1.Count
Cell2.Offset(50 * (ii - 1)) = Rng1(ii)
Next ii
MsgBox "Proceso terminado"
Set Rng1 = Nothing
Set Cell2 = Nothing
End Sub
_____________________

Saludos, Cacho R.

On 11 jul, 13:53, josasap wrote:

Hola, tengo un problema, tengo una columna con 150 nombres y me gustaria
 copiarla a otra columna pero con 50 espacios entre celda y celda.

 En java sabria pogramarlo, pero en macros me esta resultando algo dificil
porque
 no entiendo muchas palabras reservadas que tiene excel. Lo que me gustaria
hacer
 en c o en java seria mas o menos asi:

 int i=1, int j=9

 while(i<151){

 //copiar contenido C(i) en A(j)

 i++;

 j=j+50;

 }

 Eso seria lo que quiero hacer mas o menos, tambien decir que el contenido de
las
 celdas son nombres.

 Muchas gracias.

Ten cuidado, Josa, con que el editor de este Foro "corta" las dos
asignaciones "Set" y manda la parte final a la línea inmediata
inferior. Entonces:

a) La primera debe terminar en:
datos", Type:=8)

b) Y la segunda debe terminar en:
celda destino", Type:=8)

Saludos, Cacho R.

On 11 jul, 15:16, Cacho R wrote:

Hola! Josa
Podrías intentar con:
_____________________

Sub Copia_Y_Pega()
Dim Rng1 As Range, Cell2 As Range, ii As Long
On Error Resume Next
Set Rng1 = Application.InputBox("Selecciona el rango de datos",
Type:=8)
If Rng1 Is Nothing Then Exit Sub
Set Cell2 = Application.InputBox("Y ahora selecciona la primera celda
destino", Type:=8)
If Cell2 Is Nothing Then Exit Sub
On Error GoTo 0
For ii = 1 To Rng1.Count
  Cell2.Offset(50 * (ii - 1)) = Rng1(ii)
Next ii
MsgBox "Proceso terminado"
Set Rng1 = Nothing
Set Cell2 = Nothing
End Sub
_____________________

Saludos, Cacho R.

On 11 jul, 13:53, josasap wrote:







> Hola, tengo un problema, tengo una columna con 150 nombres y me gustaria
>  copiarla a otra columna pero con 50 espacios entre celda y celda.

>  En java sabria pogramarlo, pero en macros me esta resultando algo dificil
> porque
>  no entiendo muchas palabras reservadas que tiene excel. Lo que me gustaria
> hacer
>  en c o en java seria mas o menos asi:

>  int i=1, int j=9

>  while(i<151){

>  //copiar contenido C(i) en A(j)

>  i++;

>  j=j+50;

>  }

>  Eso seria lo que quiero hacer mas o menos, tambien decir que el contenido de
> las
>  celdas son nombres.

>  Muchas gracias.