Visual Basic para Aplicaciones - AVANZAR EN UN RANGE

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Hector Madriz
Val: 50
Ha aumentado su posición en 11 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

AVANZAR EN UN RANGE

Publicado por Hector Madriz (8 intervenciones) el 14/08/2019 03:36:23
Buen día, anexa un libro de ejemplo para poder evaluar lo que requieres.

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Revisar política de publicidad