Macro para pegar datos según lo pretendido
Lo que pretendo es: Si en el rango B14:B23 existen 2 renglones, 2 renglones son pegados en hoja Destino. Si en rango B14:B23 existen 5, 5 son pegados en hoja Destino. Si existen 10 (que es el cupo completo para una factura (10 líneas)) los 10 son pegados en Destino.
Sobre la Fecha en E11 de hoja Origen (Factura) puede pegarla en Destino, una sola vez o en todos renglones pegados, pero como puedes ver en la imagen arriba que contiene de fondo amarillo (quemado) como hace el pegue en hoja Destino, muy diferente a lo que pretendo.
El libro ya lo envíe
1 Respuesta
H o l a:
Te anexo la macro actualizada
Sub PasarDatos()
'Por.Dante Amor
Set h1 = Sheets("Factura")
Set h2 = Sheets("Ventas")
'
For i = 14 To 23
If h1.Cells(i, "B") = "" Then Exit For
'
u = h2.Range("E" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "A") = h1.Cells(i, "B")
h2.Cells(u, "B") = h1.Cells(i, "C")
h2.Cells(u, "C") = h1.Cells(i, "D")
h2.Cells(u, "D") = h1.Cells(i, "E")
h2.Cells(u, "E") = h1.Cells(11, "E")
Next
'
MsgBox "Fin"
End Subsal u dos
Buen día Dante
El libro ultimo que te envíe tiene la hoja Destino como ejemplo de como tiene que quedar los datos pegados y el que me envías aparece es en la hoja Ventas pero todo pegado, una y otra factura sin separación entre lo facturado.
En mi pregunta expuse que:
Lo que pretendo es: Si en el rango B14:B23 existen 2 renglones, 2 renglones son pegados en hoja Destino. Si en rango B14:B23 existen 5, 5 son pegados en hoja Destino. Si existen 10 (que es el cupo completo para una factura (10 líneas)) los 10 son pegados en Destino
En hoja Destino es donde están los títulos tal como en hoja Factura
Hoja Factura
Hoja Destino
Vere como y si logro acomodar las cosas, lo que si no sabre es colocarle en espacio de 1 línea entre factura y factura en hoja Destino
Digamos que pega bien, si pero no deja el espacio entre pegue y pegue como muestra la imagen y el
Total venta (E27) y Bs. 000.000,00 (F27)
Después de eso para pegar nueva pega (factura) tien que dejar una línea en vacío entyre pegue y pegue
Ya modifique sobre el titulo de Precio/U/Venta para Total
Me falta agregar lo de Total venta (E27) y Bs. 000.000,00 (F27) y la línea de separacio nentre pegue
Te anexo la macro actualizada para pasar los datos al hoja "destino"
Sub PasarDatos()
'Por.Dante Amor
Set h1 = Sheets("Factura")
Set h2 = Sheets("Destino")
'
u = h2.Range("C" & Rows.Count).End(xlUp).Row + 2
For i = 14 To 23
If h1.Cells(i, "B") = "" Then Exit For
'
h2.Cells(u, "A") = h1.Cells(i, "B")
h2.Cells(u, "B") = h1.Cells(i, "C")
h2.Cells(u, "C") = h1.Cells(i, "E")
h2.Cells(u, "D") = h1.Cells(i, "F")
h2.Cells(u, "E") = h1.Cells(11, "E")
u = u + 1
Next
h2.Cells(u, "B") = h1.Cells(27, "E")
h2.Cells(u, "C") = h1.Cells(27, "F")
'
MsgBox "Fin"
End Subsal u dos
Ya logre también el pegado de Total venta (E27) y Bs. 000.000,00 (F27)
Falta línea separadora
Prueba la última macro que te envié, pone la línea y el total.
