Stellar Blade Un'esclusiva PS5 che sta facendo discutere per l'eccessiva bellezza della protagonista. Vieni a parlarne su Award & Oscar!

Excel Forum Per condividere esperienze su Microsoft Excel

Compila celle partendo da un valore

  • Messaggi
  • OFFLINE
    LadyExcel85
    Post: 21
    Registrato il: 26/10/2018
    Città: CASALE MONFERRATO
    Età: 38
    Utente Junior
    2016
    00 25/12/2020 14:45
    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.
  • OFFLINE
    rollis13
    Post: 1.049
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Veteran
    Excel 2016-32bit Win11
    10 25/12/2020 19:35
    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)
  • OFFLINE
    LadyExcel85
    Post: 21
    Registrato il: 26/10/2018
    Città: CASALE MONFERRATO
    Età: 38
    Utente Junior
    2016
    00 26/12/2020 10:23
    Compila celle
    Grazie, funziona perfettamente.
  • OFFLINE
    rollis13
    Post: 1.051
    Registrato il: 16/08/2015
    Città: CORDENONS
    Età: 67
    Utente Veteran
    Excel 2016-32bit Win11
    00 26/12/2020 10:38
    Grazie del riscontro positivo👍.

    ______________________________________________________________
    C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)
  • 15MediaObject5,0014 1
Soluzioni Excel Domande e Risposte
Passa alla versione desktop

  • Anteprima