Sorgu için arama sonuçları: comment

Bu koda ilave etmek suretiyle listboxdaki seçili veri (açıklama) üzerinde değişiklik yapma imkanı sağlayabilirmiyiz?Ayrı bir command butona yazacağım.

...denermisiniz? On Error Resume Next ListBox1.Clear With Sheets("Anasayfa") For i = 15 To .Range("L65536").End(3).Row If Not .Range("L" & i).Comment Is Nothing Then If Trim(Replace(.Range("L" & i).Comment.Text, Chr(10), "")) <> "" Then ListBox1.AddItem...

...Resume Next ListBox1.Clear For i = 15 To Sheets("Anasayfa").Range("L65536").End(3).Row ListBox1.AddItem ListBox1.List(UserForm18.ListBox1.ListCount - 1, 0) = Sheets("Anasayfa").Range("L" & i) ListBox1.List(UserForm18.ListBox1.ListCount - 1, 1) = Sheets("Anasayfa").Range("L" & i).Comment.Text...

Bir Module içine; Public arr() Sub AciklamalariListBoxaEkle() For Each hcr In Range("L15:L20").SpecialCells(xlCellTypeComments) k = k + 1 ReDim Preserve arr(0 To k) arr(k) = hcr.Comment.Text Next UserForm1.Show End Sub Bir UserForm içine; Private Sub...

Çalıştı ama ilk iki satıra açıklama yazdı diğerlerini yazmadı.

Merhaba, Yazdığınız kodu aşağıdaki şekilde ters çevirip deneyiniz. Sheets("Sayfa3").Range("a65536").End(3)(2, 1) = Sheets("Anasayfa").Range("L" & i).Comment.Text

...ederim.Kod şu anda çalışmıyor.Bir fikir versin diye ekledim.kodu düzenleyecek arkadaşa teşekkürler Sheets("Sayfa3").Select For i = 15 To Sheets("Anasayfa").Range("L65536").End(3).Row Sheets("Anasayfa").Range("L" & i).Comment.Text.Copy Sheets("Sayfa3").Range("a65536").End(3)(2, 1) Next

Merhabalar, inceleyiniz.. https://s7.dosya.tc/server17/heifeo/comment.xlsm.html

Siz dosyanızı hazırlarken, son istediğiniz şey için alttaki düzenlemeyi yapmıştım. İnceleyiniz... https://s7.dosya.tc/server17/hnpv7h/comment.xlsm.html

...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

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.

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

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

...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...

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.

Acaba istediğiniz böyle bir şey midir ? https://s7.dosya.tc/server17/iywsiy/comment.xlsm.html

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

...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

...= "+" test = s1.Cells(i, "C") With s2.Cells(sat, sut) If IsEmpty(.Comment) Then .AddComment .Comment.Visible = False...

...s1.Cells(i, "G") = "+" test = s1.Cells(i, "C") With s2.Cells(sat, sut) .ClearComments .AddComment .Comment.Visible = False .Comment.Text Text:=test...