Se puede en excel? combinar tablas

hola, Hector !
Ya entiendo, un poquito. Desde la fila 1 hasta la última fila no vacía For
Fila = 1 To .Range("a65536").End(xlUp).Row

Entonces defines FILA = “desde 1 hasta la última fila no vacía”

Luego defines SERIE = “desde a1 hasta la últma fila no vacía” que es lo
mismo que SERIE = .Range("a" & Fila), porque supongo que .Range("a" & Fila)
significa a & 1, a & 2, a & 3 … a & “última no vacía”, que debe ser lo mismo
que a1, a2, a3 porque “&” se usa para unir *textos*

Saludos,
Griego59

Ahora supongo que en el código .Cells.Find(Serie, .Cells(1), xlValues,
xlWhole) *serie* será sustituido por el rango anteriormente definido. Es
decir desde a1 hasta la última no vacía. Solamente me falta saber el resto de
los parámetros .Cells(1), xlValues, xlWhole)

y entonces,
Registro.Offset(, 6) supongo que significa que va a copiar despues de la
columna 6, es decir en la columna G,

.Resize(, 2) debe significar que son dos columnas las que copiará.
Lo que no veo es como haces para que copie el título de las columnas en
COMPRAS, es NUMERO DE FACTURA DE VENTA y FECHA DE VENTA

Por cierto, estos comandos pueden ser en castellano o siempre se manejan en
ingles?

Saludos

Griego59

hola, Darío !

__ 1 __

y entonces,
Registro.Offset(, 6) supongo que significa que va a copiar despues de la columna 6, es decir en la columna G,
.Resize(, 2) debe significar que son dos columnas las que copiara.
Lo que no veo es como haces para que copie el titulo de las columnas en COMPRAS
es NUMERO DE FACTURA DE VENTA y FECHA DE VENTA

__ 2 __

Por cierto, estos comandos pueden ser en castellano o siempre se manejan en ingles?

1) en la macro para el pase de datos desde la hoja "facturadeventas" hay un bloque With
que indica que se rescataran datos desde esta hoja [la fecha, y el numero de factura]
datos que se pasan al .Resize(, 2) de la hoja "compras" mediante un Array(...

Sub RegistraFactura()
Dim Fila As Byte: Application.ScreenUpdating = False
With Worksheets("facturadeventas") ' de esta factura se leeran los datos de fecha y numero
For Fila = 4 To Application.CountA(.Range("b4:b18")) + 3
Worksheets("compras").Range("a:a") _
.Cells.Find(.Range("b" & Fila), Range("a1"), xlValues, xlWhole).Offset(, 6) _
.Resize(, 2) = Array(.Range("b2").Value, .Range("a2").Value) ' <= este es el Array de valores
Next
End With
End Sub

2) lo siento, las instrucciones [VBA] requieren ser en ingles desde la version 7/95
[hasta donde se] hubo una sola version donde VBA era segun el idioma instalado
preo tuvo *severos* problemas en aplicaciones cuyo uso requeria de internacionalizacion

saludos,
hector.

Hola Hector
Me he distraido aprendiendo códigos y he dejado de lado mi proyecto de
facturación e inventario.
Sabes que necesito agregar una instrucción al final de la macro que copia
los datos de la hoja FACTURADEVENTA a la hoja COMPRAS, para *blanquear* la
hoja FACTURADEVENTAS de manera de que esté lista para una nueva venta, es
decir que deje todos los campos sin contenido. Me puedes ayudar con esto?

Saludos,

Griego59