Sorgu için arama sonuçları: comment

...olarak eklemek.. B sütununda tarihler var.Örnek dosyayı aşağıda paylaşıyorum. a = Sheets("Takip").TextBox2 If a = "" Then Exit Sub On Error Resume Next Sheets("Takip").Columns(1).Find(ComboBox1).AddComment Sheets("Takip").Columns(1).Find(ComboBox1).Comment.Text a MsgBox "kayıt yapılmıştır"

...bir şeyin yapılabileceğini düşünüyorum.Şimdiden Teşekkür ederim. a = Sheets("Anasayfa").TextBox14 If a = "" Then Exit Sub On Error Resume Next Sheets("Anasayfa").Columns(1).Find(ComboBox4).AddComment Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text a MsgBox "kayıt yapılmıştır"

Ömer Bey yardımınız için çok teşekkür ederim, tam istediğim gibi vermiş olduğunuz kod işime yaradı. Zaman ayırdığınız için teşekkürler.

Aşağıdaki kodu deneyiniz... Sub kod() s = Cells(Rows.Count, "B").End(3).Row For Each hcr In Range("B2:B" & s).SpecialCells(xlCellTypeComments) hcr.Offset(0, 1).Value = Ayikla(hcr.Comment.Text) Next End Sub Private Function Ayikla(met) Dim re, deg Set re =...

Ömer bey içinde tarihten sonra gelen bazı açıklamalarda mevcut

Bir ktf yaptım. C2 ye yazın aşağı doğru çoğaltın. Örnek: =tutar(B2) Function tutar(ByRef hucre As Range) aciklama = hucre.Comment.Text tutar = aciklama End Function

...tarih olmayan başka açıklamalar da var mı? Eğer hepsi bu şekildeyse aşağıdaki kodu kullanabilirsiniz. Sub kod() s = Cells(Rows.Count, "B").End(3).Row For Each hcr In Range("B2:B" & s).SpecialCells(xlCellTypeComments) hcr.Offset(0, 1).Value = CDate(Split(hcr.Comment.Text, vbLf)(1)) Next...

...Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E5:E31")) Is Nothing Then Exit Sub Target.ClearComments If Target.Value = "" Then Exit Sub If IsNumeric(Target.Value) Then If Len(Target.Value) = 9 Then Target.Value =...

...Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("E5:E31")) Is Nothing Then Exit Sub Target.ClearComments If Target.Value = "" Then Exit Sub If TCKimlikOnYazimKontrol(Target.Value) = False Then With Target...

...Range("A25") Son = Cells(Rows.Count, 1).End(3).Row For Each Veri In Range("C25:AG" & Son) If Not Veri.Comment Is Nothing Then Veri.Value = Veri.Comment.Text Veri.Font.Name = "Times New Roman" Veri.Font.Size = 12...

...var başka ay yok o zaman A25 yen itibaren son dolu satırın altına gelecek şekilde ocak şubat Mart ayları kopyalayacak ve C25 ten itibaren commentler yazılacak C25 ten itibaren 1 dışında ne yazarsa yazsın commentler Font Times New Romans 12 punto Kalın Mavi olacak sondaki AG hücresine...

Kullanıcı tanımlı fonksiyon işinizi görür mü? Aşağıdaki fonksiyonu boş bir modüle uygulayın. Option Explicit Function COMMENT_TEXT(Veri As Range) Application.Volatile True If Not Veri.Comment Is Nothing Then COMMENT_TEXT = Veri.Comment.Text Else COMMENT_TEXT = ""...

Ekteki belgede temsicili bir dosya mevcut olup Üstteki tabloda Ocaktan Aralıka kadar olan tabloda eger Comment Açıklama Bilgisi varsa açıklama bilgisini yoksa hücrede yazan değeri 25 satırdan itibaren son dolu satırdan sonra A sütunundan başlamak sureti ile yapıştırmak AG hücresinde 1 11111...

...tekrar çift tıklarsanız gizlenecektir. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) On Error Resume Next If ActiveCell.Comment.Visible = False Then ActiveCell.Comment.Visible = True Else ActiveCell.Comment.Visible = False End If End Sub

...yazayım. Yardım edebilecek olan varsa çok sevinirim . Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Açıklama_Ekleme As Comment Dim strText As String a = 2 If Cells(a, 1) > 0 Then strText = Application.InputBox("Eklenecek olan mesajı aşağıya yazınız.", _...

...şekilde yazılınca veri üzerinde güncelleme yapılabiliyor a = Sheets("Anasayfa").TextBox1 If a = "" Then Exit Sub On Error Resume Next Sheets("Anasayfa").Columns(12).Find(ComboBox4).AddComment Sheets("Anasayfa").Columns(12).Find(ComboBox4).Comment.Text a MsgBox "kayıt yapılmıştır" Exit Sub

Textbox1 üzerinde değişiklik yapıp aşağıdaki kodu butondan çalıştırıyorum ama açıklamada değişiklik olmuyor.Ne önerirsiniz. TextBox1 = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text

...bu sorunu nasıl çözebilirim.Teşekkürler. On Error Resume Next TextBox1 = "" TextBox1 = Sheets("Anasayfa").Columns(1).Find(ComboBox4).Comment.Text a = TextBox1 If a = "" Then Exit Sub Sheets("Anasayfa").Columns(1).Find(ComboBox4).AddComment B =...

...Set S1 = Sheets("Anasayfa") For i = 15 To Sheets("Anasayfa").Range("O65536").End(3).Row If Not Sheets("Anasayfa").Range("O" & i).Comment Is Nothing Then If Trim(Replace(Sheets("Anasayfa").Range("O" & i).Comment.Text, Chr(10), "")) = ComboBox23.Value Then Set List =...

...ederim. ListBox1.Clear With Sheets("Anasayfa") On Error Resume Next For i = 15 To .Range("L65536").End(3).Row If Not .Range("L" & i).Comment Is Nothing Then If Trim(Replace(.Range("L" & i).Comment.Text, Chr(10), "")) <> "" Then ListBox1.AddItem ListBox1.List(UserForm18.ListBox1.ListCount -...