Archivo de facturación e inventario con errores
Estoy trabajando en un archivo de Facturación e Inventarios pero tengo algunos errores en la programación en VBA, Raúl Guerrero me ha ayudado muchísimo pero no quiero seguir abusando de su colaboración.
¿Alguien qué disponga de un poquito de tiempo para ayudarme con esto?
1 Respuesta
Te dejo aquí la macro de ordenación que se agrega luego del pase de datos a la base:
Según macro en respuesta anterior, se agrega la instrucción en negrita a continuación de la copia. Luego en un módulo encontrarás la subrutina.
'EM: copia de hoja Factura, a partir de col U, a hoja BDClientes primer fila libre
filx = ActiveCell.Row
fily = Sheets("BD CLIENTES").Range("A" & Rows.Count).End(xlUp).Row + 1
Range("U" & filx & ":AM" & filx).Copy Destination:=Sheets("BD CLIENTES").Range("A" & fily)
'EM: ordenar la base
Call ordenaBDClie
Sub ordenaBDClie()
'x Elsamatilde
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("BD CLIENTES").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD CLIENTES").Sort.SortFields.Add Key:=Range( _
"A2:A" & Range("A" & Rows.Count).End(xlUp).Row), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("BD CLIENTES").Sort
.SetRange Range("A1:S" & Range("A" & Rows.Count).End(xlUp).Row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A2").Select
End Sub
