Moderatori: Anthony47, Flash30005
Sub TrovaArt()
UR1 = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
UR2 = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Foglio1").Columns("D:D").ClearContents
For RR2 = 2 To UR2
Art2 = Worksheets("Foglio2").Range("A" & RR2).Value
For RR1 = 2 To UR1
Art1 = Worksheets("Foglio1").Range("A" & RR1).Value
If Art2 = Art1 Then
Worksheets("Foglio1").Range("D" & RR1).Value = "SI"
GoTo Continua
End If
Next RR1
Continua:
Next RR2
End Sub
Ho una tabella (foglio1) complessiva delle movimentazioni di un Magazzino con il riferimento dell'articolo, formattato come segue "codice/nomearticolo/tipo".
If Art2 = Art1 Then
If Art2 = Mid(Art1, 1, Len(Art2)) Then
Worksheets("Foglio1").Range("D" & RR1).Value = "SI"
' GoTo Continua '<<<< commentare o cancellare
End If
Torna a Applicazioni Office Windows
Formattzione valori con simbolo triangolini colorati Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 11 |
Inserire dati filtrati da 2 file ad un terzo file Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 14 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 3 ospiti