Textbox'a Açıklama Ekleme

[fehdur]

Aşağıdaki kod ile belli hücreye ait "AÇIKLAMAYI" Textbox'a yazdırıyorum ama yapmak istediğim Comboboxdaki değişken değere göre Textboxa açıklamayı yazsın.Yani Range("A2") yerine combobox1 olacak ama comboboxdaki isimler değiştikçe o isimlere ait açıklamalar Textboxda gözükecek.Umarım açıklayıcı olmuştur.Teşekkürler.

TextBox2.Value = Sheets("Açıklama").Range("A2").Comment.Text

 

[fehdur]

Tamam aşağıdaki kod ile sorunu çözdüm.

isim = ComboBox7.Value
adres = Sheets("Açıklama").Range("A:A").Find(isim).Comment.Text
ActiveSheet.OLEObjects("Textbox2").Object.Text = adres

 

[fehdur]

ActiveCell.AddComment komutu ile herhangi aktif hücreye açıklama eklenebiliyor.Hücre yerine comboboxdaki değişken isime açıklama eklenebilirmi.

 

[işsiz123]

Valla ben sizin ne yapmak istediğiniz anlamadım anlasaydım yardımcı olacaktım.

 

[ÖmerBey]

Merhaba,
ComboBox1.ControlTipText özelliğini deneyiniz...

 

[fehdur]

sayın işsiz123 bilindiği üzere hücreye sağ tıklandığında açıklama eklenebiliyor.Öyle bir kod yazalım ki comboboxda bulunan 500 adet isimden herhangi birini tıkladığımızda açıklama ekleme kutusu (sayfası) açılsın.Ama her isme ait açıklama ayrı olacak.Yani isimler hücrede değilde comboboxda yazılı olacak.

 

[fehdur]

Sn.Ömer bey ComboBox1.ControlTipText yazan yere ne yazılacak ya da nasıl kullanılacak.Biraz bilgi verirmisiniz?

 

[fehdur]

Merhaba,
ComboBox1.ControlTipText özelliğini deneyiniz...

Sn.Ömer bey ComboBox1.ControlTipText yazan yere ne yazılacak ya da nasıl kullanılacak.Biraz bilgi verirmisiniz?

 

[ÖmerBey]

Aşağıya bir örnek yazdım.
Haftanın günlerinin yer aldığı bir Combobox1 değiştikçe fare üzerine geldiği zaman gözüken açıklama metni değişecektir.

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Is = "Pazartesi"
    metin = "Haftanın 1. günü"
Case Is = "Salı"
    metin = "Haftanın 2. günü"
Case Is = "Çarşamba"
    metin = "Haftanın 3. günü"
Case Is = "Perşembe"
    metin = "Haftanın 4. günü"
Case Is = "Cuma"
    metin = "Haftanın 5. günü"
End Select
ComboBox1.ControlTipText = metin
End Sub

 

[fehdur]

Aşağıya bir örnek yazdım.
Haftanın günlerinin yer aldığı bir Combobox1 değiştikçe fare üzerine geldiği zaman gözüken açıklama metni değişecektir.

Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Is = "Pazartesi"
    metin = "Haftanın 1. günü"
Case Is = "Salı"
    metin = "Haftanın 2. günü"
Case Is = "Çarşamba"
    metin = "Haftanın 3. günü"
Case Is = "Perşembe"
    metin = "Haftanın 4. günü"
Case Is = "Cuma"
    metin = "Haftanın 5. günü"
End Select
ComboBox1.ControlTipText = metin
End Sub

Comboboxların sayfada mı yoksa userformda mı açılmış olması fark ediyormu ? En alt satır hata verdi.Combobox sayfada açılı.
Userformda açılı olan combobox hata vermiyor ama üzerine geldiğimde veya tıkladığımda bir şey değişmiyor.

 

[ÖmerBey]

