On kaksi taulukkoa
a 100 nimi1
b 200 nimi2
c 300 nimi3
s 400 nimi4
ja
a 100 2025 5
b 200 2023 6
c 200 2025 7
c 300 2023 4
k 400 2022 1
Ensimmäiseen taulukkoon haluan poimia toisesta kolmannen sarakkeen tiedon jos molempien taulukoiden ensimmäisen ja toisen sarakkeen arvo on sama. Esim. riville c pitäisi saada tulokseksi 2023 4
Millä funktioyhdistelmällä saisin halutun arvon?
a 100 nimi1
b 200 nimi2
c 300 nimi3
s 400 nimi4
ja
a 100 2025 5
b 200 2023 6
c 200 2025 7
c 300 2023 4
k 400 2022 1
Ensimmäiseen taulukkoon haluan poimia toisesta kolmannen sarakkeen tiedon jos molempien taulukoiden ensimmäisen ja toisen sarakkeen arvo on sama. Esim. riville c pitäisi saada tulokseksi 2023 4
Millä funktioyhdistelmällä saisin halutun arvon?
Vastaukset 1
Vanhimmat
Seuraava makro tekee haluamasi toiminnon. Oletuksena on, että taulkukot ovat saman työkirjan välilehdillä ja ettei ole otsikkorivejä. Makroa ajettaessa on ensimmäisen taulukon oltava aktiivisena.
Sub lisää()
toinen = "Sheet2" ' toisen taulukon nimi
With Sheets(toinen)
r = 2
Do
rr = 1
Do
If Cells(r, 1) = .Cells(rr, 1) And Cells(r, 2) = .Cells(rr, 2) Then
Cells(r, 5) = .Cells(rr, 3)
End If
rr = rr + 1
If .Cells(rr, 1) = "" Then Exit Do
Loop
r = r + 1
If Cells(r, 1) = "" Then Exit Do
Loop
End With
End Sub