Makro ile düşeyara

[Erdinç FIRTINA]

Değerli forum üyeleri,
Aşağıda formülle yapılan düşeyara, makro ile yapılabilir mi ?

Dosyam ektedir. Yardımlarınız için şimdiden teşekkürler!!!

'=EĞER(EHATALIYSA(DÜŞEYARA(B2;$U$2:$AA$35000;1;YANLIŞ));"";DÜŞEYARA(B2;$U$2:$AA$35000;1;YANLIŞ))

'=EĞER(EHATALIYSA(DÜŞEYARA(B2;$U$2:$AA$35000;2;YANLIŞ));"";DÜŞEYARA(B2;$U$2:$AA$35000;2;YANLIŞ))

'=EĞER(EHATALIYSA(DÜŞEYARA(B2;$U$2:$AA$35000;3;YANLIŞ));"";DÜŞEYARA(B2;$U$2:$AA$35000;3;YANLIŞ))



'=EĞER(EHATALIYSA(DÜŞEYARA(B3;$U$2:$AA$35000;1;YANLIŞ));"";DÜŞEYARA(B2;$U$2:$AA$35000;1;YANLIŞ))

'=EĞER(EHATALIYSA(DÜŞEYARA(B3;$U$2:$AA$35000;2;YANLIŞ));"";DÜŞEYARA(B2;$U$2:$AA$35000;2;YANLIŞ))

'=EĞER(EHATALIYSA(DÜŞEYARA(B3;$U$2:$AA$35000;3;YANLIŞ));"";DÜŞEYARA(B2;$U$2:$AA$35000;3;YANLIŞ))

 

[asi_kral]

Merhaba
Bunu dener misiniz_?

Option Explicit
Sub düşeyara_1967()
Dim SAT As Long, BULUNAN As Long, BULUNMAYAN As Long
With WorksheetFunction
For SAT = 2 To Cells(Rows.Count, "B").End(xlUp).Row
If .CountIf(Range("U:U"), Cells(SAT, "B")) > 0 Then
Cells(SAT, "C") = .VLookup(Cells(SAT, "B"), Range("U:AA"), 2, 0)
Cells(SAT, "D") = .VLookup(Cells(SAT, "B"), Range("U:AA"), 3, 0)
Cells(SAT, "E") = .VLookup(Cells(SAT, "B"), Range("U:AA"), 4, 0)
Cells(SAT, "F") = .VLookup(Cells(SAT, "B"), Range("U:AA"), 5, 0)
Cells(SAT, "G") = .VLookup(Cells(SAT, "B"), Range("U:AA"), 6, 0)
Cells(SAT, "H") = .VLookup(Cells(SAT, "B"), Range("U:AA"), 7, 0)
BULUNAN = BULUNAN + 1
Else
BULUNMAYAN = BULUNMAYAN + 1
End If: Next: End With
MsgBox "Toplam Bulunan             : " & BULUNAN & vbLf _
& "Toplam Bulunamayan    : " & BULUNMAYAN & " vardır.", vbInformation
End Sub

 

[Erdinç FIRTINA]

Sayın Asi Kral,
Yardımlarınız için çok çok teşekkür ederim. Yüreğinize, beyninize ve ellerinize sağlık !!!

 

[asi_kral]

Sayın Asi Kral,
Yardımlarınız için çok çok teşekkür ederim. Yüreğinize, beyninize ve ellerinize sağlık !!!

Kolay Gelsin.

 

[aynuray]

merhaba aslında dah öncede sorulmuş bu soru ama aramayı anlayamadım yardımcı oluursanız sevinirim. iki ayrı tablom var birisi eski birisi yeni. Yenisinde değişiklikler var değişik olanları bulmak istiyorum

 

[asi_kral]

Merhaba
Dosya eklerseniz yardımcı olmaya çalışırım.