Sorgu için arama sonuçları: comment

...If adSoyad = "" Then Exit Sub Application.EnableEvents = False ' Eski yorum varsa sil On Error Resume Next Target.Comment.Delete On Error GoTo 0 ' A sütununda eşleşen ad soyadı bul sonSatir = kontrolSayfasi.Cells(kontrolSayfasi.Rows.Count, "A").End(xlUp).Row...

...' Eklenecek resim yolunu kendinize göre yazın resimYolu = "C:\Users\M Demir\Desktop\ÖrnekResim.JPG" If Not hcr.Comment Is Nothing Then hcr.Comment.Delete End If hcr.AddComment "Bu hücreye resim eklenmiştir." ' Açıklamaya resim ekleyin With...

...If Not Intersect(Range("A2"), Target) Is Nothing Then With Range("A2") If .Value <> "" Then If .Comment Is Nothing Then .AddComment "Hareketler Listesi:" & Chr(10) End If .Comment.Text .Comment.Text & Date & " - "...

Teşekkürler Syn @mustafa1205 , çalışıyor. Ellerinize sağlık.

Sub Test() With Sheets("Yorum").Range("A2") If .Value <> "" Then If .Comment Is Nothing Then .AddComment "Hareketler Listesi:" & Chr(10) End If .Comment.Text .Comment.Text & Date & " - " & .Value & Chr(10)...

Bu satırda hata aldım. Yani ilk değeri ekledikten sonra ikincikez ekleme yapmaya çalıştığımda hata veriyor Hucre.AddComment Text:=Eski & Tarih & " - " & Yeni & Chr(10)

...Karakter sınır 32,767 karakterdir. Alternatif. Sub Test() With Sheets("Yorum").Range("A2") If .Value <> "" Then If .Comment Is Nothing Then .AddComment "Hareketler Listesi:" & Chr(10) End If .Comment.Text .Comment.Text & Date &...

...If Not Hucre Is Nothing Then Yeni = Hucre.Value ' Hucre'nin değerini Yeni değişkenine atıyoruz If Hucre.Comment Is Nothing Then ' Yorum olup olmadığını kontrol ediyoruz Eski = "Hareketler Listesi:" & Chr(10) Else Eski =...

...Dim Hucre As Range Dim Eski As String Hucre = Sheets("Yorum").Range("A2") If Not Hucre Is Nothing Then Yeni = Hucre.Value If Hucre.Comment.Text = "" Then Eski = "Hareketler Listesi:" & Chr(10) Else Eski = Hucre.Comment.Text End If tarih = Range("c1").Value...

Merhaba, Faydalı olabilir... https://www.excel.web.tr/threads/aciklama-formuelle-kopyalanabilir-mi.213476/#post-1196083 https://www.excel.web.tr/search/1611710/?q=comment&o=date

Hocam aynı cevabınıza ikinci cevap oldu ama kusura bakmayın. Dediğim gibi ben fark etmemişim bile sizin öngörünüzle silince yorumun silinmesi oldu. Çok güzel ve faydalı ama size bir şey danışsam. Normal "Murat1" yazınca silersem açıklama siliniyor. Ancak Veri Doğrulama ile listeden getirince ve...

Evet hocam fark etmemişim, ismi silince açıklama kalıyor. Teşekkür ederim. Çok güzel oldu. Emeğinize sağlık.

...yerine bunu kopyalayın. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Bul As Range If Not Target.Comment Is Nothing Then Target.Comment.Delete End If With Worksheets("Liste") Set Bul = .Range("A:A").Find(what:=Target.Text...

Deneyiniz. Dosya yolunu ve sayfa isimlerini kendi sisteminize göre revize edersiniz... Option Explicit Sub Update_Comments() Dim WB1 As String, WB2 As String, WS As Worksheet Dim My_Connection As Object, My_Recordset As Object Dim My_Query As String, My_Array As Variant Dim...

...https://www.excel.web.tr/threads/huecre-icine-yazilan-aciklamayi-baska-bi-huecreye-yazma.82939/ https://www.excel.web.tr/threads/comment-olan-huecrelerdeki-aciklamalari-huecreye-yazma.191441/#post-1063723...

Sub input_comment() ActiveSheet.Unprotect Dim pir As String pir = InputBox("Açıklama Giriniz:") Dim n As String n = ActiveCell.NoteText Dim l As Long l = Len(n) If l > 0 Then ActiveCell.NoteText Text:=" / " & pir, Start:=l + 1 Else...

@ÖmerBey Çok teşekkürler üstad.

Merhaba, Deneyiniz... Dim c As Comment For Each c In ActiveSheet.Comments c.Visible = c.Parent.Row = ActiveCell.Row Next

Hocam öncelikle emeğinize sağlık. Sub AciklamaEkle() With Selection .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="HATALI TCKİMLİK " .Comment.Shape.Select End With Kısmı; hücreyi, doğruysa YEŞİL yanlışsa KIRMIZI nasıl...