Saltar al contenido

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

Enlace a comentario
Compartir con otras webs

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
 

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.