açıklama ekleme makrosu

[acarselcuk1]

Sub Aciklama()
Sheets("Sayfa2").Range("A1").AddComment
Sheets("Sayfa2").Range("A1").Comment.Visible = True
Sheets("Sayfa2").Range("A1").Comment.Text Text:=Sheets("Sayfa1").Range("A1").Value
End Sub
bu makro sayfa 1 a1 deki bilgiyi sayfa 2 a1 de açıklama hazırlayarak içine atıyor. fakat bana sayfa 1 deki mouse ile belirleğim bölümü sayfa ikide a1 den başlayarak sıralı açıklama hazırlamasını istiyorum. makroyu nasıl değiştirebilirim. yardımcı olurmusunuz.

 

[Korhan Ayhan]

Selamlar,

Kodunuzu aşağıdaki ile değiştirip denermisiniz.

Sub AÇIKLAMA_EKLE()
    On Error Resume Next
    For Each Hücre In Selection
    If H&#252;cre <> "" Then
    Sat&#305;r = Sat&#305;r + 1
    Sheets("Sayfa2").Range("A1:A65536").ClearComments
    Sheets("Sayfa2").Cells(Sat&#305;r, 1).AddComment
    Sheets("Sayfa2").Cells(Sat&#305;r, 1).Comment.Visible = False
    Sheets("Sayfa2").Cells(Sat&#305;r, 1).Comment.Text Text:=H&#252;cre.Value
    End If
    Next
End Sub

 

[acarselcuk1]

soruyu yanlış anladınız galiba. gönderdiğiniz makro seçili olan tek hücreyi
sayfa2 ye atıyor. ben mouse ile seçtiğim birkaç hücreyi sayfa2 de tekbir açıklama içine atmasını istiyorum. yani kısacası sayfa birde benim 1 sayfa dolusu verim var ve bu verileri mouse ile seçip makroyu çalıştırdığımda
sayfa 2de açtığı açıklama formuna bunların hepsini kaydedecek.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızın içinde aşağıdaki ifadeyi görünce kodu yukarıdaki şekilde düzenledim. Seçtiğiniz alan Sayfa2 de A1 hücresinin açıklamasına altaltamı listelensin yoksa değerlerin arasına ( , - / ) gibi işaretler ekleyerek yanyanamı listelensin.

diğer işaretleride sırasıyla a2 a3 e açıklama yapmasını...

 

[acarselcuk1]

örnek

kendi elimle manuel olarak yaptığım bir örneği eke koydum öyle olursa sevinirim

 

[acarselcuk1]

örnek 2

örnek açıklama

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub AÇIKLAMA_EKLE()
    On Error Resume Next
    Sheets("Sayfa2").Range("A1").ClearComments
    For Each Hücre In Selection
    If H&#252;cre <> "" Then
    Sheets("Sayfa2").Range("A1").AddComment
    Sheets("Sayfa2").Range("A1").Comment.Visible = False
    If Sheets("Sayfa2").Range("A1").Comment.Text = "" Then
    Sheets("Sayfa2").Range("A1").Comment.Text Text:=H&#252;cre.Value
    Else
    Sheets("Sayfa2").Range("A1").Comment.Text Text:=Sheets("Sayfa2").Range("A1").Comment.Text & "     " & H&#252;cre.Value
    Sheets("Sayfa2").Range("A1").Comment.Shape.Height = 100
    Sheets("Sayfa2").Range("A1").Comment.Shape.Width = 250
    End If
    End If
    Next
End Sub

 

[acarselcuk1]

elinize sağlık sayın COST_CONTROL
tam istediğim gibi. sağolun.