Moderatori: Anthony47, Flash30005
Sub Aggiorna()
Application.ScreenUpdating = False
Application.Calculation = xlManual
Dim Ws1, Ws2 As Worksheet
Dim UR1, Ur2, RR1, NB As Integer
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Riepilogo")
NB = 1
Ws1.Select
Range("A2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Riepilogo").Select
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
Ur2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
If Ur2 < 7 Then Ur2 = 7
Ws2.Range("A7:G" & Ur2).ClearContents
For RR1 = 2 To UR1
Ur2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row + 1
Ws1.Range("A" & RR1 & ":A" & RR1).Copy
Ws2.Range("A" & Ur2).PasteSpecial Paste:=xlPasteValues
Ws2.Range("B" & Ur2).Value = NB
NB = NB + 1
Ws1.Range("B" & RR1 & ":D" & RR1).Copy
Ws2.Range("C" & Ur2).PasteSpecial Paste:=xlPasteValues
Ws1.Range("F" & RR1 & ":G" & RR1).Copy
Ws2.Range("F" & Ur2).PasteSpecial Paste:=xlPasteValues
Next RR1
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 82 ospiti