hücrede açıklama varsa

[nafri37]

merhaba arkadaşlar yardımcıolacak arkadaşlara şimdiden teşekkür ederim.
benim sorumşu a1 hücresinde açıklama varsa a1hücresi ile birlikte açıklamayı başka sayfaya ve yan yana yazmasını istiyorum. örneğin; a1 hücresi : ali a1 açıklaması veli
sayfa2 de a1:ali b1: veli olmasını istiyorum yardımcı olusanız sevinirim.

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir makro kullanınız.

Sub Hucre_ve_Aciklama_Aktar()
[COLOR=darkgreen]    'Sayfa1'deki A1 hücresini kullanarak[/COLOR]
    With Sheets("Sayfa1").Range("A1")
[COLOR=darkgreen]        'Eğer bu hücrede "Açıklama" varsa[/COLOR]
        If Not .Comment Is Nothing Then
[COLOR=darkgreen]            'Bu hücrenin değerini, Sayfa2-A1'e[/COLOR]
            Sheets("Sayfa2").Range("A1").Value = .Value
[COLOR=darkgreen]            've bu hücrenin açıklamasını, Sayfa2-A2'ye yaz[/COLOR]
            Sheets("Sayfa2").Range("B1").Value = .Comment.Text
        End If
    End With
End Sub

 

[nafri37]

teşekkür ederim
ama kusura bakmayın sorumu yanlış sormusum (vb bilgim yok yardımcı arkadaşlara teşekkür ederim)
sorum sayfa1 deki a sutunudaki değerlere ait açıklamaları sayfa2 de a sutunudaki değeri a sutununa açıklamayıda b sutununa yazacak şekilde olmalı

 

[nafri37]

acil yardım lütfen

 

[hamitcan]

Kod doğru çalışıyor.

 

[Korhan Ayhan]

Selamlar,

Sanırım siz tüm sütuna uygulamak istiyorsunuz. Bu durumda kodu aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Sub AKTAR()
    Dim X As Long, Satır As Long
    Satır = 1
    Sheets("Sayfa2").Range("A:B").ClearContents
    For X = 1 To Sheets("Sayfa1").[A65536].End(3).Row
    With Sheets("Sayfa1").Range("A" & X)
        If Not .Comment Is Nothing Then
            Sheets("Sayfa2").Range("A" & Satır).Value = .Value
            Sheets("Sayfa2").Range("B" & Satır).Value = .Comment.Text
            Satır = Satır + 1
        Else
            Sheets("Sayfa2").Range("A" & Satır).Value = .Value
            Satır = Satır + 1
        End If
    End With
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[nafri37]

teşekkür ederim ama biraz mahcubum size karşı çünkü hep eksik soru sormuşum eksiklik şu açıklama yoksa a sutununa hücre değerini getirmesi gerektiği

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[ersoyalan]

Bi örnekte benden olsun ustalar.Biraz araştırdım ekteki gibi bir kod buldum.