Excel - Boton Siguiente en VBA MACRO

 
Vista:
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

Boton Siguiente en VBA MACRO

Publicado por Rogelio (5 intervenciones) el 14/03/2019 22:28:29
Buenas tardes

Les platico mi problema tengo en una hoja de excel, una plantilla que me servirá para imprimir los datos.

Plantilla
Las celdas en amarillo, son las celdas que cambiaran su información con forme a la siguiente tabla.


Tabla

Bueno, aqui lo que quiero realizar es que cuando yo le de clic al boton Siguiente me cambie los valores de la plantilla a los valores de la siguiente fila de la tabla.

Aquí mi código, solo me da los valores de la primera fila de la tabla

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
 
    Dim valOrigen As Excel.Worksheet
 
    Set valOrigen = Worksheets("Hoja2")
 
    Dim RContenedor
    Dim RProducto
    Dim RArchivo
 
    x = 2
    RContenedor = valOrigen.Range("B" & x).Value
    RProducto = valOrigen.Range("C" & x).Value
    RArchivo = valOrigen.Range("D" & x).Value
 
    Range("E2").Value = RContenedor
    Range("F11").Value = RPedimento
    Range("G11").Value = RRemesa
 
    x = x + 1
 
End Sub
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 Andres Leonardo
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Boton Siguiente en VBA MACRO

Publicado por Andres Leonardo (1583 intervenciones) el 14/03/2019 23:36:31
Es por que siempre inicializas con 2 ....

el tema es que deberias ese valor 2 dejarlo en una celda ... y luego cuando presionas el boton darle a esa celda el valor + 1

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
 
Dim valOrigen As Excel.Worksheet
 
Set valOrigen = Worksheets("Hoja2")
 
Dim RContenedor
Dim RProducto
Dim RArchivo
 
x = valOrigen.Range("A" & 1).Value   ' diciendo que el valor esta en la hoja en la celda A1
RContenedor = valOrigen.Range("B" & x).Value
RProducto = valOrigen.Range("C" & x).Value
RArchivo = valOrigen.Range("D" & x).Value
 
Range("E2").Value = RContenedor
Range("F11").Value = RPedimento
Range("G11").Value = RRemesa
 
valOrigen.Range("A" & 1).Value  = valOrigen.Range("A" & 1).Value  + 1   ' te quedara en  A1  guardado... el tema es que en algun momento esto debera volver a ser  2 .. indicanos cuando........
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 7
Ha aumentado su posición en 3 puestos en Excel (en relación al último mes)
Gráfica de Excel

Boton Siguiente en VBA MACRO

Publicado por Rogelio (5 intervenciones) el 15/03/2019 00:06:53
Quedo muy bien, me funciona a la perfección.
Para que vuelva a 2, seria cuando llegue a la ultima fila o ya no encuentre datos
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