Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Arrastrar columnas por código

14/07/2005 - 15:22 por Emilio | Informe spam
Ayuda Hacer una pregunta
Hola a tod@s
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 tod@s
Emilio
miliuco56 ALGARROBA hotmail.com
http://www.mvp-access.com/foro
http://www.mvp-access.com/emilio
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
14/07/2005 - 19:02 | Informe spam
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



Preguntas similares

 

Busqueda sugerida :