Sorgu için arama sonuçları: comment

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

...aşağıdaki kodları yapıştırın, kodlardan herhangi bir satır seçiliyken F5 tuşuna basarak kodları çalıştırın. Sub Test() Dim Aciklama As Comment Dim Bak As Range Dim Alan As Range Set Alan = Range("A1:H20")'Sadece A1 ile H20 aralığındaki açıklamaları kontrol eder. Siz...

...+ 1 .Range("A" & SonSatir) = Range("A1") .Range("B" & SonSatir) = 1 .Range("B" & SonSatir).AddComment .Range("B" & SonSatir).Comment.Text "Kayıt Tarihi: " & Now Else If Range("B1") = "SİL" And...

Range("B1").Comment.Text Text:=[a1].Value bu kısımda application defined or object-defined error Hatası Verdi

Bu şekilde deneyiniz. Sub aek() [b1].ClearComments Range("B1").AddComment Range("B1").Comment.Text Text:=[a1].Value End Sub

Sayın muygun teşekkür ederim yön tuşları ilede resmi göstermemiz mümkünmü acaba