¿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.