Excel Forum

	Soluzioni Excel Domande e Risposte
		Compila celle partendo da un valore

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Compila celle partendo da un valore

Ultimo Aggiornamento: 26/12/2020 10:38

LadyExcel85

Post: 21

Registrato il: 26/10/2018

Città: CASALE MONFERRATO

Età: 38

Utente Junior

2016

OFFLINE

25/12/2020 14:45

00#1

Ciao a tutti,

da giorni cerco soluzioni al mio problema ma non ho trovato nulla di utile.
Ho un file con due colonne, nome e quantità, vorrei che su un altro foglio di lavoro a seconda del valore contenuto in q.tà compilasse automaticamente in orizzontale le celle partendo dal numero uno a seguire.
Per esempio in B2 c'è scritto 4, da C2 dovrebbe scrivere uno, in D2 due, in E2 3 e in F2 4.
Siccome i numeri potrebbero essere anche alti vorrei che si compilasse fino alla colonna O e poi ripartisse dalla colonna C proseguendo con la numerazione progressiva.
Non so se sia possibile qualcosa di simile, potete aiutarmi gentilmente?
Allego un file di esempio in cui i dati sono stati inseriti manualmente, vorrei automatizzare questa procedura.

Grazie, saluti e buone feste.

Download (12 KB)

rollis13

Post: 1.049

Registrato il: 16/08/2015

Città: CORDENONS

Età: 67

Utente Veteran

Excel 2016-32bit Win11

OFFLINE

25/12/2020 19:35

10#2

Questa mia macro dovrebbe realizzare quanto chiedi. Puoi copiarla in un modulo standard.

Option Explicit
Sub Inserici_Numeri()
    Dim ur     As Long
    Dim riga      As Long
    Dim ins    As Long
    Dim cont   As Long
    Dim nriga  As Long
    Dim ciclo  As Long
    ur = Range("A" & Rows.Count).End(xlUp).Row
    For riga = ur To 2 Step -1
        ins = Cells(riga, "B").Value
        If ins > 13 Then Range("A" & riga + 1 & ":A" & riga + Int(ins / 13)).EntireRow.Insert
        cont = 1
        nriga = riga
        For ciclo = 1 To ins
            Cells(nriga, 2 + cont).Value = ciclo
            cont = cont + 1
            If cont > 13 Then
                cont = 1
                nriga = nriga + 1
            End If
        Next ciclo
    Next riga
End Sub

______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)

LadyExcel85

Post: 21

Registrato il: 26/10/2018

Città: CASALE MONFERRATO

Età: 38

Utente Junior

2016

OFFLINE

26/12/2020 10:23