Moderatori: Anthony47, Flash30005
Sub CopiaDatiSeOr()
Dim nomeFile As String
percorso = Application.ActiveWorkbook.Path
nfile = "\" & "Alfa.xls"
Application.Workbooks.Open percorso & nfile
URA = Workbooks("Alfa.xls").Worksheets("Foglio1").Range("F" & Rows.Count).End(xlUp).Row
For RRA = 1 To URA
If UCase(Workbooks("Alfa.xls").Worksheets("Foglio1").Range("F" & RRA).Value) = "CIAO" Then
URB = Workbooks("Beta.xls").Worksheets("Foglio1").Range("F" & Rows.Count).End(xlUp).Row + 1
Workbooks("Alfa.xls").Worksheets("Foglio1").Range("A" & RRA & ":H" & RRA).Copy Destination:=Workbooks("Beta.xls").Worksheets("Foglio1").Range("A" & URB)
Workbooks("Alfa.xls").Worksheets("Foglio1").Range("I" & RRA).Copy Destination:=Workbooks("Beta.xls").Worksheets("Foglio1").Range("J" & URB)
Workbooks("Alfa.xls").Worksheets("Foglio1").Range("J" & RRA & ":P" & RRA).Copy Destination:=Workbooks("Beta.xls").Worksheets("Foglio1").Range("O" & URB)
Workbooks("Alfa.xls").Worksheets("Foglio1").Range("Q" & RRA & ":R" & RRA).Copy Destination:=Workbooks("Beta.xls").Worksheets("Foglio1").Range("X" & URB)
Workbooks("Alfa.xls").Worksheets("Foglio1").Range("V" & RRA & ":W" & RRA).Copy Destination:=Workbooks("Beta.xls").Worksheets("Foglio1").Range("Z" & URB)
End If
Next RRA
Workbooks("Alfa.xls").Close savechanges:=False
End Sub
URA = Workbooks("query.xls").Worksheets("Sheet1").Range("G" & Rows.Count).End(xlUp).Row
For RRA = 1 To URA
If (Workbooks("query.xls").Worksheets("Sheet1").Range("G" & RRA).Value) = "Puglia Sud" & (Workbooks("query.xls").Worksheets("Sheet1").Range("K" & RRA).Value) <> "ADD_DP_ULL" & (Workbooks("query.xls").Worksheets("Sheet1").Range("I" & RRA).Value) = "" Then
URB = Workbooks("monitoring.xls").Worksheets("dentro").Range("G" & Rows.Count).End(xlUp).Row + 1
Workbooks("query.xls").Worksheets("Sheet1").Range("A" & RRA & ":H" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("A" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("I" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("J" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("J" & RRA & ":P" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("O" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("Q" & RRA & ":R" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("X" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("V" & RRA & ":W" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("Z" & URB)
End If
Next RRA
URA = Workbooks("query.xls").Worksheets("Sheet1").Range("G" & Rows.Count).End(xlUp).Row
For RRA = 1 To URA
If UCase(Workbooks("query.xls").Worksheets("Sheet1").Range("G" & RRA).Value) = "PUGLIA SUD" And UCase(Workbooks("query.xls").Worksheets("Sheet1").Range("K" & RRA).Value) <> "ADD_DP_ULL" And Workbooks("query.xls").Worksheets("Sheet1").Range("I" & RRA).Value = "" Then
URB = Workbooks("monitoring.xls").Worksheets("dentro").Range("G" & Rows.Count).End(xlUp).Row + 1
Workbooks("query.xls").Worksheets("Sheet1").Range("A" & RRA & ":H" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("A" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("I" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("J" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("J" & RRA & ":P" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("O" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("Q" & RRA & ":R" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("X" & URB)
Workbooks("query.xls").Worksheets("Sheet1").Range("V" & RRA & ":W" & RRA).Copy Destination:=Workbooks("monitoring.xls").Worksheets("dentro").Range("Z" & URB)
End If
Next RRA
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Modifica visualizzazione file di una cartella Autore: mastino46 |
Forum: Sistemi Operativi Windows Risposte: 2 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 64 ospiti