AVANZAR EN UN RANGE
Publicado por JENNY PIRAJON (1 intervención) el 09/08/2019 16:15:11
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub CommandButton1_Click()
'Definir variables a utilizar
'Dim wsOrigen As Excel.Worksheet, _
' wsDestino As Excel.Worksheet, _
' rngOrigen As Excel.Range, _
' rngDestino As Excel.Range
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
Dim x As Integer
Dim CELL As Range
NumRows = Range("B10", Range("B10").End(xlDown)).Rows.Count
For x = 1 To NumRows
NombreHoja = "BASE"
Set HojaDestino = ThisWorkbook.Sheets("Base").Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1
With ThisWorkbook.Sheets(NombreHoja)
.Cells(NuevaFila, 1).Value = ThisWorkbook.Sheets("FACTURA").Range("G7")
.Cells(NuevaFila, 2).Value = ThisWorkbook.Sheets("FACTURA").Range("F7")
.Cells(NuevaFila, 3).Value = ThisWorkbook.Sheets("FACTURA").Range("G3")
.Cells(NuevaFila, 4).Value = ThisWorkbook.Sheets("FACTURA").Range("C3") 'cliente
.Cells(NuevaFila, 5).Value = ThisWorkbook.Sheets("FACTURA").Range("D10") 'cantidad
.Cells(NuevaFila, 6).Value = ThisWorkbook.Sheets("FACTURA").Range("B10") 'codigo
.Cells(NuevaFila, 7).Value = ThisWorkbook.Sheets("FACTURA").Range("C10") 'descripcion
.Cells(NuevaFila, 8).Value = ThisWorkbook.Sheets("FACTURA").Range("E10") 'unidad
.Cells(NuevaFila, 9).Value = ThisWorkbook.Sheets("FACTURA").Range("F10") 'precio unitario
.Cells(NuevaFila, 10).Value = ThisWorkbook.Sheets("FACTURA").Range("G26") 'total
.Cells(NuevaFila, 11).Value = ThisWorkbook.Sheets("FACTURA").Range("G24") ' iva
End With
Next
MsgBox "DATOS GUARDADOS", vbInformation, "EXCELeINFO"
End Sub
TENGO ESTE CODIGO PERO NECESITO QUE ME AVANCE EL RANGE ,ES DECIR QUE DESPUÉS PASE AL C11 ,C12,C13 PERO SOLO ME COPIA VARIAS VECES
1
.Cells(NuevaFila, 7).Value = ThisWorkbook.Sheets("FACTURA").Range("C10") 'descripción
Valora esta pregunta
0