Sorgu için arama sonuçları: comment

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

...Sub Worksheet_SelectionChange(ByVal Target As Range) Dim hcr As Range Dim c As Integer Dim yuk As Double, gen As Double Columns("c").ClearComments If Intersect(Target, [b2:b15000]) Is Nothing Then Exit Sub If Target.Count > 2 Then Exit Sub With Cells(Target.Row, "c") .AddComment...

...Sub updateAccess() Dim cn As ADODB.Connection Dim rstProducts As ADODB.Recordset Dim sProduct As String Dim cPrice As String Dim counter As Integer Application.DisplayAlerts = False Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data...

Açıklama kutucuğuna eski değerler arşivlenebilir. Forumda daha önce benzer bir konu vardı. Comment ifadesi ile arama yapın ve çıkan konuları inceleyin.