Sorgu için arama sonuçları: comment

...İkisi de aynı aralıkta işlem görüyor. For X = 2 To Sheets("Anasayfa").Range("A65536").End(xlUp).Row For i = 1 To S1.Cells(Rows.Count, "a").End(xlUp).Row ListView öğesine SubItem için diğer satırlardaki gibi ekleyeceksiniz. Açıklama için de List.ListSubItems.Add , , S1.Cells(i, "D").Comment.Text

Örnek dosya olmadığı için denemeden yazıyorum. Aşağıdaki şekilde bir dener msini? For X = 15 To Sheets("Anasayfa").Range("A65536").End(xlUp).Row Müşteri .ListItems(X-14).SubItems(3)=Sheets("Anasayfa").Range("D" & X).Comment.Text Next X

...istedim ama olmadı,yardımcı olabilecek arkadaşa Teşekkür Ediyorum. With Müşteri1 For X = 15 To Sheets("Anasayfa").Range("A65536").End(xlUp).Row For a = 1 To Müşteri.Müşteri1.ListItems.Count Sheets("Anasayfa").Range(X, 4).Comment.Text = .ListItems(a).SubItems(3) Next: Next...

@Muzaffer Ali teşekkürler yanıtınız için ama olmadı yine kırmızıya boyamadı. Başka bir yolu var mıdır?

...End If Next ara1 For x = 2 To sonsatir1001 If S1.Cells(x, 3).Interior.Color = vbRed Then If S1.Cells(x, 3).Comment Is Nothing Then S1.Cells(x, 3).AddComment Else S1.Cells(x, 3).Comment.Text Text:=S1.Cells(x...

...Then ara1.Interior.Color = vbRed Next ara1 For x = 2 To sonsatir1001 If S1.Cells(x, 3).Interior.Color = vbRed Then If S1.Cells(x, 3).Comment Is Nothing Then S1.Cells(x, 3).AddComment Else S1.Cells(x, 3).Comment.Text Text:=S1.Cells(x, 3).Comment.Text & Chr(10) & "Tarih Hatalı!" GoTo...

...LookIn:=xlValues) If kontrol1 Is Nothing Then .Interior.Color = vbRed If .Comment Is Nothing Then .AddComment "Boş Olmamalı" Else .Comment.Text "Boş Olmamalı" End If...

Uzmanım özür dilerim yine tereddüt ettim İki satırı mı silmemiz gerekiyor, yoksa sadece fontstyle satırını mı? Zira düzenlediğiniz mesajınızda sadece bir satırı silmişsiniz, emin olamadım, uzmanıma sorayım dedim. :)

Comment özelliğini kurcalarken o satır fazladan kalmış. İki satırı da silebilirsiniz. Üstte ki mesajımı bu yönde düzelttim.

Uzmanım çok küçük bir soru Yazı karakteri kalın olmasın diye hangi satıra kesme işareti koymalıyım? ilk sıradaki Font.Bold satırına mı Üçüncü sıradaki Fontsyle=Kalın satırına mı Yoksa ikisine de mi. Bold ve Kalın aynı anlama geldiği için tereddüt ettim.

Alternatif; Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim My_Cell As Range, My_Comment As Comment For Each My_Cell In Intersect(Target, Range("B2:N100")).Cells With My_Cell .ClearComments If .Value <> "" Then...

...= "Tarih: " & Format(Date, "dd.mm.yyyy") & " " & "Saat: " & Format(Now(), " hh:mm ") & "" If Target.Value = "" Then SonVri = "" Target.ClearComments Target.NoteText SonVri If SonVri = "" Then Exit Sub Target.Comment.Visible = True Target.Comment.Shape.Select With Selection.Font...

...= "Tarih: " & Format(Date, "dd.mm.yyyy") & " " & "Saat: " & Format(Now(), " hh:mm ") & "" If Target.Value = "" Then SonVri = "" Target.ClearComments 'Target.NoteText SonVri & vbCrLf & Target Hücreye açıklama ekler Target.NoteText SonVri Target.Comment.Visible = True...

Uzmanım gümüş üye olduğum için sadece kodları denedim. Fakat yine hata verdi. Target.comment satırında hata veriyor.

...= "Tarih: " & Format(Date, "dd.mm.yyyy") & " " & "Saat: " & Format(Now(), " hh:mm ") & "" If Target.Value = "" Then SonVri = "" Target.ClearComments Target.NoteText SonVri & " " & Target Target.Comment.Shape.Select With Selection.Font .Name = "Calibri" .FontStyle =...

...= "Tarih: " & Format(Date, "dd.mm.yyyy") & " " & "Saat: " & Format(Now(), " hh:mm ") & "" If Target.Value = "" Then SonVri = "" Target.ClearComments Target.NoteText SonVri Target.Comment.Shape.Select With Selection.Font .Name = "Calibri" .FontStyle = "Normal" .Size...

Hemen deniyorum

...= "Tarih: " & Format(Date, "dd.mm.yyyy") & " " & "Saat: " & Format(Now(), " hh:mm ") & "" If Target.Value = "" Then SonVri = "" Target.ClearComments Target.NoteText SonVri Target.Comment.Visible = True Target.Comment.Shape.Select Target.Comment.Text Text:=CStr(Target.Value) With...

...= "" Target.NoteText SonVri End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Target.ClearComments If Target.Value = "" Then Exit Sub Target.AddComment Target.Comment.Visible = True Target.Comment.Shape.Select Target.Comment.Text...

Mevcutta boş hücrelerde açıklama yok. Yeni hücreleri tanımlarken sıkıntı çıkacak haliye Target.Comment.Text Text:=metin satırının hemen üstüne aşağıdakini ekleyin. If Target.Comment Is Nothing Then Target.AddComment