Sorgu için arama sonuçları: comment

...Not c Is Nothing Then Adr = c.Address Do If Cells(c.Row, "B") = trh Then Cells(c.Row, "B").ClearComments Cells(c.Row, "B").AddComment Cells(c.Row, "B").Comment.Text Text.Delete Cells(c.Row...

...Not c Is Nothing Then Adr = c.Address Do If Cells(c.Row, "B") = trh Then Cells(c.Row, "A").ClearComments Cells(c.Row, "A").AddComment Cells(c.Row, "A").Comment.Text Text:="" Cells(c.Row...

...= "" Or TextBox3 = "" Then MsgBox "Lütfen hasta seçimi ile birlikte tarih giriniz" Exit Sub End If For a = 15 To [A65536].End(xlUp).Row If Cells(a, 1) = TextBox2 And CDate(Cells(a, 2)) = CDate(TextBox3) Then On Error Resume Next TextBox8 = "" TextBox8 = Cells(a, 1).Comment.Text End If Next a

...Then Adr = c.Address Do If Cells(c.Row, "B") = trh Then deg = deg & Chr(10) & Cells(c.Row, "A").Comment.Text End If Set c = [A:A].FindNext(c) Loop While Not c Is Nothing And c.Address <> Adr End If If deg...

...[A65536].End(xlUp).Row If Cells(a, 1) = ComboBox1 And CDate(Cells(a, 2)) = CDate(TextBox3) Then On Error Resume Next TextBox11 = "" TextBox11 = Cells(a, 1).Comment.Text TextBox11 = TextBox11 & " - " & Cells(a, 2).Comment.Text TextBox11 = TextBox11 & " - " & Cells(a, 3).Comment.Text End If Next a

Yada şöyle yapabilirsiniz. For a = 1 to [A1048576].end(xlup).row if cells(a,1) = textbox1 and cells(a,2) = combobox1 then textbox2 = cells(a,1).comment.text next a

Aşağıda birşeyler yaptım ama çalışmıyor,Düzeltebilecek arkadaş varsa yardım edebilir mi? TextBox2.Value = Sheets("Takip").Columns(1).Find(ara, , xlValues, xlWhole) And Sheets("Takip").Columns(2).Find(trh, , xlValues, xlWhole).Comment.Text

...Not c Is Nothing Then Adr = c.Address Do If Cells(c.Row, "B") = trh Then Cells(c.Row, "A").ClearComments Cells(c.Row, "A").AddComment Cells(c.Row, "A").Comment.Text Text:="" Cells(c.Row...

Kod için teşekkürler.Yalnız comboboxa ve textbox1'e girdğimiz değerlere göre aranan açıklamayı textbox2'de nasıl görebiliriz.Yani ben aranan kişinin ismini ve tarihi gireyim daha sonra o açıklamayı textbox2'de göreyim.

...Not c Is Nothing Then Adr = c.Address Do If Cells(c.Row, "B") = trh Then Cells(c.Row, "A").ClearComments Cells(c.Row, "A").AddComment Cells(c.Row, "A").Comment.Text Text:="" Cells(c.Row...

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