Sorgu için arama sonuçları: comment

...50 sayısı afakidir, kırmızı zeminli hücre sayısına göre değiştirile bilinir. Sub Makro1() On Error Resume Next Cells.SpecialCells(xlCellTypeComments).ClearComments For i = 1 To 50 Application.FindFormat.Clear Application.FindFormat.Interior.Color = 255 Cells.Find(What:=""...

...istediğiniz işlem dolaylı yöntemlerle yapılabilir. Hücre seçiminde veri doğrulamadaki giriş mesajı bölümü kullanılabilir. (Forumda InputMessage ifadesi ile arama yapabilirsiniz.) Hücre seçiminde hücreye açıklama kutusu eklenebilir. (Bunun içinde forumda Comment ifadesi ile arama...

@askm ; Kodunu çalıştırmadım, denemedim .... ne işe yarıyor, ne yapıyor, bilmiyorum..... ama okurken comment'ler(-açıklamalar) çok hoşuma gitti..... Kod yazmak işte budur, yazarken eğleneceksin ..... hem de kodu çalıştırana yol göstereceksin. Not: Yine de benden tavsiye..... "On Error Resume...

Elinize sağlık. çok iyi geldi..

Merhaba Bunu deneyiniz. Sub açıklama() On Error Resume Next For i = 1 To Range("A1048576").End(3).Row Cells(i, "B") = Cells(i, "A").Comment.Text Next End Sub

Aşağıdaki gibi deneyin. Private Sub CommandButton1_Click() Dim hucre As Range Set s1 = Sheets("Randevu") For Each hucre In s1.Range("B:Q").SpecialCells(xlCellTypeComments) If hucre.Comment.Text = TextBox1 Then say = say + 1 Next TextBox2 = say End Sub

Döngü içine aşağıdaki satırı ekleyip deneyin bakalım açıklamayı gösterecek mi? MsgBox S1..Range("C" & i).Comment.Text

Yaptım ama bu satır hata veriyor.Nedenini çözemedim.Comment.text yerine ne yazılabilir If S1.Range("A" & i).Value = UserForm1.TextBox1.Text and S1..Range("C" & i).Comment.Text <> "" Then

...For i = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row If S1.Range("A" & i).Value = UserForm1.TextBox1.Text and S1..Range("C" & i).Comment.Text <> "" Then Set List = .ListItems.Add(, , S1.Cells(i, "b").Text) List.ListSubItems.Add , , S1.Cells(i...

İnceleyiniz. https://www.excel.web.tr/search/241336/?q=comment&o=date

...Nothing Then MsgBox "Tarih bulunamıyor." Exit Sub End If For Bak = 0 To ComboBox1.ListCount - 1 ListView1.ListItems.Add , , ComboBox1.List(Bak, 0) On Error Resume Next ListView1.ListItems(Bak + 1).SubItems(1) = Gun(3 + Bak).Comment.Text Next

...Then MsgBox "Tarih bulunamıyor." Exit Sub End If For Bak = 0 To ComboBox1.ListCount - 1 ListView1.ListItems.Add , , ComboBox1.List(Bak, 0) On Error Resume Next ListView1.ListItems(Bak + 1).SubItems(1) = Gun(3 + Bak).Comment.Text Next...

Comment görünür olduktan sonra edit özelliğini aktif etmek gerekir. Sub Edit_Comment() If ActiveCell.Comment Is Nothing Then ActiveCell.AddComment SendKeys "+{F2}", True End Sub

...With Sheets("Sheet1") On Error GoTo cik Set Rng = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeComments) For Each cell In Rng cell.Offset(, 1).Value = cell.Comment.Text Next cell End With Exit Sub cik: MsgBox...

...5), 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...

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