Jump to content

iterar numeración.


Recommended Posts

Hola, buenas noches.

El objetivo de esta macro seria:

Que pida un número por pantalla, y que ese número se itere sumando 150 veces hasta completar la planilla que se muestra,

especificaciones: 

*numero |celdablanco| numero + 1 |celdablanco| (numero +1) + 1 | celdablanco .... hasta que cada fila tenga  6 números con cinco celdas en blanco

* que tras esta fila se salte una fila es decir en la zona sombreada gris no se escriba la serie.

*que conserve lo que se pide por pantalla num inicial y num final en la hoja HISTóRICOa con la fecha.

*adjunto imagen y archivo.

image.thumb.png.631f5f18ea5e8c219e4f14c3cc4ae958.png

No sé cómo plantear este código... me echáis una mano por favor.

Mi idea: 

for columna = 1 to 6 step 2
  for fila = 1 to 50 step 2
    escribirEnLaCelda(fila, columna, valoractual() + 1)
next fila
next columna

 

Espero haberme explicado bien imagino que dentro del primer for habrá que usar offset ....

planillas carros automatizar.xlsm

Link to comment
Share on other sites

Hace 43 minutos , patriciomates dijo:

Hola, buenas noches.

El objetivo de esta macro seria:

Que pida un número por pantalla, y que ese número se itere sumando 150 veces hasta completar la planilla que se muestra,

especificaciones: 

*numero |celdablanco| numero + 1 |celdablanco| (numero +1) + 1 | celdablanco .... hasta que cada fila tenga  6 números con cinco celdas en blanco

* que tras esta fila se salte una fila es decir en la zona sombreada gris no se escriba la serie.

*que conserve lo que se pide por pantalla num inicial y num final en la hoja HISTóRICOa con la fecha.

*adjunto imagen y archivo.

image.thumb.png.631f5f18ea5e8c219e4f14c3cc4ae958.png

No sé cómo plantear este código... me echáis una mano por favor.

Mi idea: 

for columna = 1 to 6 step 2
  for fila = 1 to 50 step 2
    escribirEnLaCelda(fila, columna, valoractual() + 1)
next fila
next columna

 

Espero haberme explicado bien imagino que dentro del primer for habrá que usar offset ....

planillas carros automatizar.xlsm 21.54 kB · 0 descargas

Sub InsertaNumeros()
Dim numeroInicial As String
Dim numeroFinal As String
Dim valorActual As String

valorActual = "016990001"
Range("C1").Select

numeroInicial = InputBox("Valor actual: " & valorActual, "Introduce el número de inicio de la serie", valorActual)

        For columna = 1 To 6 Step 2
        
                For fila = 1 To 50 Step 2
                
                
                Next fila
        Next columna


End Sub
 

Link to comment
Share on other sites

Ahora mismo, patriciomates dijo:

Sub InsertaNumeros()
Dim numeroInicial As String
Dim numeroFinal As String
Dim valorActual As String

valorActual = "016990001"
Range("C1").Select

numeroInicial = InputBox("Valor actual: " & valorActual, "Introduce el número de inicio de la serie", valorActual)

        For columna = 1 To 6 Step 2
        
                For fila = 1 To 50 Step 2
                
                
                Next fila
        Next columna


End Sub
 

No sé si así voy bien

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy