Toggle butona basınca Listbox'ta süzme işlemi yapılsın.

[umutsancar]

"TOGGLE BUTONA BASINCA CAM VE TV SAYFALARINDAKİ ÜRÜNLERDEN STOKTA OLMAYANLAR
YANİ B SÜTUNUNDA "[Sorunuz]" YAZAN SATIRLAR AÇILAN KUTULARDA GÖZÜKMESİN."
Bunun ile ilgili bir örnek hazırladım, yardımlarınızı bekliyorum.


Saygılarımla

 

[Levent Menteşoğlu]

Dosyanızda formlar menüsünden açılan kutu kullanmışsınız bunun yerine denetim araç kutusunda comboboxların kullanıldığı ekteki dosyayı inceleyin.

 

[umutsancar]

Harika,

Peki formlar menüsünden eklediğim açılan kutunun gösterdiği satır sayısından İNDİS formülü ile fiyatını okuyabiliyordum. Denetim Araç Kutusundan eklediğim açılan kutu nesnesi ile nasıl (açılan kutunun sağ tarafındaki hücreye) fiyatını gösterebiliriz?

Yardımlarınız için teşekkürler, her seferinde çalışmalarıma sayenizde büyük özellikler kattım.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin.

 

[umutsancar]

Sevgili LeventM

Şimdi sanırım tek sorunum şu kaldı. Aynı sayfada bir commandbutton kullanacağım, tıkladığımda combobox1 ve combobox2'nin değerini bağlı olduğu tablonun en üst satırına çekecek.

 

[umutsancar]

Az önceki sorumu yanıtlamanıza gerek kalmadı, o sorunu çözdüm.

Ama malesef bu konuyla ilgili başka bir sorum olacak. ComboBox1'den bir değer seçtikten sonra bir makronun çalışmasını istiyorum.

Call makro ile denedim fakat "Sub or Function not defined" hatası verdi. Nerede hata yapıyorum?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Private Sub ComboBox1_Change()
MAKRONUZUN ADI
End Sub

 

[umutsancar]

Sevgili cost_control,

Verdiğiniz kod ile sorunu çözdük. Başınıza hiç geldi mi, Excel size yanlış hesap yaptı mı?

Kısaca özetleyim. Yaklaşık 20 saattir Açılan kutularımı formlardan değil de Denetim Araç Kutusundan kullanıyorum. Eski açılan kutularıma "aciklamalar" adlı makroyu eklemiştim. Değer değiştiği zaman otomatik olarak çalışıyordu ve I28:I47 aralığındaki Usd değerli hücrelere sayfadaki kur ile çarpıp comment ekliyordu. Hala ekliyor ama yanlış hesaplıyor. Kodlar da şu şekilde.

Sub aciklamalar()
Range("I28:I47").ClearComments
On Error Resume Next
For a = 28 To Cells(65536, 9).End(xlUp).Row
Cells(a, 9).AddComment.Text Text:=Cells(a, 2).Value & Chr(10) & Format([b2] * 1.18 * Cells(a, 9).Value, "#.00") & " YTL değeri, "

268,8 Usd'yi 635,08 YTL olarak hesaplamış. Kur da 1,3591 YTL.



Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Bu makroyu uyguladığınız küçük bir örneği eklemeniz mümkün müdür?

 

[umutsancar]

Memnuniyetle

Örnek dosya ataçta. Çok ilginç geldi bana.

 

[Korhan Ayhan]

Selamlar,

Dosyanızda gerekli düzeltmeyi yaptım kontrol edermisiniz.

Açıklamalar makrosunu ComboBox1_Click olayının altına ekleyince problem çözüldü.

 

[umutsancar]

Sevgili COST_CONTROL

Çok teşekkür ederim. Vakit ayırdın ve faydalı oldun.

 

[bono]

COST_CONTROL

Commentlerle ilgili benimde bir sorunum vardı ve "sheetler arasındaki bilgilerin eşleşmesi , comment yaratılması" başlığı altında sormuştum soruyu. Kısaca soruyu size de sormak istiyorum belki elinizde yardımcı olabilecek bir makro vardır diye. mesela sheet1 deki bilgi sheet2 de aratılacak ve bulduğunda karşısında yazan açıklama sheet1 deki bilgi üstüne comment olarak yazılacak.

yardımcı olabilirseniz sevinirim