Aşağıdaki Kodu deneyin.
Sub KULLANICIDEGISTIR()
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
newName = "ALİ ARAS"
On Error Resume Next
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xComment In xWs.Comments
oldName = Left(xComment.Text...
kod ile yapmak isterseniz
strImagePath = "C:\örnek.jpg"
Range("F9").Select 'örnek hücre
ActiveCell.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Shape.Fill.UserPicture strImagePath
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=""...
...aktif bırakıyorum. ihtiyaç halinde bu tırnak işaretlerini kaldırıp işimi yapıp tekrar tırnak işaretini koyuyorum
bunuda editör üstünde comment block uncomment block butonuyla yapıyorum.
ayrı bir kod yazıp excelde bir butona sadece bu komut düzeneğime comment block uncomment block...
..."B"), m.[C:C], 0) + 2
sut = wf.Match(md.Cells(Target.Row, "A"), m.[3:3], 0)
With m.Cells(sat, sut)
.ClearComments
If Target <> "" Then
.AddComment: .Comment.Text Text:=Target.Text
End If
End With
End Sub
BİRLEŞECEK DİGER VBA KODU
Private Sub...
...acaba. Şimdiden çok teşekkürler.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
say = ActiveSheet.Comments.Count
For i = 1 To say
ad = Split(Comments(i).Text, Chr(10))
If ad(0) = Target.Address Then
If Target.Value = "" Then
yazı = "Silindi"
Else
yazı = Target...
Merhaba Arkadaşlar,
Aşağıdaki kod, A2 hücresinde açıklama varsa C5 hücresine bu açıklamayı yazdırıyor. Ama AÇIKLAMA YOKSA hata veriyor.
Bu kodu hata vermeyecek şekilde revize etmek mümkün mü acaba !
Range("C5") = Range("A2").COMMENT.Text
Merhabalar,
Sheet 1 deki A1 hücresine çift tıkladığımda sheet 2 deki B2 hücresine gidiyorum.Ama sheet 1 deki A1 hücresine comment(bilgi notu) eklediğimde,
bu olay olmuyor.
Sorum şu hücrede comment var ise neden ilgili linkli hücreye gidemiyorum.
Saygılar,
Sub aciklamafont()
Dim hucre As Range
For Each hucre In Cells.SpecialCells(xlCellTypeComments)
hucre.Comment.Visible = True
hucre.Comment.Shape.Select True
Selection.Font.Color = -1759197
Selection.Font.Name = "Calibri"
Selection.Font.Italic = True
Selection.Font.Size = 8
Selection.Font.Bold =...
...Dim yuk As Double, gen As Double
SON = Worksheets(ActiveSheet.Name).Cells(1, Columns.Count).End(xlToLeft).Column
Columns(SON).ClearComments
If InStr(Target.Address, ":") > 0 Or InStr(Target.Address, ",") > 0 Then Exit Sub
If Target.Value = "" Then Exit Sub
With Cells(Target.Row, SON)...
..."x" yazılı hücrelerin sayısı yazılsın.
Private Sub Worksheet_Change(ByVal Target As Range)
Son = [A65536].End(3).Row
If Intersect(Target, Range("g1:w300")) Is Nothing Then Exit Sub
Range("G1").Comment.Text Text:=(Application.WorksheetFunction.CountIf(Range("g2:g" & Son), "X"))
End Sub
...kodu nasil degistirmeliyim?
Private Sub Worksheet_Change(ByVal Target As Range)
a = [A12]
mesaj = a & " "
With ActiveSheet.Range("A2")
.ClearComments
.AddComment
.Comment.Visible = False
.Comment.Text Text:=mesaj
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
...yardımcı olmadığı için sorunumu daha detaylı anlatan yeni bir konu açmak istedim.
excel 2013 ingilizce kullanıyorum. excel dosyamda çokça comment kullanıyorum bu commentlerin boyutları değişebiliyor hatta bazen görünmez hale gelecek kadar küçülüyor bu nedenle bir makro yardımıyla commentleri...
...= " veriside var. yani sheet2 de 3. satıra veriyi getirirken başına "Title = " verisini ekleyip yazmalı.
aynı şekilde 4. satırda "Comment = 10.10.10.1" verisi mevcut. bu veriyide sheet1 deki ilk satırda bulunan ip sütunu altındaki 10.10.10.1 verisi var fakat başında "Comment =...
Merhaba arkadaşlar;
"B","C" .. gibi kodlara göre hesaplama yapıp açıklamalara(comment) bakiye yazıyor.1.hafta,2.hafta,3.hafta.....52.hafta şeklinde yazarsam sorun yok.Fakat 52 haftayı tek tek yazdırmak yerine tek bir kod ile bu programı nasıl yaparım.
Saygılarımla
Private Sub...
...Month(Datum) + 1, "01") - 1)
End Function
Sub Kommentar_formatieren(Bereich As Range, Text As String)
With Bereich
.ClearComments
.AddComment.Text Text:=Text
.Comment.Visible = False
.Comment.Shape.TextFrame.AutoSize = True...
...111. satırda karşılık gelen hücreye açıklama eklesin.
Teşekkürler.
Sub Aciklama()
Dim i As Long
Range("aa5:aa100").ClearComments
For i = 5 To 100
If Cells(i, "z") = 1 Then
With Cells(i, "aa")
.AddComment...
Merhabalar
Bir excel tabloda belli bir hücre üzerine gelince eğer comment girildiyse popup olarak açılabiliyor. Hatta bu comment hücresine resim bile yüklenebiliniyor.
Benim öğrenmek istediğim bunu biraz daha farklı yapabilmek.
Belli bir hücreye gelindiğinde yine popup olarak resim...
...yazan ve metnin dokumunu yapmaya çalışıyorum . bu konuda eksiklerimi gidermemde yardımcı olabilirmisiniz.
İyi çalışmalar,
Aşağıdaki koddaki comment lerin oraya ne yazabiliriz,
Sub MARKASORGULA()
On Error Resume Next
Dim IE As Object
Dim aranan
Sheets("MARKA").Select
Set IE =...
...If Not shtSalesPlanning.AutoFilterMode Then
shtSalesPlanning.Range("A3").AutoFilter
End If
With shtSalesPlanning
.Range("O2").Comment.Text shtRefData.Range("Y68").Value ' S
.Range("P2").Comment.Text shtRefData.Range("Y69").Value ' P
.Range("Q2").Comment.Text shtRefData.Range("Y70").Value...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.