açıklama ekleme

[wertyuıop]

arkadaşlar yardımınıza ihtiyacım var. hücrenin üzerine gelip farenin sağ tuşuna basarak o satıra açıklama ekliyoruz. ama bu açıklamanın içine başka bi yerden copy paste yapamıyorum. yani başka hücredeki bilgileri bu açıklamanın içine yapıştırmak istiyorum?

 

[N.Ziya Hiçdurmaz]

Kopya yapmak istediğiniz hücreyi seçip formül çubuğundan kopyala yapınız

 

[wertyuıop]

dosya ekte

 

[wertyuıop]

arkadaşlar yardımcı olabilecek kimse yok mu?

 

[usubaykan]

Merhaba;

Aşağıdaki kod eklediğiniz örnek dosyanın sadece ankara B2 hücresi için yapılmış bir çalışmadır. Belki kendi dosyanız için geliştirebilirsiniz.

Option Explicit
Sub Açıklama_Ekle()
Dim U As Long
    For U = 1 To [e65536].End(3).Row
    If Cells(U, "E") <> "" Then
    Range("A2").Comment.Text Text:=Range("A2").Comment.Text & Chr(10) & Cells(U, "E")
    End If
    Next
End Sub

 

[wertyuıop]

Sayın usubaykan; muhtemelen programcısınız. ( ama ben değilim). elinize sağlık kod güzele benziyor. özetle: bu yazdığınız kodu nasıl kullanacağım?

 

[usubaykan]

Merhaba;

Ben programcı değil Maliyetçiyim Sadece bir örnek çalışma hazırlamıştım. İstediğiniz otomatik olarak liste içerisine yazıları yazdırmanız olduğu için bunun makro dışında bildiğim kadarıyla çözümü yok. Bunun uygulamasınıda" Uygulamalı Excel Eğitim Bölümü" nde bulabilirsiniz. Orada bu tür çalışmaların nasıl kullanılacağı hakkında bilgiler mevcuttur.

 

[wertyuıop]

maliyetçiyim derken? muhasebecimisiniz? öğrencimisiniz? muhaseciyseniz allah kurtarsın. yok öğrenciyseniz yol yakınken dönün. girdiğiniz yok pek hayırlı değil.

 

[usubaykan]

;-) tüh bu yola 10 yıl verdim keşke 10 yıl önce bu tavsiyeyi veren olsaydı.

 

[wertyuıop]

ruhsat var mı?