Moderatori: Anthony47, Flash30005
MX = (InputBox("Immettere n° riga di inizio controllo")) ' '<<<<<<<<<<<<<<<< Esistente
' <<<<<<<<<<<<< inizio modifica
If MX = "" Then Exit Sub
'On Error Resume Next
For VX = 0 To 31
X(VX) = MX + Agg
Agg = Agg + 2
Next VX
For Riga = 12 To 43
'
Range("B" & Riga).Value = Worksheets("Dati orig.").Range("A" & X(Riga - 12))
Range("C" & Riga).Value = Worksheets("Dati orig.").Range("B" & X(Riga - 12))
Range("D" & Riga).Value = Worksheets("Dati orig.").Range("C" & X(Riga - 12)) + [D8] + [D5]
Range("E" & Riga).Value = Worksheets("Dati orig.").Range("D" & X(Riga - 12)) + [E8] + [E5]
Range("F" & Riga).Value = Worksheets("Dati orig.").Range("E" & X(Riga - 12)) + [F8] + [F5]
Range("G" & Riga).Value = Worksheets("Dati orig.").Range("F" & X(Riga - 12)) + [G8] + [G5]
Range("H" & Riga).Value = Worksheets("Dati orig.").Range("G" & X(Riga - 12)) + [H8] + [H5]
Range("I" & Riga).Value = Worksheets("Dati orig.").Range("H" & X(Riga - 12)) + [I8] + [I5]
Range("J" & Riga).Value = Worksheets("Dati orig.").Range("I" & X(Riga - 12)) + [J8] + [J5]
Range("K" & Riga).Value = Worksheets("Dati orig.").Range("J" & X(Riga - 12)) + [K8] + [K5]
Range("L" & Riga).Value = Worksheets("Dati orig.").Range("K" & X(Riga - 12)) + [L8] + [L5]
Next Riga
'
' <<<<<<<<<<<<<< fine modifica
Range("P1").Value = Range("A4").Value '<<<<<<<<<<<<<<<< Esistente
Sub Inserisci_CellaDati()
'
Range("B12:L43").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.FormatConditions.Delete
Range("Q13:Y27").ClearContents '<<<< esistente
'<<<< qui ho eliminato righe inutili
Dim X(31) As Integer '<<<<< aggiungere
Agg = 0 '<<<<<< aggiungere
'
On Error GoTo 0 '<<<< esistente
For VX = 0 To 31
X(VX) = MX + Agg
If VX <> 16 Then Agg = Agg + 2 '<<<<<<< modificare così la riga
Next VX
Torna a Applicazioni Office Windows
Macro modifica date scelta periodo Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 42 ospiti