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.

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

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.

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
 

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

Hola

 

Tal vez es esto? Está listo para registrar los datos en la segunda hoja cuando se envíe a imprimir.

 

planillas carros automatizar.xlsm

Hace 1 hora, DiegoPC dijo:

Hola

 

Tal vez es esto? Está listo para registrar los datos en la segunda hoja cuando se envíe a imprimir.

 

planillas carros automatizar.xlsm 23.18 kB · 1 descarga

Si señor es exactamente eso, muchísimas gracias!