Excelde çok değişkenli veri getirme

Kodla Büyü

ayhangunes

Seçkin Üye
Seçkin Üye
Mesajlar
620
Ekteki dosyadan sorum daha net anlaşılabilir.
(kurs ile alakalı)
odeme sayfasından öğrenci numarasına göre ödeme miktarı liste sayfasında ilgili yere aktarmak istiyorum.
Bilgiler tek olduğunda (ödeme sayfasında tekrarlamayan satır) kolaydı .Düşeyara ile getiriyorordum. ama şimdi hem kaçıncı ödeme olduğunu bilip ona göre getirmem gerekiyor.

Nasıl bir formül yada makro yazmalıyım elinde benzeriş olan var mı?
 

Ekli dosyalar

  • sorusor.rar
    7.9 KB · Görüntüleme: 68
Ödeme No ve Öğrenci noyazıp Para miktarını almak istiyorsunuz.?
Kod:
Function OdemeAl(kac As Integer, oNo As Integer)
Dim i As Integer
Dim sayfa As Worksheet
Set sayfa = Worksheets("odeme")
OdemeAl = 0
    For i = 1 To WorksheetFunction.CountA(sayfa.Range("C1:C10000"))
        If sayfa.Range("C" & i) = oNo And sayfa.Range("H" & i) = kac Then
        OdemeAl = sayfa.Range("F" & i)
        Exit Function
        End If
    Next
Set sayfa = Nothing
End Function

Formül: =OdemeAl(1;C2) 1: Alınacak Ödeme No, C2: Öğrenci No
 

Ekli dosyalar

  • sorusor.rar
    13.9 KB · Görüntüleme: 75
Geri
Üst