Sorgu için arama sonuçları: comment

...var başka ay yok o zaman A25 yen itibaren son dolu satırın altına gelecek şekilde ocak şubat Mart ayları kopyalayacak ve C25 ten itibaren commentler yazılacak C25 ten itibaren 1 dışında ne yazarsa yazsın commentler Font Times New Romans 12 punto Kalın Mavi olacak sondaki AG hücresine...

Kullanıcı tanımlı fonksiyon işinizi görür mü? Aşağıdaki fonksiyonu boş bir modüle uygulayın. Option Explicit Function COMMENT_TEXT(Veri As Range) Application.Volatile True If Not Veri.Comment Is Nothing Then COMMENT_TEXT = Veri.Comment.Text Else COMMENT_TEXT = ""...

Ekteki belgede temsicili bir dosya mevcut olup Üstteki tabloda Ocaktan Aralıka kadar olan tabloda eger Comment Açıklama Bilgisi varsa açıklama bilgisini yoksa hücrede yazan değeri 25 satırdan itibaren son dolu satırdan sonra A sütunundan başlamak sureti ile yapıştırmak AG hücresinde 1 11111...

...tekrar çift tıklarsanız gizlenecektir. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If ActiveCell.Comment.Visible = False Then ActiveCell.Comment.Visible = True Else ActiveCell.Comment.Visible = False End If End Sub

...yazayım. Yardım edebilecek olan varsa çok sevinirim . Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Açıklama_Ekleme As Comment Dim strText As String a = 2 If Cells(a, 1) > 0 Then strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", _...

...şekilde yazılınca veri üzerinde güncelleme yapılabiliyor a = Sheets("Anasayfa").TextBox1 If a = "" Then Exit Sub On Error Resume Next Sheets("Anasayfa").Columns(12).Find(ComboBox4).AddComment Sheets("Anasayfa").Columns(12).Find(ComboBox4).Comment.Text a MsgBox "kayıt yapılmıştır" Exit Sub

Textbox1 üzerinde değişiklik yapıp aşağıdaki kodu butondan çalıştırıyorum ama açıklamada değişiklik olmuyor.Ne önerirsiniz. TextBox1 = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text

...bu sorunu nasıl çözebilirim.Teşekkürler. On Error Resume Next TextBox1 = "" TextBox1 = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text a = TextBox1 If a = "" Then Exit Sub Sheets("Anasayfa").Columns(1).Find(ComboBox4).AddComment B =...

...Set S1 = Sheets("Anasayfa") For i = 15 To Sheets("Anasayfa").Range("O65536").End(3).Row If Not Sheets("Anasayfa").Range("O" & i).Comment Is Nothing Then If Trim(Replace(Sheets("Anasayfa").Range("O" & i).Comment.Text, Chr(10), "")) = ComboBox23.Value Then Set List =...

...ederim. ListBox1.Clear With Sheets("Anasayfa") On Error Resume Next 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 ListBox1.List(UserForm18.ListBox1.ListCount -...

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