Caio a tutti,
sono nuova del forum e vorrei porvi un problema:
premetto che ho qualche base di programmazione non sono praticissima di excel, ma mi trovo ad avere due tabelle identiche una più aggiornata dell'altra e in sintesi voglio avere una terza tabella con tutti i campi aggiornati senza duplicati di quelli precedenti. Ho trovato uno script che fa al caso mio, con poche modifiche dovrebbe darmi esattamente questo, ma problema non avendo mai inserito uno script con Excel 2008 per Mac non so bene come fare, mi potete aiutare?
Grazie e scusate l'ignoranza

salve
per una strana e stravagante decisione di Microsoft, la vesione 2008 non ha il supporto di Visual Basic for application (VBA) pertanto tale via non è percorribile. Possono trovarsi altre soluzioni, tipo comparazione delle tabelle via "formule" o via filtri per raggiungere lo scopo. Bisognerebbe vedere come sono strutturate le tabelle.
saluti
Giap

---

salve
Le due tabelle a cui ti riferisci, sono identiche nel loro ID e differiscono solo nella completezza dei campi?
esempio:
nella tabella 1
Id (preso il nome come esempio) Pippo è presente l'indirizzo
e nella tabella 2 stesso ID non è presente l'indirizzo

si deve dare per inteso che ognuna delle due tabelle non sia completa nei rispettivi campi ma si completino solo
unendo le due tabelle?

Sarebbe utile vedere uno stralcio delle due tabelle.
saluti
Giap

---

salve
ipotizzando una situazione cone quella in immagine:

La tabella Storica su Foglio1
La Tabella Importata su foglio2



con la macro che segue, viene eseguito un controllo nei campi Nome/Cognome
delle due tabelle, se non vengono trovati record ripetuti, tutta la riga del nuovo contatto viene inserita nella tabella storica.
questa è la macro:

Sub test()
Application.ScreenUpdating = False
With Sheets("Foglio3")
.Cells.ClearContents
End With
With Sheets("Foglio1")
Urig = .Range("a" & Rows.Count).End(xlUp).Row
Set Rng = Range(.Cells(2, 1), .Cells(Urig, 1))
End With
With Sheets("Foglio2")
Uriga = .Range("a" & Rows.Count).End(xlUp).Row
Set Rng2 = Range(.Cells(2, 1), .Cells(Uriga, 1))
End With
Lrow = Urig + 1
For Each cl2 In Rng2
RR = cl2.Row
ctr = False
For Each cl In Rng
If cl2.Value & cl2.Offset(0, 1).Value = cl.Value & cl.Offset(0, 1).Value Then
ctr = True
Exit For
End If
Next cl
If Not ctr Then
With Sheets("Foglio2")
.Cells(RR, 1).Resize(, 5).Copy Destination:=Sheets("Foglio1").Cells(Lrow, 1)
End With
Lrow = Lrow + 1
End If
Next cl2
Application.ScreenUpdating = True
End Sub


saluti
Giap

---