İndis, Kaçıncı Makro Kullanımı

berkbaba

Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Es Selamün Aleyküm

Üstadım
Kod: 
=EĞER(EHATALIYSA(İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);2));"";İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);2))
Kod: 
=EĞER(EHATALIYSA(İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);4));"";İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);4))
Kod: 
=EĞER(EHATALIYSA(İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);7));"";İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);7))
Kod: 
=EĞER(EHATALIYSA(İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);8));"";İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);8))
Kod: 
=EĞER(EHATALIYSA(İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);15));"";İNDİS(KAYIT!B3:T1266;KAÇINCI(A3;KAYIT!B3:B1266;0);15))

Yukarıda arz ettiğim formülü Makro ile A3 hücresi değiştikçe çalışması için yardımınızı ve himmetinizi istirham ediyorum.

Saygılarımla
 
Kapalı dosyayı açma ve verileri yapıştırma
Excel Dosyasını Kaydetme ve Kapatma
Tarihe göre sırala Oylamaya göre sırala
Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Banka")
Set s2 = Sheets("KAYIT")
s1.Range("B2") = "Adı Soyadı"
s1.Range("B4") = "T.C Kimlik No"
s1.Range("B6") = "Taşıma Merkezi Okul Adı"
s1.Range("B8") = "Taşıma Yapılan Güzergah Adı"
s1.Range("C2") = "Kati Teminat Tutarı"
s1.Range("B10") = "Alacaklı IBAN No"
s1.Range("B3") = WorksheetFunction.VLookup(s1.Range("C1"), s2.Range("B3:T1000"), 2, 0)
s1.Range("B5") = WorksheetFunction.VLookup(s1.Range("C1"), s2.Range("B3:T1000"), 4, 0)
s1.Range("B7") = WorksheetFunction.VLookup(s1.Range("C1"), s2.Range("B3:T1000"), 7, 0)
s1.Range("B9") = WorksheetFunction.VLookup(s1.Range("C1"), s2.Range("B3:T1000"), 8, 0)
s1.Range("C4") = WorksheetFunction.VLookup(s1.Range("C1"), s2.Range("B3:T1000"), 15, 0)
s1.Range("B11") = "Akçadağ Mal Müdürlüğü - TR"
End Sub

Düşeyara ile yaptım işim görüldü. Ancak indis kısmını da merak etmiyor değilim hani. Müsait olduğunuz da yardımcı olabilirseniz memnun olurum.
 
Oyla 0 Olumsuz oyla
Makro kullanacaksan eğer, FIND fonksiyonu daha kullanışlıdır.

VBA: 
Dim s1 As Worksheet: Dim s2 As Worksheet
Set s1 = Sheets("Banka"): Set s2 = Sheets("KAYIT")
bul = s2.Range("B:B").Find(s1.Range("C1"))
If Not bul Is Nothing Then
s1.Range("B3") = bul.Offset(0, 2)
s1.Range("B5") = bul.Offset(0, 4)
s1.Range("B7") = bul.Offset(0, 7)
s1.Range("B9") = bul.Offset(0, 8)
s1.Range("C4") = bul.Offset(0, 15)
end if
 
Oyla 1 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst