Ciao a tutti, vi chiedo se si puo' impostare una macro che mi conti le righe presenti in un foglio di lavoro, le divida per 3 e copi i tre pacchetti in un file di appoggio. Grazie mille
marco
Moderatori: Anthony47, Flash30005
Sub CopiaRighe()
Dim Percorso As String
Dim NomeFile As String
FileDati = ThisWorkbook.Name
Percorso = "C:\Data\"
NomeFile = "Mio.xls"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Percorso & NomeFile
Windows(FileDati).Activate
UR = Worksheets("Dati").Range("A" & Rows.Count).End(xlUp).Row
DivR = Int(UR / 3)
If UR Mod 3 <> 0 Then DivR = Int(UR / 3) + 1
Ini = 1
For DR = 1 To 3
VDR = DR - 1
Worksheets("Dati").Rows(Ini + VDR * DivR & ":" & DivR * DR).Copy Destination:=Workbooks("Mio.xls").Worksheets("Foglio" & DR).Range("A1")
Next DR
Windows(NomeFile).Activate
ActiveWorkbook.Close SaveChanges:=True
End Sub
Torna a Applicazioni Office Windows
Conta.più.se con solo parte del testo Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
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 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 26 ospiti