¿Porque no funciona este codigo?

Hola vm_tapia,

Pensaba que a ti ya no era necesario recordarte que la descripion del error ayuda mucho :-)

Prueba este codigo:


Dim Col As Byte, Celda As Range
Col = 1
For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad")
Celda.Offset(UltimaFilaPFacts, Col + 1) = Celda
Col = Col + 3
Next

supongo que el valor de la variable UltimaFilaPFacts se le asigna en alguna parte del codigo completo.

Saludos,
KL


"vm_tapia" wrote in message news:
Mostrar la cita

=> Dim Col As Byte, Celda As Variant
Col = 1
For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad").Value
.Offset(UltimaFilaPFacts, Col + 1).Value = Celda.Value
Col = Col + 3
Next
=>
Gracias.

Perdon por la omision.
No volvera a pasar
Gracias por tu respuesta, la pruebo y te aviso.


"KL" wrote:

Mostrar la cita

Hola vm_tapia,

Pensaba que a ti ya no era necesario recordarte que la descripion del error ayuda mucho :-)

Prueba este codigo:


Dim Col As Byte, Celda As Range
Col = 1
For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad")
Celda.Offset(UltimaFilaPFacts, Col + 1) = Celda
Col = Col + 3
Next

supongo que el valor de la variable UltimaFilaPFacts se le asigna en alguna parte del codigo completo.

Saludos,
KL


"vm_tapia" wrote in message news:
>
> => > Dim Col As Byte, Celda As Variant
> Col = 1
> For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad").Value
> .Offset(UltimaFilaPFacts, Col + 1).Value = Celda.Value
> Col = Col + 3
> Next
> => >
> Gracias.
>

KL:

Ya lo probe y no funciona el error es el siguiente
Error 438 en tiempo de ejecucion
El objeto no admite esta propiedad o metodo



"KL" wrote:

Mostrar la cita

Hola vm_tapia,

Pensaba que a ti ya no era necesario recordarte que la descripion del error ayuda mucho :-)

Prueba este codigo:


Dim Col As Byte, Celda As Range
Col = 1
For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad")
Celda.Offset(UltimaFilaPFacts, Col + 1) = Celda
Col = Col + 3
Next

supongo que el valor de la variable UltimaFilaPFacts se le asigna en alguna parte del codigo completo.

Saludos,
KL


"vm_tapia" wrote in message news:
>
> => > Dim Col As Byte, Celda As Variant
> Col = 1
> For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad").Value
> .Offset(UltimaFilaPFacts, Col + 1).Value = Celda.Value
> Col = Col + 3
> Next
> => >
> Gracias.
>

KL:

cometi el error de no mirar atentamente el codigo que me enviaste, ya lo
corregi
y salio otro error que es el siguiente:
==Error 1004 en tiempo de ejecucion
Error definido por la aplicacion o el objeto
==en la siguiente linea
-
Celda.Offset(UltimaFilaPFacts, Col + 1) = Celda
-



"vm_tapia" wrote:

Mostrar la cita

KL:

Ya lo probe y no funciona el error es el siguiente
> Error 438 en tiempo de ejecucion
El objeto no admite esta propiedad o metodo
>


"KL" wrote:

> Hola vm_tapia,
>
> Pensaba que a ti ya no era necesario recordarte que la descripion del error ayuda mucho :-)
>
> Prueba este codigo:
>
>
> Dim Col As Byte, Celda As Range
> Col = 1
> For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad")
> Celda.Offset(UltimaFilaPFacts, Col + 1) = Celda
> Col = Col + 3
> Next
>
> supongo que el valor de la variable UltimaFilaPFacts se le asigna en alguna parte del codigo completo.
>
> Saludos,
> KL
>
>
> "vm_tapia" wrote in message news:
> >
> > => > > Dim Col As Byte, Celda As Variant
> > Col = 1
> > For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad").Value
> > .Offset(UltimaFilaPFacts, Col + 1).Value = Celda.Value
> > Col = Col + 3
> > Next
> > => > >
> > Gracias.
> >
>

Hola vm_tapia,

Pues supongo que el problema esta en "UltimaFilaPFacts" habria que ver que valor tiene en el momento del fallo del codigo. Tambien
seria interesante ver como se declara y como (mediante quEcodigo) se le asigna el valor a la variable "UltimaFilaPFacts". Otra cosa
que vendria bien es saber que rango esta asignado al nombre "Cantidad".

Saludos,
KL


"vm_tapia" wrote in message news:
Mostrar la cita

KL:

cometi el error de no mirar atentamente el codigo que me enviaste, ya lo
corregi
y salio otro error que es el siguiente:
==> Error 1004 en tiempo de ejecucion
Error definido por la aplicacion o el objeto
==> en la siguiente linea
-
Celda.Offset(UltimaFilaPFacts, Col + 1) = Celda
-



"vm_tapia" wrote:

Mostrar la cita

KL:

Ya lo probe y no funciona el error es el siguiente
>> Error 438 en tiempo de ejecucion
El objeto no admite esta propiedad o metodo
>>


"KL" wrote:

> Hola vm_tapia,
>
> Pensaba que a ti ya no era necesario recordarte que la descripion del error ayuda mucho :-)
>
> Prueba este codigo:
>
>
> Dim Col As Byte, Celda As Range
> Col = 1
> For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad")
> Celda.Offset(UltimaFilaPFacts, Col + 1) = Celda
> Col = Col + 3
> Next
>
> supongo que el valor de la variable UltimaFilaPFacts se le asigna en alguna parte del codigo completo.
>
> Saludos,
> KL
>
>
> "vm_tapia" wrote in message news:
> >
> > =>> > > Dim Col As Byte, Celda As Variant
> > Col = 1
> > For Each Celda In ThisWorkbook.Worksheets("Factura").Range("Cantidad").Value
> > .Offset(UltimaFilaPFacts, Col + 1).Value = Celda.Value
> > Col = Col + 3
> > Next
> > =>> > >
> > Gracias.
> >
>