• DİKKAT

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

Textbox'a Açıklama Ekleme

  • Konbuyu başlatan Konbuyu başlatan fehdur
  • Başlangıç tarihi Başlangıç tarihi
F

fehdur

Katılım
26 Eylül 2020
Mesajlar
171
Excel Vers. ve Dili
excel 2019 pro.Türkçe
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
 
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
 
ActiveCell.AddComment komutu ile herhangi aktif hücreye açıklama eklenebiliyor.Hücre yerine comboboxdaki değişken isime açıklama eklenebilirmi.
 
Valla ben sizin ne yapmak istediğiniz anlamadım anlasaydım yardımcı olacaktım.
 
Merhaba,
ComboBox1.ControlTipText özelliğini deneyiniz...
 
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.
 
Son düzenleme:
Sn.Ömer bey ComboBox1.ControlTipText yazan yere ne yazılacak ya da nasıl kullanılacak.Biraz bilgi verirmisiniz?
 
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.
Kod: 
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
 
ÖmerBey' Alıntı:
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.
Kod: 
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
Genişletmek için tıkla ...

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.
 
Son düzenleme:
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...
 
Estağfurullah ama dediğim gibi bir fark olmadı.Acaba event (olay) hatasımı var.
 
Ekli dosyada hem sayfada hem de userform üzerinde yer alan comboboxları inceleyiniz...
İyi geceler, iyi çalışmalar...
 

Ekli dosyalar

Son düzenleme:
Ç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.
 
Ö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.
 
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.
 
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.
 
Saban Sertkaya' Alıntı:
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.
Genişletmek için tıkla ...
Columns(7) yerine sayfa 5 sütun A yı göstermemiz gerekiyor.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst