Sorgu için arama sonuçları: comment

...4), i Next i For i = 1 To Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row Acıklama = Sheets("Anasayfa").Range("A" & i).Comment.Text If Acıklama <> "" And dict.exists(Acıklama) Then Range("F" & dict(Acıklama) + 1) = "DOLU" End If Next i...

Konuyu anlatabilmek adına yazınca metne dönüştü. 1-Doğru size gönderdiğim örnek sonradan yapıldı aceleye geldiği anlaşılıyor.Cells(X, "a").Comment.Text ifadesinde sayfa adını belirtmemişim başına eklemem gerekirdi. 2- Sheets("Döküm").Cells(X, "a" & b & c & d) ifadesi hatalı ise doğrusunu...

...başlıyor. 2. .Cells(X, "a" & b & c & d) nın açılımının A1OCAK olacağını varsayımı doğru değil. Sözdiziminiz hatalı 3. Cells(X, "a").Comment.Text ifadesinde bir hata yok. Eğer hücre içinde bir açıklama yoksa bu satır HATA ile sonuçlanır. Bunu gidermek için Hata kontrol denetimi ekleriz ve...

...olacağını varsaydım.Eğer A1OCAK döküm sayfasındaki A1OCAK ile eşleşirse ilgili satırın "F" sutununa DOLU yazsın istedim.Ama Cells(X, "a").Comment.Text komutu excel için geçerli bir kod olmadığı anlaşılıyor.Amacım Döküm sayfasında istediğim veriye ulaşabilmek bunun için Anasayfada yapacağım...

1. Kodlarınızda Cells(X, "a").Comment.Text kodun çalıştığı Döküm sayfasından veri okumaya çalışıyor. 2. If Cells(X, "a").Comment.Text = Sheets("Döküm").Cells(X, "a" & b & c & d) Then yine bu satırdaki BOLD kısımda hücre başvurunuz hatalı. 3. Herhangi bir Açıklama olan hücredeki değeri siz döküm...

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