Consulta Macro que no me funciona

filirojas · el 11 de noviembre

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

febrero59 · el 11 de noviembre

Buenas noches,

Al captar los valores de la hoja incluye Activesheet:

Fecha = ActiveSheet.Range("e19").Value

......

Creo que te funcionará.

Buenas noches,

Juan.

PD: Debieras incluir el fichero con el ejemplo; un extracto bastaría. Así podríamos hablar de realidades y facilitar una respuesta segura... Sino, estamos casi apostando, con teorías, suposiciones, dibujando en el aire,... Un abrazo.

filirojas · el 11 de noviembre

[TABLE=width: 448]

[TR]

[TD=class: xl125, width: 597, bgcolor: #1F497D, colspan: 9]Documento Origen Fuente:[/TD]

[/TR]

[TR]

[TD=class: xl125, width: 597, bgcolor: #1F497D, colspan: 9]

_FILIBERTO ROJAS FRAGOSA[/TD]

[/TR]

[TR]

[TD=class: xl65, bgcolor: transparent]Nombre:[/TD]

[TD=class: xl66, bgcolor: transparent, colspan: 3]Filiberto Rojas Fragosa[/TD]

[TD=class: xl67, bgcolor: transparent] [/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl68, bgcolor: transparent]R.F.C.[/TD]

[TD=class: xl69, bgcolor: transparent] [/TD]

[TD=class: xl70, bgcolor: transparent]ROFF-500822-4W9[/TD]

[/TR]

[TR]

[TD=class: xl65, bgcolor: transparent]Domicilio:[/TD]

[TD=class: xl66, bgcolor: transparent, colspan: 3]Calle Zacatecas N° 34[/TD]

[TD=class: xl67, bgcolor: transparent] [/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl71, bgcolor: transparent]C.U.R.P.[/TD]

[TD=class: xl72, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]ROFF-500822HBCJRL05[/TD]

[/TR]

[TR]

[TD=class: xl74, bgcolor: transparent] [/TD]

[TD=class: xl66, bgcolor: transparent, colspan: 4]Fraccionamiento El Pedregal[/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl128, bgcolor: transparent, colspan: 2]TELEFONO:[/TD]

[TD=class: xl75, bgcolor: transparent]665-654-8994[/TD]

[/TR]

[TR]

[TD=class: xl76, bgcolor: transparent] [/TD]

[TD=class: xl77, bgcolor: transparent, colspan: 4]Tecate, Baja California, C.P. 21450[/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl130, bgcolor: transparent, colspan: 3]filirojas@outlook.com[/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl80, bgcolor: #D9D9D9, colspan: 2]CLIENTE:[/TD]

[TD=class: xl82, bgcolor: #D9D9D9]CÓDIGO[/TD]

[TD=class: xl83, bgcolor: #D9D9D9]1[/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl84, bgcolor: #D9D9D9, colspan: 4, align: center]DATOS FISCALES:[/TD]

[/TR]

[TR]

[TD=class: xl65, bgcolor: transparent, colspan: 3]Filiberto Rojas Fragosa[/TD]

[TD=class: xl67, bgcolor: transparent] [/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl87, bgcolor: transparent]R.F.C.[/TD]

[TD=class: xl88, bgcolor: transparent, colspan: 3, align: center]ROFF-500822-4W9[/TD]

[/TR]

[TR]

[TD=class: xl65, bgcolor: transparent, colspan: 3]Calle Zacatecas N° 34[/TD]

[TD=class: xl67, bgcolor: transparent] [/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl87, bgcolor: transparent]C.U.R.P.[/TD]

[TD=class: xl88, bgcolor: transparent, colspan: 3, align: center]ROFF500822HBCJRL05[/TD]

[/TR]

[TR]

[TD=class: xl65, bgcolor: transparent, colspan: 4]Fraccionamiento El Pedregal[/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl74, bgcolor: transparent] [/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl67, bgcolor: transparent] [/TD]

[/TR]

[TR]

[TD=class: xl91, bgcolor: transparent, colspan: 4]Tecate, Baja California, C.P. 21450[/TD]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=class: xl76, bgcolor: transparent] [/TD]

[TD=class: xl78, bgcolor: transparent] [/TD]

[TD=class: xl79, bgcolor: transparent] [/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl92, bgcolor: transparent] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]Impuesto Al Valor Agregado[/TD]

[TD=class: xl94, bgcolor: #D9D9D9]16.0%[/TD]

[TD=class: xl92, bgcolor: transparent] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]Retención ISR[/TD]

[TD=class: xl95, bgcolor: #D9D9D9, align: right]10.0%[/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl120, bgcolor: transparent, colspan: 2]RECIBO NÚMERO[/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 2]MES FACTURADO[/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 2]FECHA[/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 3]CONDICIONES DE PAGO[/TD]

[/TR]

[TR]

[TD=class: xl133, bgcolor: transparent, colspan: 2]FR - 005[/TD]

[TD=class: xl135, bgcolor: transparent, colspan: 2]NOVIEMBRE 2012[/TD]

[TD=class: xl137, bgcolor: transparent, colspan: 2]11-Nov-2012[/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 3]EN UNA SÓLA EXHIBICIÓN[/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl96, bgcolor: #D9D9D9, colspan: 9, align: center]CONCEPTOS FACTURADOS[/TD]

[/TR]

[TR]

[TD=class: xl99, bgcolor: transparent, align: center]CANTIDAD[/TD]

[TD=class: xl88, bgcolor: transparent, colspan: 5, align: center]DESCRIPCIÓN DEL SERVICIO[/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 2]PRECIO UNITARIO[/TD]

[TD=class: xl99, bgcolor: transparent, align: center]IMPORTE[/TD]

[/TR]

[TR]

[TD=class: xl102, bgcolor: transparent]1[/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 5]Asesoria Contable y Fiscal[/TD]

[TD=class: xl123, bgcolor: transparent, colspan: 2] $ 1,500.00 [/TD]

[TD=class: xl103, bgcolor: transparent] $ 1,500.00 [/TD]

[/TR]

[TR]

[TD=class: xl102, bgcolor: transparent] [/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 5] [/TD]

[TD=class: xl139, bgcolor: transparent, colspan: 2] [/TD]

[TD=class: xl104, bgcolor: transparent] [/TD]

[/TR]

[TR]

[TD=class: xl102, bgcolor: transparent] [/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 5] [/TD]

[TD=class: xl139, bgcolor: transparent, colspan: 2] [/TD]

[TD=class: xl104, bgcolor: transparent] [/TD]

[/TR]

[TR]

[TD=class: xl102, bgcolor: transparent] [/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 5] [/TD]

[TD=class: xl139, bgcolor: transparent, colspan: 2] [/TD]

[TD=class: xl104, bgcolor: transparent] [/TD]

[/TR]

[TR]

[TD=class: xl102, bgcolor: transparent] [/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 5] [/TD]

[TD=class: xl139, bgcolor: transparent, colspan: 2] [/TD]

[TD=class: xl104, bgcolor: transparent] [/TD]

[/TR]

[TR]

[TD=class: xl102, bgcolor: transparent] [/TD]

[TD=class: xl120, bgcolor: transparent, colspan: 5] [/TD]

[TD=class: xl139, bgcolor: transparent, colspan: 2] [/TD]

[TD=class: xl104, bgcolor: transparent] [/TD]

[/TR]

[TR]

[TD=width: 128, bgcolor: transparent, colspan: 2] Bitmap [TABLE]

[TR]

[TD=class: xl142, width: 128, bgcolor: #EEECE1, colspan: 2] [/TD]

[/TR]

[/TABLE]

[/TD]

[TD=class: xl105, bgcolor: #EEECE1] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]IMPORTE HONORARIOS[/TD]

[TD=class: xl106, bgcolor: #EEECE1] [/TD]

[TD=class: xl107, bgcolor: transparent] $ 1,500.00 [/TD]

[/TR]

[TR]

[TD=class: xl108, bgcolor: #EEECE1] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]IMPUESTOS AL VALOR AGREGADO[/TD]

[TD=class: xl109, bgcolor: transparent, align: right]11.0%[/TD]

[TD=class: xl110, bgcolor: transparent] $ 165.00 [/TD]

[/TR]

[TR]

[TD=class: xl108, bgcolor: #EEECE1] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]SUB TOTAL[/TD]

[TD=class: xl106, bgcolor: #EEECE1] [/TD]

[TD=class: xl107, bgcolor: transparent] $ 1,665.00 [/TD]

[/TR]

[TR]

[TD=class: xl108, bgcolor: #EEECE1] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]RETENCIÓN I.S.R.[/TD]

[TD=class: xl109, bgcolor: transparent, align: right]0.0%[/TD]

[TD=class: xl110, bgcolor: transparent] $ - [/TD]

[/TR]

[TR]

[TD=class: xl108, bgcolor: #EEECE1] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]RETENCIÓN I.V.A.[/TD]

[TD=class: xl111, bgcolor: transparent, align: right]0.00%[/TD]

[TD=class: xl110, bgcolor: transparent] $ - [/TD]

[/TR]

[TR]

[TD=class: xl112, bgcolor: #EEECE1] [/TD]

[TD=class: xl93, bgcolor: transparent] [/TD]

[TD=class: xl73, bgcolor: transparent]PAGO NETO[/TD]

[TD=class: xl106, bgcolor: #EEECE1] [/TD]

[TD=class: xl110, bgcolor: transparent] $ 1,665.00 [/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl113, bgcolor: transparent, colspan: 9, align: center]#NAME?[/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl115, bgcolor: #D9D9D9, colspan: 9, align: center]Efectos Fiscales Al Pago - Impuesto Retenido De Conformidad Con La Ley Del Impuesto Al Valor Agregado[/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl118, bgcolor: transparent, colspan: 9, align: center]Filiberto Rojas Fragosa

Documento Destino

[TABLE=width: 779]

[TR]

[TD]Fecha[/TD]

[TD]Recibo[/TD]

[TD]Código[/TD]

[TD]Nombre Cliente[/TD]

[TD]Importe[/TD]

[TD]Iva Trasladado[/TD]

[TD]Ret ISR[/TD]

[TD]Ret IVA[/TD]

[TD]Fecha De Pago[/TD]

[/TR]

[TR]

[TD]11-Nov-2012[/TD]

[TD]FR - 005[/TD]

[TD]1[/TD]

[TD]Filiberto Rojas Fragosa[/TD]

[TD] $ 1,500.00 [/TD]

[TD] $ 165.00 [/TD]

[TD] $ - [/TD]

[TD] [/TD]

[/TR]

[TR]

[TD]9-Nov-2012[/TD]

[TD]FR - 008[/TD]

[TD]1[/TD]

[TD]Filiberto Rojas Fragosa[/TD]

[TD] $ 1,500.00 [/TD]

[TD] $ 165.00 [/TD]

[TD] $ - [/TD]

[TD] [/TD]

[/TR]

[TR]

[TD] [/TD]

[/TR]

[/TABLE]

[/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[/TR]

[/TABLE]

tese1969 · el 12 de noviembre

Me da que Febrero59 no se refería a eso........:congratulatory:

Adjunta un archivo con datos ficticios, pero con la estructura real.........para poder estructurar el código.....

Un saludo,

Tese

filirojas · el 12 de noviembre

Tese,

Gracias, ¿como subo la hojas?

Saludos,

- - - - - Mensaje combinado - - - - -

Envio Archivos,

Rec5 Documento Fuente

Control de Ingresos = Archivo Destino

En Rec5 marcados en amarillo están los ocho datos que pretendo copiar a Control dle Ingresos,

Gracias por la ayuda y una disculpa por el exceso de Ignorancia, apenas tratando de aprender.

Saludos.

Rec5.zip

Control De Ingresos.zip

tese1969 · el 12 de noviembre

Pero en los archivos que has subido no está el código que incluías en tu primera pregunta......

Además, cuál es el fallo que tenías?.......si con lo que te ha dicho Febrero59 no lo has solucionado, es que quizás el error esté en otro lado.......

Ya te adelanto que como quieras ejecutar el código una vez que tengas ciertos datos en Control de Ingresos te los va a sobreescribir.........porque la primera línea (tal y como lo tienes diseñado) siempre la incluirá en la fila 4.......

Un saludo,

Tese