2 degere gore verı alma

[emre1979]

2 degere gore sayfadan verı almak

tesekkurler

 

[meslan]

Merhaba
Sayfa Koduna,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target.Rows, [B2]) Is Nothing Then Exit Sub
Range("A4:D150").ClearContents
st = 3
Set bul = Sheets("Sheet1").[B:B].Find(Target.Value, lookat:=xlWhole)
    If Not bul Is Nothing Then
        adr = bul.Address
        Do
           If Sheets("Sheet1").Cells(bul.Row, 1) = [B1] Then
                st = st + 1
                Cells(st, 1) = st - 3
                Cells(st, 2) = Sheets("Sheet1").Cells(bul.Row, 2)
                Cells(st, 3) = Sheets("Sheet1").Cells(bul.Row, 3)
                Cells(st, 4) = Sheets("Sheet1").Cells(bul.Row, 4)
           End If
          Set bul = Sheets("Sheet1").[B:B].FindNext(bul)
        Loop While Not bul Is Nothing And bul.Address <> adr
    End If
End Sub

 

[emre1979]

Bu makrosuz formulle olmaz mı ?

 

[Mehmet Şahin]

Sayın meslan çok hızlısınız ya da ben yavaş
alternatif olsun.

 

[Ergün Güler]

Sayın emre1979,
Dosyanız ektedir. İnceler misiniz?
Fonksiyonlar ile hazırlanmıştır.