Textbox'a Açıklama Ekleme

[Saban Sertkaya]

O zaman o şekilde yazalım. Yani;

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

 

[fehdur]

O zaman o şekilde yazalım. Yani;

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

Combobox ile sayfa birlikte aynı yerlerde ise sayfadaki ismin üzerine gelince açıklama gözüküyor ama combobox farklı sayfada ise ismin üzerine gelince açıklama gözükmüyor.

 

[fehdur]

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

Açıklamayı yazdıktan sonra okumak için aynı sayfadaki textboxı nasıl kullanabiliriz.Ben aşağıdaki kodu yazdım ama çalışmadı.Yani yazılan açıklama textboxda gözükeck.

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

 

[Saban Sertkaya]

Afaki uğraşmayalım derim. Örnek dosyanızı ekleyin, her ne yapılacaksa onun üzerinde yapmaya çalışalım.
Bu şeklide uzayıp gidecek gibi görünüyor.

 

[fehdur]

internet8.xlsm dosyasını indir - download

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

s7.dosya.tc

 

[Saban Sertkaya]

Siz dosyanızı hazırlarken, son istediğiniz şey için alttaki düzenlemeyi yapmıştım.
İnceleyiniz...

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]

internet7.xlsm dosyasını indir - download

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

www.dosya.tc

Önce gönderdiğimde bozukluk vardı.Comboboxı düzenleyip yeniden gönderdim.

 

[fehdur]

Evet program saat gibi çalışıyor.Yeni çalışmalarda görüşmek üzere.Teşekkür ederim.

 

[fehdur]

Saban Bey iyi günler.Açıklama eklemeyi başarılı bir şekilde uyguladık ama birde açıklamayı silme komutu gerekiyor.Ben uğraştım yapamadım.

 

[Saban Sertkaya]

Merhabalar, inceleyiniz..

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]

Application.ScreenUpdating = False
Sheets(5).Select
Columns(1).Find(Sheets(1).ComboBox1).Select
Selection.ClearComments
Sheets(1).Select
Sheets(1).TextBox1 = ""
Application.ScreenUpdating = True

3.satırı uyarlıyamıyorum.Column(1) e ne yazılacak çözemedim.Örnek dosya gönderiyorum isterseniz kodu "Açıklama sil" butonuna ekleyin oradan bakayım.

internet7.xlsm dosyasını indir - download

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

s7.dosya.tc

 

[Saban Sertkaya]

Columns = Kolon
Yani 1.Kolon
Yani A Sütunu.

 

[Saban Sertkaya]

Eklemiş olduğunuz dosya eskisi sanırım.
Zira combobox ile eklenmeye çalışan açıklamalar, kodlama bölümünde yanlış yeri gösteriyor.
O yüzden bu dosyanıza göre cevap yazmak hatalı işleme sebep olur.

 

[fehdur]

Kodu aşağıdaki şekilde uyarladım.Sorun Columns(1) ne yazayım.İsimler sayfa 2 de combobox ve textbox sayfa 4 de.

Application.ScreenUpdating = False
Sheets(2).Select
Columns(1).Find(Sheets(4).ComboBox7).Select
Selection.ClearComments
Sheets(4).Select
Sheets(4).TextBox2 = ""
Application.ScreenUpdating = True

 

[Saban Sertkaya]

Kodun açıklaması şu,
Sheets(2).Select 'Sayfa2'yi seç
Columns(1).Find(Sheets(4).ComboBox7).Select 'Sayfa2'de A sütunu içinde; Sayfa4'deki Combobox7'nin değerini ara, seç.
Selection.ClearComments 'Seçili hücredeki açıklamayı sil
Sheets(4).Select 'Sayfa4'ü seç
Sheets(4).TextBox2 = "" 've Textbox'un içindeki yazıyı sil

Sayfa2'ye geçip seçme işlemi yapmadan, açıklama silinmiyor.
O yüzden sayfa2'ye geçiyoruz.
İsimler A sütununda ise Columns(1) doğru demektir.

YALNIZ DİKKAT : Sheets(4) ifadesi, 4.sırada bulanan sayfayı ifade eder.
Sheets(4) ===> 4.sırada bulanan sayfa
Sheets("Sayfa4") ===> İsmi Sayfa4 olan sayfa
aynı şeyler olmayabilir. Muhtemelen burada hata yapıyorsunuz.
Sheets(2) ile Sheets(4) 'ü kontrol edin derim.

 

[fehdur]

Tamamdır,düzelttim.Sağol.

 

[Saban Sertkaya]

Sen sağol. Kolay gelsin.