Kodla Satır Bulma

[sbayyigit]

Merhaba arkdaşlar.
Ek'deki excel sayfa1 de onlarca satırdan oluşan bir tablom var. Bu tablodaki satırlarda bulunan liste sürekli değişiyor. Örneğin Dolar bazen 2. satırda olurken bazen 10. satırda olabiliyor. Sabit olduğu zaman aşağıdaki kodlarla alış ve satış fiyatlarını alabiliyorum.

has_satis= Sheets("sayfa1").Range("c3").Value

has_alis = Sheets("sayfa1").Range("b3").Value

dolar_alis=Sheets("sayfa1").Range("b2").Value

dolar_satis=Sheets("sayfa1").Range("c2").Value

Yukarıdaki vba kodları satır sayıları sabitken kullandığım kodlar. Satır numaraları değiştiğinde Örneğin DOLAR 2. değil de 5 satıra geçtiğinde "dolar_alis" sabitini nasıl değiştirmem gerekecek.

 

[Korhan Ayhan]

Merhaba,

Değişken satırlar için fonksiyonla değerleri alabilirsiniz.

Sub Test()
    Dim Dolar_Alis As Double
    
    Dolar_Alis = WorksheetFunction.VLookup("DOLAR", Range("A:G"), 2, 0)
End Sub

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kod ile yapabilirsiniz.

Sub Test()
    Dim DolarSatir As Integer
    Dim HasSatir As Integer
    Dim EUROSatir As Integer
    Dim ONSSatir As Integer
    
    With WorksheetFunction
        DolarSatir = .Match("DOLAR", Range("A:A"), 0)
        HasSatir = .Match("HAS ALTIN", Range("A:A"), 0)
        EUROSatir = .Match("EURO", Range("A:A"), 0)
        ONSSatir = .Match("ONS", Range("A:A"), 0)
    End With
    With Sheets("sayfa1")
        has_satis = .Cells(HasSatir, "C").Value
        has_alis = .Cells(HasSatir, "B").Value
        Dolar_alis = .Cells(DolarSatir, "B").Value
        Dolar_satis = .Cells(DolarSatir, "C").Value
        Euro_satis = .Cells(EUROSatir, "C").Value
        Euro_alis = .Cells(EUROSatir, "B").Value
        Ons_alis = .Cells(ONSSatir, "B").Value
        Ons_satis = .Cells(ONSSatir, "C").Value
    End With
End Sub

 

[sbayyigit]

Korhan Hocam ve Ali Hocam her ikinize de ayrı ayrı teşekkürler.
İyi ki varsınız.