Moderatori: Anthony47, Flash30005
Public Ir As Integer
Sub Contafogli()
Nf = Worksheets.Count
Ir = 0
IRC = 0
Worksheets("Riepilogo").Range("A3").Select
For I = 2 To Nf
ActiveCell.Offset(Ir, 0).Value = Worksheets(I).Name
Range("A" & Ir + 3).Font.Bold = True
Call Riempi
Ir = Ir + 7
Next
Call Compila
End Sub
Sub Riempi()
IRC = Ir + 2
C = 0
For Col = 10 To 90
ActiveCell.Offset(IRC, C).Value = Col
ActiveCell.Offset(IRC + 1, C).Value = "V"
C = C + 1
ActiveCell.Offset(IRC, C).Value = Col
ActiveCell.Offset(IRC + 1, C).Value = "I"
C = C + 1
Next
Rows(IRC + 3 & ":" & IRC + 5).HorizontalAlignment = xlCenter
Worksheets("Riepilogo").Range("A3").Select
End Sub
Sub Compila()
For Va = 3 To 73 Step 7
Foglio = Worksheets("Riepilogo").Range("A" & Va).Value
Nval = Worksheets(Foglio).Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To Nval
RifVal = Worksheets(Foglio).Range("A" & I).Value & Worksheets(Foglio).Range("B" & I).Value
For RR = 1 To 180
Worksheets("Riepilogo").Cells(Va + 2, RR).Select
If RifVal = Worksheets("Riepilogo").Cells(Va + 2, RR).Value & Worksheets("Riepilogo").Cells(Va + 3, RR).Value Then Worksheets("Riepilogo").Cells(Va + 4, RR).Value = Worksheets(Foglio).Range("C" & I).Value
Next
Next
Next
End Sub
[L’estensione zip è stata disattivata e non puó essere visualizzata.]
Torna a Applicazioni Office Windows
Come evidenziare aree separate di un foglio Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 18 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
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 23 ospiti