Hei, minulla on ongelma jota en osaa ratkaista. Käytössä excel 2003 versio.
ongelma: kaksi excel taulukkoa A ja B. Taulukossa A on ensimmäisessä sarakkeessa auton rekisterinumero ja muissa nimi,osoite ym tietoa. Taulukossa B on myös sarake, esim D, jossa on auton rekisterinumero.
Taulukosta A pitäisi pystyä poistamaan kaikki rivit, joilla esiintyy sama rekisterinumero, joka löytyy taulukosta B.
kahden excel taulukon vertailu
1 Vastausta 334 Lukukertaa
moduuliin...
Function EtsiJaSiirrä(Hakuehto As Variant, HakuAlue As Range) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
With HakuAlue
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address <> EkaOsoite
End If
End With
End Function
Sub EtsiijaPoistaa()
Dim vika As Long
On Error Resume Next
vika = Worksheets("Sheet2").Range("D65536").End(xlUp).Row
For Each solu In Worksheets("Sheet2").Range("D1:D" & vika)
EtsiJaSiirrä(solu, Columns("A:A")).EntireRow.Delete
Next
End Sub
Keep EXCELing
@Kunde