Arrastrar columnas por código

Hola a
no sé si será por que estoy a punto de vacaciones y ya ni veo, pero estoy
atascado intentando resolver un problema que seguro que es un chorrada,
pero
no me desatasco.
Necesito arrastrar un rango en columna, por código, hasta ahí es facil, el
problema es que el rango es variable, está relacionado con el mes en
curso,
en filas no tengo problemas por que las Columnas son fijas y puedo
escribir
como parte fija del rango las columnas, pero no se me ocurre como escribir
la columna destino, sé cual es la origen calculandola, y me resulta por
ejemplo la EA, tengo que arrastrarla a EB
La macro que grabé me devolvio esto
Range("EA29:EA41").Select
Selection.AutoFill Destination:=Range("EA29:EB41"), Type:=xlFillDefault
que yo he "traducido" por
ActiveSheet.Cells((bytMesCalculo - 1) + 126, 29).Select ' EA29
Selection.AutoFill Destination:=Range(Columna & "29:EB41"),
Type:=xlFillDefault
(Columna me devuelve la cadena correspondiente a la columna de la celda
activa)
Evidentemente, así este mes funcionará, pero no el que viene.
Despues de toda la parrafada, no sé si todavía queda claro, necesito
partiendo de EA llegar a EB

Gracias anticipadas.

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Hola Emilio,

A mi si que me has liado. No entiendo como llegas a determinar que el
rango a copiar es el Range("EA29:EA41") (o al menos cuales son los
criterios para definir este rango dinamicamente). Pero si has llegado
hasta aqui, creo que seria facil definir el rango destino p.ej.:

Range("EA29:EA41").Resize(,2)

que deberia devolver:

Range("EA29:EB41")

Comentas mas detalles?

Saludos,
KL




"Emilio" <miliuco56 ARROBA hotmail.com> wrote in message
news:

Hola a
no sé si será por que estoy a punto de vacaciones y ya ni veo, pero estoy
atascado intentando resolver un problema que seguro que es un chorrada,
pero
no me desatasco.
Necesito arrastrar un rango en columna, por código, hasta ahí es facil,
el
problema es que el rango es variable, está relacionado con el mes en
curso,
en filas no tengo problemas por que las Columnas son fijas y puedo
escribir
como parte fija del rango las columnas, pero no se me ocurre como
escribir
la columna destino, sé cual es la origen calculandola, y me resulta por
ejemplo la EA, tengo que arrastrarla a EB
La macro que grabé me devolvio esto
Range("EA29:EA41").Select
Selection.AutoFill Destination:=Range("EA29:EB41"),
Type:=xlFillDefault
que yo he "traducido" por
ActiveSheet.Cells((bytMesCalculo - 1) + 126, 29).Select ' EA29
Selection.AutoFill Destination:=Range(Columna & "29:EB41"),
Type:=xlFillDefault
(Columna me devuelve la cadena correspondiente a la columna de la celda
activa)
Evidentemente, así este mes funcionará, pero no el que viene.
Despues de toda la parrafada, no sé si todavía queda claro, necesito
partiendo de EA llegar a EB

Gracias anticipadas.

Saludos a
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

entonces ¿puedo hacer el autofill mediante Range("EA29:EA41").Resize(,2) ?

Hola Emilio,

entonces ¿puedo hacer el autofill mediante Range("EA29:EA41").Resize(,2) ?

no exactamente. solo te permite construir el rango a llenar para luego
usarlo con el metodo AutoFill, asi +/-:

With Range("EA29:EA41")
.AutoFill Destination:=.Resize(,2), Type:=xlFillDefault
End If

Saludos,
KL

Gracias KL,
mañana lo pruebo y te confirmo que ha funcionado :-))

Saludos a desde Huelva
Emilio
miliuco56 ALGARROBA hotmail.com

http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio

Reglas de conducta de los grupos de noticias:
http://support.microsoft.com/defaul...newsreglas

"KL" escribió en el mensaje
news:%
> Hola Emilio,
>
>>entonces ¿puedo hacer el autofill mediante Range("EA29:EA41").Resize(,2)

>
> no exactamente. solo te permite construir el rango a llenar para luego
> usarlo con el metodo AutoFill, asi +/-:
>
> With Range("EA29:EA41")
> .AutoFill Destination:=.Resize(,2), Type:=xlFillDefault
> End If
>
> Saludos,
> KL
>
>