Merhaba
Norton Ghost 15 aşağıdaki linkte HERE YA GO. yazısını tıklayın ve indirin
https://community.norton.com/en/comment/6210811#comment-6210811
veya direk link ten indirin
ftp://ftp.symantec.com/public/english_us_canada/linked_files/Ghost/NGH1501_AllWin_English_SrdOnly.iso
bu iso dosyasını...
...sütununa yazar.
Sub aciklama()
Dim i As Long
Application.ScreenUpdating = False
Range("B2:B" & Rows.Count).ClearContents
On Error Resume Next
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(i, "B") = Cells(i, "A").Comment.Text
Next i...
Seçili alandaki metni açıklamaya ekler.
Private Sub CommandButton1_Click()
On Error Resume Next
Range("a1").Comment.Delete
For Each hcr In Selection
Metin = hcr.Text & Chr(10) & Metin
Next
[a1].AddComment.Text Text:=Metin
End Sub
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...
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.