AYUDA EN VisualBasic
Publicado por Jose Gomez (1 intervención) el 08/09/2016 01:53:01
Requiero ayuda se me genera el error 24 en la linea 4, falta objeto
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Call Imprimir
Filalibre = Sheets("Base").Range("A1048576").End(xlUp).Row + 1
AtiveSheet.Range("A10").Select
Fila = 10While ActiveCell.Value <> ""
Sheets("Base").Cells(Filalibre, 2) = ActiveSheet.Range("E4") 'NRO FACTURA
Sheets("Base").Cells(Filalibre, 1) = ActiveSheet.Range("E6") 'FECHA
Sheets("Base").Cells(Filalibre, 3) = ActiveSheet.Range("B4") 'CLIENTE
Sheets("Base").Cells(Filalibre, 6) = ActiveCell.Offset("0, 0") 'CANTIDAD
Sheets("Base").Cells(Filalibre, 4) = ActiveCell.Offset("0, 1") 'PRODUCTO
Sheets("Base").Cells(Filalibre, 5) = ActiveCell.Offset("0, 2") 'DESCRIPCION
Sheets("Base").Cells(Filalibre, 7) = ActiveCell.Offset("0, 3") 'PRECIO UNITARIO
Sheets("Base").Cells(Filalibre, 8) = ActiveCell.Offset("0, 4") 'TOTAL
Filalibre = Filalibre + 1
ActiveCell.Offset(1, 0).Select
Wend
Call Limpieza
End Sub
Valora esta pregunta
0
