ilgili hücreye gelince liste açılması

umitumit

Altın Üye
Katılım
5 Eylül 2006
Mesajlar
364
Excel Vers. ve Dili
Excel 2016
Türkçe
Altın Üyelik Bitiş Tarihi
13-07-2028
sayfanın alt kısımlarında bazı işlemler yaparak veriler getiriyorum.
mesela
A15=1
B15=AHMET
C15=300 YTL
D15=30.11.2008

A16=2
B16=MEHMET
C16=200 YTL
D16=01.12.2008

A17=3
B17=HASAN
C17=100 YTL
D17=12.12.2008

A18=0
B18=0
C18=0
D18=0

bu şekilde aşağıya doğru 10 satırlık ve 4 sütunluk bir tablo oluşturuyorum.
bu tablonun ilk 3 satırı dolu, geri kalanlar 0 (sıfır) değerine sahip.
bazen verilerdeki değişiklikler nedeniyle tablonun 5 satırı dolu diğerleri 0, bazende 1 satırı dolu, diğer 9 satırı 0 olabiliyor.

istediğim şey şu;

E5 hücresine geldiğim zaman E5 hücresinin sağ tarafında açılacak bir UserForm benzeri tabloda, aşağıda formüllerle hesaplanan dolu hücreleri görmek.
tablo sadece dolu hücreleri (değeri sıfırdan farklı) gösterecek büyüklükte olmalı.
yani 1 satır dolu ise 1 satırlık, 5 satır dolu ise 5 satırlık olmalı.

başka bir hücreye tıkladığımda da tablo gizlenmeli.

umarım anlatabilmişimdir derdimi.

ilgilenen arkadaşlara şimdiden teşekkürler
 

umitumit

Altın Üye
Katılım
5 Eylül 2006
Mesajlar
364
Excel Vers. ve Dili
Excel 2016
Türkçe
Altın Üyelik Bitiş Tarihi
13-07-2028
arkadaşlarrrrr.....
yok mu derdime çare?
 

Mahmut Kök

Özel Üye
Katılım
14 Temmuz 2006
Mesajlar
878
Excel Vers. ve Dili
Excel 2007 - Türkçe
Forma verileri aldırmayı biliyorsanız aşağıdaki kod ile E5 hücresine tıklayınca form açılır, başka bir hücreye tıklayınca form tekrar kapanır. Çalışmanıza bir adet userform ekleyip kodu deneyiniz.

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [e5]) Is Nothing Then
Unload UserForm1
Exit Sub
Else
UserForm1.Show 0
End If
End Sub
 

umitumit

Altın Üye
Katılım
5 Eylül 2006
Mesajlar
364
Excel Vers. ve Dili
Excel 2016
Türkçe
Altın Üyelik Bitiş Tarihi
13-07-2028
teşekkür ederim ama forma veri aldırmayı henüz bilmiyorum.
ama bazı şeyleri öğrenmem için kendim araştırıp bulsam daha iyi.
ben bu akşam araştırmamı yapayım, işin içinden çıkamazsam sizden yardım isterim.
çok teşekkürler
 
Üst