Yatay ve düşeyara birlikte kod ile yapmak...

[macay]

Merhaba Sayın Üstadlar...

Eklediğim dosyada kullandığım bir fonksiyon var... "=EĞER(EYOKSA(İNDİS('234933SarfTbloMktr'!$A$2:$DG$166;KAÇINCI(E13;'234933SarfTbloMktr'!$B$2:$B$164;0);KAÇINCI($Y$1;'234933SarfTbloMktr'!$A$2:$DG$2;0)));0;İNDİS('234933SarfTbloMktr'!$A$2:$DG$166;KAÇINCI(E13;'234933SarfTbloMktr'!$B$2:$B$164;0);KAÇINCI($Y$1;'234933SarfTbloMktr'!$A$2:$DG$2;0)))" Gibi ama bu dosyada çok fazla yer kaplıyor bu formülü kod ile yapmak mümkünmü.. yardımlarınız için şimdiden teşekkür ederim..

Saygılarımla,

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub verilerigetir()
Set s1 = Sheets("144-1")
Set s2 = Sheets("234933SarfTbloMktr")
Set s3 = Sheets("234933SarfTbloTutr")
For a = 13 To s1.[e538].End(3).Row
If s1.Cells(a, "f") = "" Then GoTo 10
If WorksheetFunction.CountIf(s2.[b:b], s1.Cells(a, "e")) > 0 Then
sat1 = WorksheetFunction.Match(s1.Cells(a, "e"), s2.[b:b], 0)
sat2 = WorksheetFunction.Match(s1.Cells(a, "e"), s3.[b:b], 0)
sut = WorksheetFunction.Match(s1.[y1], s2.[2:2], 0)
s1.Cells(a, "y") = s2.Cells(sat1, sut)
s1.Cells(a, "z") = s3.Cells(sat2, sut)
Else
s1.Cells(a, "y") = 0
s1.Cells(a, "z") = 0
End If
10 Next
End Sub

 

[macay]

Sayın Levent menteşoğlu,

Gönderdiğiniz çözüm çok güzel çalıştı...çok teşekkür ederim..Ama bir sorun var bende aranacak sadece birtek "144-1" sayfası yok pekçok sayfa var...bu sayfaları tektek girmem gereklimi yoksa daha kolay bir yolu varmı..?