Sorgu için arama sonuçları: comment

Bu şekilde deneyiniz. Sub Açıklama_kopyala() On Error Resume Next For h = 2 To Cells(Rows.Count, "D").End(xlUp).Row Cells(h, "E") = Cells(h, "D").Comment.Text Next End Sub

...AÇIKLAMA_AL(Hücre As Range) Application.Volatile If Val(Application.Version) > 15 Then With Hücre If Not .CommentThreaded Is Nothing Then AÇIKLAMA_AL = .CommentThreaded.Text End If End With Else With Hücre...

Türkçe kısmını düzelttim. Terimleri çok iyi bilmiyorum kusura bakmayın. Excel 2013 kullanıyorum ne yazık ki bu kodda işe yaramadı :( hata veriyor. başka bir yolu var mı? yaklaşık 2300 satır var ve pek çoğunda açıklama var bu açıklamaları excel de dökmem gerekli yardımcı olabilirseniz çok...

Bu şekilde deneyiniz. Sub Açıklama_kopyala() For h = 1 To Cells(Rows.Count, "A").End(xlUp).Row Cells(h, "B") = Cells(h, "A").Comment.Text Next End Sub

...kod bölümüne uygulayıp deneyiniz. Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Aciklama As Comment, Aciklama_Kutusu As Shape Application.DisplayCommentIndicator = xlCommentIndicatorOnly If Not ActiveCell.Comment Is Nothing Then...

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