¿Porque no funciona este codigo?

31/08/2006 - 19:06 por vm_tapia | Informe spam
=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.
 

Leer las respuestas

#1 KL
31/08/2006 - 19:20 | Informe spam
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.

Preguntas similares