Sorgu için arama sonuçları: comment

Ben olsam forumdaki eski konuları bir karıştırırım. Belki bir şeyler çıkabilir. https://www.excel.web.tr/search/190500/?q=comment&o=date

...Explicit Sub Aciklamalari_Yeniden_Boyutlandir() Dim Veri As Range, Say As Long For Each Veri In Selection If Not Veri.Comment Is Nothing Then Veri.Comment.Shape.TextFrame.AutoSize = True Say = Say + 1 End If Next If Say = 0...

...göre her seferinde yeniden düzenlemem gerekiyor. Bunu otomatik boyutlandıracak bir kod vardmıdır. Teşekkürler. ElseIf (ActiveCell.Column = 14) And (ActiveCell.Row = 13) Then Range("C13").AddComment Range("C13").Comment.Visible = False Range("C13").Comment.Text Text:="" & Range("N13") & ""

...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:="" Cells(c.Row...

Merhaba, Kodlardaki kırmızı işaretli bölüm silme işlemini yapar. Kırmızı kalarak diğer 3 satırı silerseniz istediğiniz olur. Cells(c.Row, "B").ClearComments Cells(c.Row, "B").AddComment Cells(c.Row, "B").Comment.Text Text.Delete Cells(c.Row, "B").Comment.Text Text:=deg

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