Sorgu için arama sonuçları: comment

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

Merhaba alternatif olarak. Menü çubuğunda Sağ tuş \ Edit menüsünü aktif ediniz. Edit Menüsündeki, Kullanımı için kodları seçerek Comment Block ya da Uncomment Blok komutuna tıklayınız.

...(düzeltme, Excel sayfasının) içinde olmadığı için olacağını pek sanmıyorum ama yine de hocalarımıza sormak istedim. Kodlar tarafındaki Comment haline getirilmiş hem böyle ‘MsgBox “Merhaba” hem de böyle MsgBox “Merhaba” ‘Bu satır merhaba yazar gibi Commentleri topluca temizlemenin imkanı...

...If Not c Is Nothing Then Adr = c.Address If Cells(c.Row, "C") = trh Then Cells(c.Row, "A").ClearComments Cells(c.Row, "A").AddComment Cells(c.Row, "A").Comment.Text Text:="" Cells(c.Row...

...Seçin. Açılan pencerede Rearrange Command tıklatın. Açılan pencerede Tool Seçeneğini seçin, listedende Edit seçin. Controls listesinden Comment Block seçin Modify Selection tıklatın. Açılan menüdeki Name kısmının başına "&" işaretin koyun Name şöyle olacak "&Comment Block" Yine açılan...

Hocam bir de konu dışı bir şey soracağım izninizle, ben bulamadım ama, çok kullandığımız VBA’daki Comment Block ve Uncomment Block düğmelerinin klavyede bir kısayolu var mıdır?

...Image1.Picture = LoadPicture("C:\TestFolder\Skyline.jpg") End Sub ' Private Sub CommandButton1_Click() If Range("A1").Comment Is Nothing Then Range("A1").AddComment SavePicture Me.Image1.Picture, "C:\TestFolder\myPic.bmp" Range("A1").Comment.Shape.Fill.UserPicture...

ActiveCell.Comment.Shape.Fill.UserPicture image1.picture bu şekilde yazıyorum ama olmuyor

ActiveCell.Comment.Shape.Fill.UserPicture "C:\Program Files\ Pictures\Picture 1.gif" Bu koddaki resim dosyasını; konumdan değilde, userformdaki image nesnesinin içindeki resmi yüklemek mümkün müdür?

exce exceli kaydederken Öncelikle Sırasıyla Dosya/Farklı Kaydet/Kayıt Türü/Makro içerebilen Excel Çalışma kitabı(*.xlsm)/Kaydet İlgili alanları seçip tıklayınız.

...sayfanın kod kısmına (modül oluşturmuyorum, sadece sayfanın kod kısmına) herhangi bir kod grubunu yapıştırıyorum. Ve bu kod grubunun tamamını Comment Block ile pasif hale getiriyorum. Dosyayı kaydedip kapatıyorum. Dosyayı tekrar açgığımda, az önce blocklayıp etkisiz hale getirdiğim kodların...

Tekrar merhaba Levent Bey Emeğinize sağlık. Mükemmel oldu. Çok teşekkür ederim.

...("C:\Bilgi\Bilgi1\Resim\" & s1.Cells(a, "A") & ".jpg") If dt = False Then GoTo 10 If Not Intersect(s1.Cells(a, "A").SpecialCells(xlCellTypeComments), s1.Cells(a, "A")) Is Nothing _ Then s1.Cells(a, "A").ClearComments s1.Cells(a, "A").AddComment s1.Cells(a, "A").Comment.Visible = True...

Levent Bey Merhaba, Öncelikle ilginiz için teşekkür ederim. Tablonun olduğu sayfa1 e ilgili kodları eklediğimde (run time error 1004 - application defined or object defined error) hatası veriyor. çalıştıramadım.