İNDİS KAÇINCI VEYA DÜŞEYARA VBA MAKRO İLE YAPMA

[musaliha]

Merhaba bir tablodaki verileri formülle indis ve kaçıncı ile bulunduğu satırdaki istediğim sütun verilerini getiriyorum .Ancak bunu makro ile yapmam lazım.yardımcı olurmusunuz.dosyam ektedir.Teşekkür ederim.

 

[antonio]

Merhaba,
Rapor almaya çalıştığınız sayfanın sekmesine sağ tıklayın, >> Kod Görüntüle >> açılan ekrana aşağıdaki kodu aynen yapıştırınız..
Kolay gelsin..

Sub Ekim_Ayi_Bilgileri()
Dim ss As Long, i As Integer, sat As Integer

ss = Range("K" & Rows.Count).End(3).Row
sat = 3
Range("T3:V50").ClearContents
For i = 2 To ss
    If Range("K" & i).Value = 900 Then
        Range("T" & sat).Value = Range("B" & i).Value
        Range("U" & sat).Value = Range("G" & i).Value
        Range("V" & sat).Value = Range("H" & i).Value
        sat = sat + 1
    End If
Next i
MsgBox "Ekim Ayına ait istenen veriler listelendi", vbInformation, _
"EKİM AYI RAPORU"
End Sub

 

[musaliha]

çok teşekkür ederim tam istediğim gibi olmuş.Elinize sağlık

 

[antonio]

çok teşekkür ederim tam istediğim gibi olmuş.Elinize sağlık

Rica ederim. İyi çalışmalar..