ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[tasirss]

Merhabalar, ek'li dosyada 1 numaralı sayfada 2 numaralı sayfadaki veriye göre özet bilgiler çekmek istiyorum. Yapmak istediğim şey 1. sayfa B3 hücresindeki isme bağlı olarak 2. sayfadan "temel eğitimi %90 altında kalan projeleri (j sütunundan)" E5 satırındaki başlığın altına sıralatmak. Buraya sayfa 2'de ki D sütununda bulunan proje adlarını getirmek. Forumda ilk defa konu açıyorum umarım isteğimi açıklayabilmişimdir, yardımlarınız için şimdiden teşekkür ederim.

[tasad]

Kod: Tümünü seç

Sub verial()
Dim i As Long
x = 6
For i = 2 To Sayfa2.Range("a65000").End(3).Row
If Sayfa2.Cells(i, 1).Value = Sayfa1.Range("b3").Value _
And Sayfa2.Cells(i, "j").Value < 90 / 100 Then
Sayfa1.Cells(x, "e") = Sayfa2.Cells(i, "d").Value
x = x + 1
End If
Next
End Sub


[tasirss]

çok teşekkürler elinize sağlık