Scusami ma non riesco a spiegarmi.
Se tolgo il commento alle due righe evidenziate, mi copia il contenuto del foglio Competitors Report nel foglio Calcolo Tariffa; invece ciò che deve fare è l'esatto opposto.
Moderatori: Anthony47, Flash30005
If DataB = DataR Then '<<<<<<<<<<<<<<<< esistente
Ws3.Cells(RR3, Col3).Value = Ws2.Range("Q" & RR2).Value '<<<<<<<<<<<<<<<< esistente
Ws2.Range("R" & RR2).Value = Ws3.Cells(RR3, Col3 + 3).Value '<<<<<<<<<<<<<<<< esistente da modificare così
Ws2.Range("S" & RR2).Value = Ws3.Cells(RR3, Col3 + 4).Value '<<<<<<<<<<<<<<<< esistente da modificare così
Exit For '<<<<<<<<<<<<<<<< esistente
End If '<<<<<<<<<<<<<<<< esistente
Ws2.Range("R" & RR2).Value = Ws3.Cells(RR3, Col3 + 3).Value
Ws2.Range("S" & RR2).Value = Ws3.Cells(RR3, Col3 + 4).Value
Sub copiaDati()
Set Ws1 = Worksheets("Pianificazione")
Set Ws2 = Worksheets("Competitors Report")
Set Ws3 = Worksheets("Calcolo Tariffa")
UR2 = Ws2.Range("N" & Rows.Count).End(xlUp).Row
Ws2.Range("P3:Q" & UR2).ClearContents
Application.ScreenUpdating = False
Application.Calculation = xlManual
DataO = Date
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
For RR2 = 3 To UR2
DataB = Ws2.Range("N" & RR2).Value
If DataB >= DataO Then
RigaIni = RR2
GoTo saltaRR2
End If
Next RR2
GoTo esci
saltaRR2:
For RR2 = RigaIni To UR2
DataB = Ws2.Range("N" & RR2).Value
For RR1 = 1 To UR1
DataA = DateSerial(Year(Ws2.Range("N" & RR2).Value), Mid(Ws1.Range("A" & RR1).Value, 4, 2), Left(Ws1.Range("A" & RR1).Value, 2))
If DataA = DataB Then
Ws2.Range("P" & RR2).Value = Ws1.Range("C" & RR1).Value
Ws2.Range("Q" & RR2).Value = Ws1.Range("D" & RR1).Value
Exit For
End If
Next RR1
Next RR2
DataI = Ws2.Range("N" & RigaIni).Value
UR3 = Ws3.Range("B" & Rows.Count).End(xlUp).Row
UC3 = Ws3.Cells(4, Columns.Count).End(xlToLeft).Column
For CC3 = 3 To UC3 Step 5
DataC = DateSerial(Year(Ws3.Cells(1, CC3)), Month(Ws3.Cells(1, CC3)), Day(Ws3.Cells(1, CC3)))
If DataC = DataI Then
Col3 = CC3
Exit For
End If
Next CC3
AggD = 0
For RR2 = RigaIni To UR2
DataB = Ws2.Range("N" & RR2).Value + AggD
For RR3 = 5 To UR3
DataR = Ws3.Range("B" & RR3).Value
If DataB = DataR Then
Ws3.Cells(RR3, Col3).Value = Ws2.Range("Q" & RR2).Value
Calculate '<<<<< <<<<<<<<<<< <<<<<<<<<<<<<<<<<<<<<riga da aggiungere qui
Ws2.Range("R" & RR2).Value = Ws3.Cells(RR3, Col3 + 3).Value
Ws2.Range("S" & RR2).Value = Ws3.Cells(RR3, Col3 + 4).Value
Exit For
End If
Next RR3
Next RR2
esci:
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Torna a Applicazioni Office Windows
File batch per copiare file selezionato da menu contestuale Autore: valle1975 |
Forum: Programmazione Risposte: 3 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Barra Applicazioni tasto destro non attivo e ALTRO Autore: ricky53 |
Forum: Sistemi Operativi Windows Risposte: 6 |
Visitano il forum: Nessuno e 17 ospiti