Offset con valor de celda

12/11/2007 - 14:57 por ponxeda | Informe spam

Buenos Días,

Por favor me podrían ayudar con esta macro, quiero que el offset para
que baje filas sea el valor de una celda, alguien que me ayude con
esto por favor,

Adjunto la macro

Sub Macro13()
Range("A6:L6").Select
Selection.Copy
Sheets("TE").Select
Range("A5").Offset(a6,0)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Mo_E").Select
Range("A6").Select
Application.CutCopyMode = False
End Sub

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 David

12/11/2007 - 16:27 | Informe spam

Así, a un primer vistazo, prueba cambiar la línea del Offset por:

Range("A5").Offset(Range("a6").value,0)

y comentas...

"" escribió:

Buenos Días,

Por favor me podrían ayudar con esta macro, quiero que el offset para
que baje filas sea el valor de una celda, alguien que me ayude con
esto por favor,

Adjunto la macro

Sub Macro13()
Range("A6:L6").Select
Selection.Copy
Sheets("TE").Select
Range("A5").Offset(a6,0)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Mo_E").Select
Range("A6").Select
Application.CutCopyMode = False
End Sub

Responder a este mensaje

#2 ponxeda

12/11/2007 - 18:39 | Informe spam

Buenos Días me sigue enviando error, el valor tiene que ser de la Hoja
Mo_E y la celda A6

On Nov 12, 10:27 am, David wrote:

Así, a un primer vistazo, prueba cambiar la línea del Offset por:

Range("A5").Offset(Range("a6").value,0)

y comentas...

"" escribió:

> Buenos Días,

> Por favor me podrían ayudar con esta macro, quiero que el offset para
> que baje filas sea el valor de una celda, alguien que me ayude con
> esto por favor,

> Adjunto la macro

> Sub Macro13()
> Range("A6:L6").Select
> Selection.Copy
> Sheets("TE").Select
> Range("A5").Offset(a6,0)
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Sheets("Mo_E").Select
> Range("A6").Select
> Application.CutCopyMode = False
> End Sub- Hide quoted text -

- Show quoted text -

Responder a este mensaje

#3 David

12/11/2007 - 20:08 | Informe spam

Perdón. Prueba modificar tu código a lo siguiente, y comentas si ahora sí
doy en el clavo:

Sub Macro13()
Range("A6:L6").Select
Selection.Copy
Sheets("TE").Select
Range("A5").Offset(Sheets("Mo_E"). _
Range("a6").Value, 0).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Sheets("Mo_E").Select
Range("A6").Select
Application.CutCopyMode = False
End Sub '- Hide quoted text -

"" escribió:

Buenos Días me sigue enviando error, el valor tiene que ser de la Hoja
Mo_E y la celda A6

On Nov 12, 10:27 am, David wrote:
> Así, a un primer vistazo, prueba cambiar la línea del Offset por:
>
> Range("A5").Offset(Range("a6").value,0)
>
> y comentas...
>
>
> "" escribió:
>
>
>
> > Buenos Días,
>
> > Por favor me podrían ayudar con esta macro, quiero que el offset para
> > que baje filas sea el valor de una celda, alguien que me ayude con
> > esto por favor,
>
> > Adjunto la macro
>
> > Sub Macro13()
> > Range("A6:L6").Select
> > Selection.Copy
> > Sheets("TE").Select
> > Range("A5").Offset(a6,0)
> > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > SkipBlanks _
> > :=False, Transpose:=False
> > Sheets("Mo_E").Select
> > Range("A6").Select
> > Application.CutCopyMode = False
> > End Sub- Hide quoted text -
>
> - Show quoted text -

Responder a este mensaje

#4 Juan M

12/11/2007 - 20:10 | Informe spam

escribió

Buenos Días,

Por favor me podrían ayudar con esta macro, quiero que el offset para
que baje filas sea el valor de una celda, alguien que me ayude con
esto por favor,

Adjunto la macro

Sub Macro13()
Range("A6:L6").Select
Selection.Copy
Sheets("TE").Select
Range("A5").Offset(a6,0)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Mo_E").Select
Range("A6").Select
Application.CutCopyMode = False
End Sub

Hola,

Como bien te ha comentado David hay que poner el a6 o bien entre corchetes,
o bien con range("A6")
y al final de la instruccion seleccionarla

Range("A5").Offset(Range("a6"),0).Select

Recuerda que en la gran mayoría de los casos no es necesario seleccionar los
objetos para poder manipularlos.

Un saludo,
Juan

Responder a este mensaje

#5 ponxeda

13/11/2007 - 01:03 | Informe spam

Gracias,

Funciono perfecto..

saludos,
Angelo V.

On Nov 12, 2:08 pm, David wrote:

Perdón. Prueba modificar tu código a lo siguiente, y comentas si ahora sí
doy en el clavo:

Sub Macro13()
Range("A6:L6").Select
Selection.Copy
Sheets("TE").Select
Range("A5").Offset(Sheets("Mo_E"). _
Range("a6").Value, 0).PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Sheets("Mo_E").Select
Range("A6").Select
Application.CutCopyMode = False
End Sub '- Hide quoted text -

"" escribió:

> Buenos Días me sigue enviando error, el valor tiene que ser de la Hoja
> Mo_E y la celda A6

> On Nov 12, 10:27 am, David wrote:
> > Así, a un primer vistazo, prueba cambiar la línea del Offset por:

> > Range("A5").Offset(Range("a6").value,0)

> > y comentas...

> > "" escribió:

> > > Buenos Días,

> > > Por favor me podrían ayudar con esta macro, quiero que el offset para
> > > que baje filas sea el valor de una celda, alguien que me ayude con
> > > esto por favor,

> > > Adjunto la macro

> > > Sub Macro13()
> > > Range("A6:L6").Select
> > > Selection.Copy
> > > Sheets("TE").Select
> > > Range("A5").Offset(a6,0)
> > > Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> > > SkipBlanks _
> > > :=False, Transpose:=False
> > > Sheets("Mo_E").Select
> > > Range("A6").Select
> > > Application.CutCopyMode = False
> > > End Sub- Hide quoted text -

> > - Show quoted text -- Hide quoted text -

- Show quoted text -

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida