Hei,
Saako jollain kaavalla välilehtien "1" ja "2" sarakkeissa A olevat tiedot välilehden "3" sarakkeeseen A niin ETTEI sinne tule tietoja tuplana. Eli siis jos sama tieto esiintyy sekä välilehdessä "1" että "2" niin välilehteen "3" tulee vain yhden kerran tuo tieto.
Saako jollain kaavalla välilehtien "1" ja "2" sarakkeissa A olevat tiedot välilehden "3" sarakkeeseen A niin ETTEI sinne tule tietoja tuplana. Eli siis jos sama tieto esiintyy sekä välilehdessä "1" että "2" niin välilehteen "3" tulee vain yhden kerran tuo tieto.
Vastaukset 3
Vanhimmat
hakee nyt Taul1 ja Taul2 A-sarakkeen tiedoista Taul3 A-sarakkeeseen uniikit tiedot
moduuliin...
Sub Uniikit()
Dim Vika As Double
Dim eka As Range
Dim toka As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Worksheets("Taul1").Activate
Vika = Range("A65536").End(xlUp).Row
Set eka = Range("A1:A" & Vika)
Worksheets("Taul2").Activate
Vika = Range("A65536").End(xlUp).Row
Set toka = Range("A1:A" & Vika)
Sheets("Huuhaa").Delete
Worksheets.Add().Name = "Huuhaa"
Worksheets("Huuhaa").Activate
Range("A:A") = ""
Range("A1") = "uniikit"
eka.Copy Range("A2")
Vika = Range("A65536").End(xlUp).Row 1
toka.Copy Range("A" & Vika)
Worksheets("Taul3").Activate
Sheets("Huuhaa").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("A1"), Unique:=True
Range("A1").Select
Sheets("Huuhaa").Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Set eka = Nothing
Set toka = Nothing
End Sub
Keep Excelling :-)
Siis mitä ihmettä? Mihin tuollainen pitäisi kirjoittaa?
http://keskustelu.suomi24.fi/show.fcgi?category=108&conference=4500000000000708&posting=22000000024085720