Sorgu için arama sonuçları: comment

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

...eklenecek, Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a:b]) Is Nothing Then Target.ClearComments If Target.Count > 1 Then Exit Sub If IsNumeric(Target.Value) Then If Not Intersect(Target, [a:a]) Is Nothing Then...

...*.png; *.bmp") If DosyaYolu <> "False" Then ResimAdi = Mid(DosyaYolu, InStrRev(DosyaYolu, "\") + 1) With ActiveCell .AddComment .Comment.Text Text:=ResimAdi .Comment.Shape.Fill.UserPicture DosyaYolu End With End If End Sub

...klasör açılsın bu klasör içindeki resimlerden birini seçip onayladığımda açıklamada bu resim gözüksün istiyorum. internette araştırdığımda " Comment.Shape.Fill.UserPicture " bu komut ile klasör açma komutlarını birleştiremiyorum. VBA konusunda sadece forumlardan aldığım kodları deneme...

...Target.Calculate If Intersect(Target, [D:D]) Is Nothing Then Exit Sub On Error Resume Next With Target .ClearComments .AddComment .Visible = False .Comment.Text Text:=Target.Offset(0, 19).Value & " Kişi, " & Target.Offset(0, 6).Value & "...

Çok teşekkürler, size bir soru daha sormak istiyorum aşağıya yapıştırdığım formül süslü parantezle de yapılabiliyor sanırım daha kolay bir şekilde. Nasıl formüllenebilir yardımcı olursanız çok sevinirim...

...Target As Range) If Intersect(Target, [F:F]) Is Nothing Then Exit Sub On Error Resume Next With Target .ClearComments .AddComment .Visible = False .Comment.Text Text:=Target.Offset(0, 9).Value & ", " & Target.Offset(0, 10).Value End With...

Aşağıdaki kodu inceleyebilirsiniz. Sub CopyCommentText() Dim sourceWorkbook As Workbook Dim targetWorkbook As Workbook Dim sourceSheet As Worksheet Dim targetSheet As Worksheet Dim sourceCell As Range Dim targetCell As Range Dim commentText As String Set...

...RAPORLAR sayfası bölümünde birçok kod vardı. Bu kodlarla çakışabileğini düşündüm ve bu kodların tamamını Blokladım geçici olarak (Comment Block) Böyle deneyince gerçek dosyalarda da sorunsuz çalışmış oldu. Teşekkürler Korhan hocam. Aslında çakışma hiç olmasaydı tabi daha iyi olurdu ama...

Muzaffer Bey sorunsuz çalıştı. Değerli zamanınızı ayırdığınız için teşekkür ederim.

...yazar. Kodu herhangi bir modüle kopyalayarak çalıştırınız. Sub Test() Dim Bak As Range For Each Bak In Selection If Not Bak.Comment Is Nothing Then Cells(Bak.Row, "A") = Replace(Replace(Bak.Comment.Text, Bak.Comment.Author & ":", ""), Chr(10), "") End If...