Sorgu için arama sonuçları: comment

...not set- şeklinde hata veriyor.Acaba hatayı nerede yapıyorum.Yardımcı olabilirmisiniz. Dim X As Long For X = 15 To Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row If Cells(X, "a").Comment.Text = Sheets("Döküm").Cells(X, "a" & b & c & d) Then Sheets("Döküm").Cells(X, "f") = "DOLU" End If...

...to Word using VBA in Microsoft Excel (exceltip.com) Sub CopyWorksheetsToWord() ' requires a reference to the Word Object library:' --- Comment ' in the VBE select Tools, References and check the Microsoft Word X.X object library' --- Comment 'Dim wdApp As Word.Application, wdDoc As...

Çok teşekkür ederim. Düzeldi.

...Then ActiveSheet.Unprotect If Target.Cells.Count = 1 Then If Target.Value = "" Then Target.ClearComments Else Target.ClearComments Target.AddComment.Text vbLf & "Tarih" & vbLf & Now & vbLf...

..."a").Text) List.ListSubItems.Add , , S1.Cells(i, "c").Text List.ListSubItems.Add , , S1.Cells(i, "D").Comment.Text ' (Hata verdiren satır) List.ListSubItems.Add , , S1.Cells(i, "g").Text List.ListSubItems.Add , , S1.Cells(i...

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