Sorgu için arama sonuçları: comment

...& "." & yıl If izin1 = ay_ara Then If Val(Worksheets("Genel Takip").Cells(i, j).Value) > 0 Then deg = Worksheets("Genel Takip").Cells(i, j).Comment.Text son = Val(UBound(Split(deg, Chr(10)))) Worksheets("Genel Takip").Cells(i, j).Value = Worksheets("Genel Takip").Cells(i, j).Value + gun...

Halit hocam, Affınıza sığınarak dosyayı biraz değiştirdim. Buna göre revize edebilirseniz çok sevinirim. Yardımlarınızdan ötürü Allah bin kere razı olsun..

...& "." & yıl If izin1 = ay_ara Then If Val(Worksheets("Genel Takip").Cells(i, j).Value) > 0 Then deg = Worksheets("Genel Takip").Cells(i, j).Comment.Text son = Val(UBound(Split(deg, Chr(10)))) Worksheets("Genel Takip").Cells(i, j).Value = Worksheets("Genel Takip").Cells(i, j).Value +...

Halit hocam, Kodu denediğimde olmayan 2021 yılını dahi koysam istediğimi karşılıyor. Lakin listeye yeni isimler eklediğimde hataya düşüyor. Onu da ekleyebilirseniz çok sevinirim.

...= Worksheets("Genel Takip").Cells(i, j).Value + Worksheets("İzin Formu").Cells(4, 2).Value deg = Worksheets("Genel Takip").Cells(i, j).Comment.Text Worksheets("Genel Takip").Cells(i, j).ClearComments Worksheets("Genel Takip").Cells(i, j).AddComment Worksheets("Genel Takip").Cells(i...

bunu yaptım..ne değişecek acaba söylermisin açaklamalarda değişen olmadı yapmam gereken başka bir iş varmı söyle yapayım

Böyle dener misiniz ? Sub AciklamaBoyutu() For Each hcr In Selection.SpecialCells(xlCellTypeComments).Cells hcr.Comment.Shape.Width = 20 hcr.Comment.Shape.Height = 20 Next End Sub

...dur. ALT, F11 tuşlarına basarak kod sayfasına gidiniz. Orada makro kodlarını göreceksiniz. İngilizcede israrlıysanız, kodları aşağıdakilerle değiştirin. Function CommentWrite(rng As Range) As String If Not rng.Comment Is Nothing Then CommentWrite = rng.Comment.Text End If End Function .

Geri bildiriminiz için teşekkür ederim. =Yorum ile başlıyor excel ingilizce kullanıyorum comment gibi bir formül bulamadım?

...yapacak bir formulü bura vesilesiyle temin etmiştim. Ufak bir ekleme ihtiyacım var. Şartlar eşitse ilgili alandaki text ifadeyi başka sheetde comment olarak gösterebilir miyim? Örnek excel aşağıda. Yada başka bir yöntem? Yardımlarınızı bekler şimdiden teşekkür ederim. Excel indirme linki

...1) = UCase(mu.Cells(firmailk - 2, "D")) ra.Cells(brn, 2) = mu.Cells(firmailk, 8) With ra.Cells(brn, 1) .AddComment: .Comment.Text Text:="" & mu.Cells(firmailk - 2, 2).Value & "" .Comment.Shape.TextFrame.AutoSize = True End With For sat =...

...> 3 Then _ Sheets("RAPOR").Range("A4:L" & Sheets("RAPOR").[A65536].End(3).Row + 1).ClearContents Sheets("RAPOR").Range("A:A").ClearComments End Sub Sub CARI_BRN2() Set ra = Sheets("RAPOR"): Set mu = Sheets("muavin"): Call SIL_BRN enson = mu.Cells(Rows.Count, "A").End(3).Row...

Merhaba. Aşağıdaki kod ile kontrol sağlayabilirsiniz. Sub test() If Not ActiveCell.Comment Is Nothing Then MsgBox "Açıklama Var." Else MsgBox "Açıklama Yok." End If End Sub

Merhaba, Bir hücrede açıklama (comment) olup olmadığını nasıl denetleye biliriz, yardımcı olur musunuz? Saygılarımla...

Makro kaydet yöntemi ile yaptım. Worksheet_Change olayına uydurarak yapınız. Excel sayfalarındaki makroların çoğunu bu yöntemle yazabilirsiniz.:cool: Sub Makro1() ' ' Makro1 Makro ' ' Range("D6").Comment.Text Text:=Range("A1").Value End Sub

...seçenekleri etkinleştirip when who where seçimlerini belirleyip ok liyorsun. sonrasında bu excelde bir hücrede yaptığın değişiklik aynı comment gibi hücre kenarında gizli bir bilgi olarak duruyor. üstüne gelince hücrenin önceki veri neymiş sonraki veri ne olmuş ne zaman yapılmış. bunu sana...

...yeni satır ekler Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("H2").AddComment Range("H2").Comment.Visible = False Range("H2").Comment.Text Text:="" With Selection.Font .Name = "Tahoma" .FontStyle =...

...mantıgı aynı yardım edebilirseniz sevinirim Private Sub Worksheet_Change(ByVal Target As Range) Range("H2").Select Range("H2").AddComment Range("H2").Comment.Visible = False Range("H2").Comment.Text Text:="" Selection.ShapeRange.ScaleWidth 2.08, msoFalse...

..."A")) = 0 Then Exit Sub sat = wf.Match(md.Cells(Target.Row, "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...

Merhaba @mydestek, Konuya vakıf değilim ama sorunuzu görünce ShapeRange e biraz baktım Özellik kısmında başlık (Title) mevcut fakat Açıklama (Comment) yer almamakta (Bu sayfada görebilirsiniz.) Bunun yerine web sayfalarında kullanılan Alternatif metin özelliğini gördüm ve Excel sayfasına bir...