• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Farklı bir Arama ve Başvuru

  • Konbuyu başlatan Konbuyu başlatan o2l3m
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

o2l3m

Altın Üye
Katılım
2 Mart 2005
Mesajlar
156
Excel Vers. ve Dili
Microsoft® Excel ® 2016 (16.0.5413.1000) MSO (16.0.5413.1000) 32 bit
2 Farklı değişken değerin ilkini(B2); Tablonun ilk satırında bulup(5.satır) sonra o sütunda ikinci değeri(d2) bulacak.
Sonra satır boyunca geriye doğru olan değerleri (F9-G9-H9-I9) üstteki kutucuklara getirecek bir formule ihtiyacım var.
Excelde iyi olmama rağmen bir türlü uygun formülü bulamadım.
Makro ile çözülebilir mi?
Yardımlarınız için şimdiden çok teşekkür ederim.
 

Ekli dosyalar

2 Farklı değişken değerin ilkini(B2); Tablonun ilk satırında bulup(5.satır) sonra o sütunda ikinci değeri(d2) bulacak.
Sonra satır boyunca geriye doğru olan değerleri (F9-G9-H9-I9) üstteki kutucuklara getirecek bir formule ihtiyacım var.
Excelde iyi olmama rağmen bir türlü uygun formülü bulamadım.
Makro ile çözülebilir mi?
Yardımlarınız için şimdiden çok teşekkür ederim.

kod:

Kod:
Private Sub CommandButton1_Click()

aranan1 = Cells(2, "b").Value
aranan2 = Cells(2, "d").Value
Range("f2:ı2").ClearContents

For j = 10 To Cells(5, Columns.Count).End(xlToLeft).Column
If aranan1 = Cells(5, j).Value Then

For i = 2 To Cells(Rows.Count, j).End(3).Row
If aranan2 = Cells(i, j).Value Then


Cells(2, 6).Value = Cells(i, 6).Value
Cells(2, 7).Value = Cells(i, 7).Value
Cells(2, 8).Value = Cells(i, 8).Value
Cells(2, 9).Value = Cells(i, 9).Value
Exit For
End If
Next i
End If
Next j


MsgBox " İşlem tamam..."
End Sub
 
Halit Bey

Çok teşekkür ediyorum Elinize sağlık.
Bu kadar kısa sürede cevap verdiğiniz için de ayrıca teşekkür ediyorum
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Geri
Üst