E usando invece "Cdate"?
Ciao
Moderatori: Anthony47, Flash30005
For RRF = 8 To URF '<<<< ma così
URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
Private Sub CommandButton1_Click()
Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
VT = CInt(TextBox1)
For RRF = 8 To URF
Sheets(FF).Select
If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Range("C1").Value
Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Name
Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
Sheets("Riepilogo").Range("E" & URR).Value = Sheets(FF).Range("E" & RRF).Value
Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
End If
Next RRF
Sheets(FF).Select
End If
Next FF
Worksheets("Riepilogo").Select
End Sub
Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
VT = CInt(TextBox1)
For RRF = 8 To URF
Sheets(FF).Select
If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Name
Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value
Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
Sheets("Riepilogo").Range("F" & URR).Value = Sheets(FF).Range("E" & RRF).Value
End If
Next RRF
Sheets(FF).Select
End If
Next FF
Worksheets("Riepilogo").Select
Private Sub CommandButton1_Click()
Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
MNf = ""
If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
NF = Sheets(FF).Range("C1").Value
URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
VT = CInt(TextBox1)
For RRF = 8 To URF
Sheets(FF).Select
If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Range("C1").Value
If MNf <> NF Then
Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Name
MNf = NF
End If
Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
Sheets("Riepilogo").Range("E" & URR).Value = Sheets(FF).Range("E" & RRF).Value
Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
End If
Next RRF
Sheets(FF).Select
End If
Next FF
Worksheets("Riepilogo").Select
End Sub
Worksheets("Riepilogo").Range("A2:I65000").ClearContents
For FF = 1 To Worksheets.Count
MNf = ""
If UCase(Sheets(FF).Name) <> "RIEPILOGO" Then
NF = Sheets(FF).Range("C1").Value
URF = Sheets(FF).Range("B" & Rows.Count).End(xlUp).Row
VT = CInt(TextBox1)
For RRF = 8 To URF
Sheets(FF).Select
If Month(CDate(Sheets(FF).Range("E" & RRF).Value)) = VT Then
URR = Sheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value
If MNf <> NF Then
Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Name
MNf = NF
End If
Sheets("Riepilogo").Range("C" & URR).Value = Sheets(FF).Range("B" & RRF).Value
Sheets("Riepilogo").Range("F" & URR).Value = Sheets(FF).Range("E" & RRF).Value
Sheets("Riepilogo").Range("D" & URR).Value = Sheets(FF).Range("C" & RRF).Value
End If
Next RRF
Sheets(FF).Select
End If
Next FF
Worksheets("Riepilogo").Select
Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value
If MNf <> NF Then
Sheets("Riepilogo").Range("B" & URR).Value = Sheets(FF).Range("C1").Value '<<< inserita qui
Sheets("Riepilogo").Range("A" & URR).Value = Sheets(FF).Name
MNf = NF
End If
URR = Sheets("Riepilogo").Range("C" & Rows.Count).End(xlUp).Row + 1
Torna a Applicazioni Office Windows
Trsposizione valori stessa voce tra fogli Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 1 |
Dividere foglio in piu' fogli e concatena Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 14 |
Visitano il forum: Nessuno e 33 ospiti