Sorgu için arama sonuçları: comment

@ÖmerBey Çok teşekkürler üstad.

Merhaba, Deneyiniz... Dim c As Comment For Each c In ActiveSheet.Comments c.Visible = c.Parent.Row = ActiveCell.Row Next

Hocam öncelikle emeğinize sağlık. Sub AciklamaEkle() With Selection .ClearComments .AddComment .Comment.Visible = True .Comment.Text Text:="HATALI TCKİMLİK " .Comment.Shape.Select End With Kısmı; hücreyi, doğruysa YEŞİL yanlışsa KIRMIZI nasıl...

...eklenecek, Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [a:b]) Is Nothing Then Target.ClearComments If Target.Count > 1 Then Exit Sub If IsNumeric(Target.Value) Then If Not Intersect(Target, [a:a]) Is Nothing Then...

...*.png; *.bmp") If DosyaYolu <> "False" Then ResimAdi = Mid(DosyaYolu, InStrRev(DosyaYolu, "\") + 1) With ActiveCell .AddComment .Comment.Text Text:=ResimAdi .Comment.Shape.Fill.UserPicture DosyaYolu End With End If End Sub

...klasör açılsın bu klasör içindeki resimlerden birini seçip onayladığımda açıklamada bu resim gözüksün istiyorum. internette araştırdığımda " Comment.Shape.Fill.UserPicture " bu komut ile klasör açma komutlarını birleştiremiyorum. VBA konusunda sadece forumlardan aldığım kodları deneme...

...Target.Calculate If Intersect(Target, [D:D]) Is Nothing Then Exit Sub On Error Resume Next With Target .ClearComments .AddComment .Visible = False .Comment.Text Text:=Target.Offset(0, 19).Value & " Kişi, " & Target.Offset(0, 6).Value & "...

Çok teşekkürler, size bir soru daha sormak istiyorum aşağıya yapıştırdığım formül süslü parantezle de yapılabiliyor sanırım daha kolay bir şekilde. Nasıl formüllenebilir yardımcı olursanız çok sevinirim...

...Target As Range) If Intersect(Target, [F:F]) Is Nothing Then Exit Sub On Error Resume Next With Target .ClearComments .AddComment .Visible = False .Comment.Text Text:=Target.Offset(0, 9).Value & ", " & Target.Offset(0, 10).Value End With...

Aşağıdaki kodu inceleyebilirsiniz. Sub CopyCommentText() Dim sourceWorkbook As Workbook Dim targetWorkbook As Workbook Dim sourceSheet As Worksheet Dim targetSheet As Worksheet Dim sourceCell As Range Dim targetCell As Range Dim commentText As String Set...

...RAPORLAR sayfası bölümünde birçok kod vardı. Bu kodlarla çakışabileğini düşündüm ve bu kodların tamamını Blokladım geçici olarak (Comment Block) Böyle deneyince gerçek dosyalarda da sorunsuz çalışmış oldu. Teşekkürler Korhan hocam. Aslında çakışma hiç olmasaydı tabi daha iyi olurdu ama...

Muzaffer Bey sorunsuz çalıştı. Değerli zamanınızı ayırdığınız için teşekkür ederim.

...yazar. Kodu herhangi bir modüle kopyalayarak çalıştırınız. Sub Test() Dim Bak As Range For Each Bak In Selection If Not Bak.Comment Is Nothing Then Cells(Bak.Row, "A") = Replace(Replace(Bak.Comment.Text, Bak.Comment.Author & ":", ""), Chr(10), "") End If...

Vay arkadaş maşallah ya. Kod anlatılmaz yazılır olduğunu defalarca öğrenmiş olduk. Emeğine yüreğine sağlık üstad.

Hocam eline sağlık, şu xmlhttp nesnesini öğrenmek istiyorum fakat detaylı bir rehber bulamadım. Yardımcı olursan sevinirim.

...ilgili olarak da; istenilen ürüne ait "Detay" butonuna tıklandığında D sütunundaki hücreye ürüne ait açıklamayla birlikte, o hücreye "Comment-Açıklama" eklenir ve hücrenin üzerine mouse ile gelindiğinde "Açıklamanın" içerisinde ürünün resmi görüntülenir. Bununla ilgili kodlar da; Sub...

...ss1 = ActiveSheet.Cells(Rows.Count, "S").End(3).Row For i = 2 To ss1 If Not ActiveWorkbook.Sheets("LİSTE").Cells(i, "S").Comment Is Nothing Then With Workbooks(Dosya1).Sheets("PUANTAJ") .Cells(ss2, "AX") = ActiveWorkbook.Sheets("LİSTE").Cells(i, "B")...

Tamam abim çok güzel oldu. Eline sağlık sayın abim şurada bir düzenleme olabilir mi? Bu kodu sadece "AÇIK DOSYAM" adlı bir dosyada çalışmayacağımda örneğin her ay için farklı kaydet mantığı ile her ayı ayrı yapacağım bu nedenle bu isimle değil de aktif çalışma dosyası şeklinde ola bilir mi...

...ss1 = ActiveSheet.Cells(Rows.Count, "S").End(3).Row For i = 2 To ss1 If Not ActiveWorkbook.Sheets("LİSTE").Cells(i, "S").Comment Is Nothing Then With Workbooks("AÇIK DOSYAM").Sheets("PUANTAJ") .Cells(ss2, "AX") = ActiveWorkbook.Sheets("LİSTE").Cells(i, "B")...

...ss1 = ActiveSheet.Cells(Rows.Count, "S").End(3).Row For i = 2 To ss1 If Not ActiveWorkbook.Sheets("LİSTE").Cells(i, "S").Comment Is Nothing Then With Workbooks("AÇIK DOSYAM").Sheets("PUANTAJ") .Cells(ss2, "AX") = ActiveWorkbook.Sheets("LİSTE").Cells(i, "B")...