Moderatori: Anthony47, Flash30005
Sub riporta()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Foglio3").Cells.Clear
For RR1 = 1 To UR1
For RR2 = 1 To UR2
If Worksheets("Foglio1").Range("B" & RR1).Value = Worksheets("Foglio2").Range("B" & RR2).Value Then
UR3 = Worksheets("Foglio3").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Foglio3").Range("A" & UR3).Value = Worksheets("Foglio1").Range("B" & RR1).Value
Div = Worksheets("Foglio1").Range("E" & RR1).Value
If Div = 0 Then Div = 1
Worksheets("Foglio3").Range("B" & UR3).Value = Worksheets("Foglio1").Range("D" & RR1).Value / Div
GoTo SaltaRR1
End If
Next RR2
SaltaRR1:
Next RR1
End Sub
For RR1 = 1 To UR1
For RR2 = 1 To UR2
lory124 ha scritto:nella colonna prezzo c'e scritto tipo € 82,00. nella E c'e scritto 1, 10,100.
comunque ora provo...ma mettendo 10 non mi divide sempre per 10?dovrebbe invece dividerlo per il numero presente nella cella
nella E c'e scritto 1, 10,100.
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 83 ospiti