vba da 2 değere göre düşey arama

[furens]

Sayfa2 deki tc ve esas sütunlarının değerlerine göre sayfa1 deki tc ve esas sütlarında karşılaştırma
Yaparak bunlara denk gelen yine sayfa1 deki varsa karar noyu sayfa 1 deki karar sütununa yazıcak.
Ben vba da yapmaya çalıştım başaramadım.
CODE]Dim uyy, kihh, bul As Variant
uyy=worksheet("Sayfa1"). Range("A2:F44950)
kihh=worksheet("Sayfa2"). Range("B2:B1379, Q2:Q1379)
bul=Application. WorksheetFunction. VLookup(kihh, uyy, 6,0)
Worksheets("Sayfa2").Range("S2:S1379").Value=bul
[/CODE]

 

[furens]

Sayfa2 deki tc ve esas sütunlarının değerlerine göre sayfa1 deki tc ve esas sütlarında karşılaştırma
Yaparak bunlara denk gelen yine sayfa1 deki varsa karar noyu sayfa 2 deki karar sütununa yazıcak.
Ben vba da yapmaya çalıştım başaramadım.

 

[furens]

Dim uyy, kihh, bul As Variant
uyy=worksheet("Sayfa1"). Range("A2:A44950,E2:E44950)
kihh=worksheet("Sayfa2"). Range("B2:B1379, Q2:Q1379)
bul=Application. WorksheetFunction. VLookup(kihh, uyy, 6,0)
Worksheets("Sayfa2").Range("S2:S1379").Value=bul
Sayfa1 deki karar e sütununda
bu şekildede denedim hata verdi.

 

[furens]

parentez içindeki tırnaklar var yazarken eksik yazmışım

 

[PLİNT]

Merhaba
Örnek dosya eklerseniz daha kolay cevap ve çözüm bulubalirsiniz
Aşağıdaki kodlarınıza göre; dosyayı denermisiniz?
https://www.dosyaupload.com/bfaG

 

[furens]

ilgin için tşk. olmamış şöyleki 1 tc nin 1 den fazla esası olabiliyor. sayfa 1 tc kısmında tc leri çogaltıp farklı esaslar ve kararlar yazınca bulmuyor. sanki benzersiz tc lerde işlem yapıyor

 

[PLİNT]

Merhaba
Tamam onu çoğaltabiliriz,
Sizin dosyaki sütunlar (karar,esas.tno sütunları) ile yukarıdaki örnek doyadaki sütunları aynı oluyormu?

 

[furens]

evet işleyiş mantığı doğru.Ancak dedeğim gibi sayfa 1 tc kısmında tc leri çogaltıp farklı esaslar ve kararlar yazıyorum. sayfa 1 deki çoğaltılmış tc leri ve esaslar sayfa 2 deki tc ve esaslara yapıştırp ara dediğmde sonradan çogalttığım tc lerde arama yapmıyor.

 

[PLİNT]

Dosyadaki kodlar; isteğinize göre aşağıdaki gibi olur.
(Deneme yaparken "T.C. no" ve "Esas" ları değişik satırlarda (ikisi birden) tekrarlanırsa en alt satırdaki "esas" 'ın karşısındaki "karar" ı alır)

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet, a As Long, c As Range, f As String
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
With s1.Range("B2:B" & s1.Cells(Rows.Count, "B").End(3).Row)
For a = 2 To s2.Cells(Rows.Count, "B").End(3).Row
Set c = .Find(Trim(s2.Cells(a, "B")), LookIn:=xlValues, Lookat:=xlPart)
If Not c Is Nothing Then
f = c.Address
Do
If Trim(s2.Cells(a, "Q")) = Trim(s1.Cells(c.Row, "D")) Then
s2.Cells(a, "S") = s1.Cells(c.Row, "E")
End If
Set c = .FindNext(c)
If c Is Nothing Then Exit Do
Loop While Not c Is Nothing And c.Address <> f
End If
Next
End With
End Sub

 

[furens]

Çok tşk. Allah Razı olsun olmuş , Allah ilmini arttırsın. Senide uğraştırdık. Vb. Benim yazdığım gibi basit düz mantık değilmiş.