Necesito de su ayuda para ver que estoy haciendo mal en la siguiente Macro:
La hoja destino = INGRESOS
La hoja fuente es FACT 005, son varias hojas y cada una de ellas representa una factura, la hoja de ingresos pretendo llevar sólo una sumatoria de cada una de ellas.
Sub pasando_INGRESOS()
Application.ScreenUpdating = False
destino = ActiveSheet.Name
primvac = 4
For Each pestaña In Worksheets
If pestaña.Name = destino Then GoTo otra:
pestaña.Activate
Fecha = Range("e19").Value
Recibo = Range("d19").Value
Codigo = Range("d10").Value
Nombre = Range("a11").Value
Importe = Range("i29").Value
Iva = Range("i30").Value
RetIsr = Range("i32")
RetIva = Range("i33")
Sheets(destino).Range("a" & primvac) = Fecha
Sheets(destino).Range("b" & primvac) = Recibo
Sheets(destino).Range("c" & primvac) = Codigo
Sheets(destino).Range("d" & primvac) = Nombre
Sheets(destino).Range("e" & primvac) = Importe
Sheets(destino).Range("f" & primvac) = Iva
Sheets(destino).Range("g" & primvac) = RetIsr
Sheets(destino).Range("h" & primvac) = RetIva
Range("e" & primvac).Select
Selection.NumberFormat = "#,##0.00 $"
primvac = primvac + 1
otra:
Next pestaña
Sheets(destino).Activate
Range("a1").Select
Application.ScreenUpdating = True
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a todos:
Necesito de su ayuda para ver que estoy haciendo mal en la siguiente Macro:
La hoja destino = INGRESOS
La hoja fuente es FACT 005, son varias hojas y cada una de ellas representa una factura, la hoja de ingresos pretendo llevar sólo una sumatoria de cada una de ellas.
Sub pasando_INGRESOS()
Application.ScreenUpdating = False
destino = ActiveSheet.Name
primvac = 4
For Each pestaña In Worksheets
If pestaña.Name = destino Then GoTo otra:
pestaña.Activate
Fecha = Range("e19").Value
Recibo = Range("d19").Value
Codigo = Range("d10").Value
Nombre = Range("a11").Value
Importe = Range("i29").Value
Iva = Range("i30").Value
RetIsr = Range("i32")
RetIva = Range("i33")
Sheets(destino).Range("a" & primvac) = Fecha
Sheets(destino).Range("b" & primvac) = Recibo
Sheets(destino).Range("c" & primvac) = Codigo
Sheets(destino).Range("d" & primvac) = Nombre
Sheets(destino).Range("e" & primvac) = Importe
Sheets(destino).Range("f" & primvac) = Iva
Sheets(destino).Range("g" & primvac) = RetIsr
Sheets(destino).Range("h" & primvac) = RetIva
Range("e" & primvac).Select
Selection.NumberFormat = "#,##0.00 $"
primvac = primvac + 1
otra:
Next pestaña
Sheets(destino).Activate
Range("a1").Select
Application.ScreenUpdating = True