ennio.c
00sabato 23 dicembre 2023 17:46
Buonasera, ho un database dove nella colonna "G" è riportato il numero complessivo di codici a barre assegnati ad ogni articolo, in colonna "I" ho inserito il numero complessivo sottraendo il cod. a barre già esposto, ora io vorrei inserire automaticamente al di sotto di ogni riga tante righe pari al valore della colonna "I" (anche vuote)
dodo47
10sabato 23 dicembre 2023 18:24
ciao
qualcosa del genere:
Sub insRighe()
Dim lr As Long, j As Long, nRighe As Integer
lr = Range("A" & Rows.Count).End(xlUp).Row
For j = lr To 2 Step -1
nRighe = Cells(j, 9)
If nRighe > 0 Then Cells(j + 1, 1).EntireRow.Resize(nRighe).Insert Shift:=xlDown
Next
End Sub
Saluti
ennio.c
00sabato 23 dicembre 2023 18:40
ciao
perfetto grazie