Evet, fark eder. Userform için yazmıştım.
Anlaşılan ben sorunuzu yanlış anladığımdan dolayı sizi yanlış yönlendirdim, kusura bakmayın.
İyi çalışmalar...

 

[fehdur]

Estağfurullah ama dediğim gibi bir fark olmadı.Acaba event (olay) hatasımı var.

 

[ÖmerBey]

Ekli dosyada hem sayfada hem de userform üzerinde yer alan comboboxları inceleyiniz...
İyi geceler, iyi çalışmalar...

 

[Saban Sertkaya]

Acaba istediğiniz böyle bir şey midir ?

comment.xlsm dosyasını indir - download

comment.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[fehdur]

Acaba istediğiniz böyle bir şey midir ?

comment.xlsm dosyasını indir - download

comment.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

Evet istediğim böyle birşeydi yalnız açıklama koymak istemedğim hücrelere de kırmızı clic koyuyor onu engelleyebilirmiyiz )Çalışma için Teşekkür ederim.

 

[fehdur]

Çalışma güzel ama ınputboxa yazılan açıklamaya ikinci veya üçüncü kez ekleme yapılamıyor yapılmak istense bile önceki silinmiş oluyor.Umarım bu konuyu çözebilirsiniz.

 

[Saban Sertkaya]

Örnek dosyanız var ise ekleyin, üzerinden çözüm arayalım.
Bu arada altın üye değilim, eğer dosya ekleyecek iseniz alternatif link koyun lütfen.

 

[fehdur]

Saban Bey Yeni bir uygulama başlatmaya karar verdimİsterseniz bu konuda yardımcı olun.Userformdaki textbox kullanılarak Sayfaya kayıt yapılacak.Ama daha önce yazılmış bulunan dolu hücreye ikinci veya üçüncü kere eklemeler yapılabilecek.Ben birşeyler yaptım ama iş dolu hücreye ilave kayıt yapmaya gelince beceremedim.Bu arada alternatif link nasıl konuyor bilmiyorum.Anlatırsanız yaparım.

 

[Saban Sertkaya]

Merhabalar,

Öncelikle isterseniz aşağıdaki kodu deneyebilirsiniz.
İnputbox'a herhangi bir değer yazmaz iseniz, hücreye açıklama koymuyor. Veya açıklama var olan bir hücreye tekrar açıklama isterseniz, eskisini ile birlikte "ekleyerek" koyuyor.

Private Sub ComboBox1_Change()
On Error Resume Next
a = InputBox("Açıklamayı giriniz")
If a = Cancel Then Exit Sub
Columns(7).Find(ComboBox1).Select
ActiveCell.AddComment
b = ActiveCell.Comment.Text
ActiveCell.Comment.Text b & " " & a
End Sub


İkinci olarak,

dosya.tc gibi bir upload sitesine dosyanızı upload edin ve o sitenin vermiş olduğu linki buraya yazın. Böylece dosyanızı o site üzerinden indirebilirim.

 

[fehdur]

Merhabalar,

Öncelikle isterseniz aşağıdaki kodu deneyebilirsiniz.
İnputbox'a herhangi bir değer yazmaz iseniz, hücreye açıklama koymuyor. Veya açıklama var olan bir hücreye tekrar açıklama isterseniz, eskisini ile birlikte "ekleyerek" koyuyor.

Private Sub ComboBox1_Change()
On Error Resume Next
a = InputBox("Açıklamayı giriniz")
If a = Cancel Then Exit Sub
Columns(7).Find(ComboBox1).Select
ActiveCell.AddComment
b = ActiveCell.Comment.Text
ActiveCell.Comment.Text b & " " & a
End Sub


İkinci olarak,

dosya.tc gibi bir upload sitesine dosyanızı upload edin ve o sitenin vermiş olduğu linki buraya yazın. Böylece dosyanızı o site üzerinden indirebilirim.

Columns(7) yerine sayfa 5 sütun A yı göstermemiz gerekiyor.