Aynı hücreye girilen farklı değerlerin listelenmesi hk.

[ker]

Merhaba,
Foruma ilk defa yazıyorum, excel dilini ekledim profile, benim sorum örneğin; sayfa 1 de a1 hücresine her seferinde ayrı değerleri girdiğimde sayfa ikiye bu bilgiler listelenebilir mi? böyle bir çalışma için Makro var mıdır. forumu inceledim ama bununla ilgili bir bilgi bulamadım yardımcı olabilir misiniz. Teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Sayfa1 isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

A1 hücresine veri girip enter ile hücreyi terk ettiğinizde girilen veri Sayfa2'ye A sütununa alt alta aktarılır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        With Sheets("Sayfa2")
            .Cells(.Rows.Count, "A").End(3)(2, 1) = Target
        End With
    End If
End Sub

 

[ker]

Merhaba,

Sayfa1 isimli sayfanızın kod bölümüne uygulayıp deneyiniz.

A1 hücresine veri girip enter ile hücreyi terk ettiğinizde girilen veri Sayfa2'ye A sütununa alt alta aktarılır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        With Sheets("Sayfa2")
            .Cells(.Rows.Count, "A").End(3)(2, 1) = Target
        End With
    End If
End Sub

Merhaba tekrar teşekkür ederim kod bölümüne yaptım ancak macro name istedi.

 

[Korhan Ayhan]

Altta gözüken sayfa ismi üzerinde sağ tıkladıktan sonra karşınıza gelen menüden KOD GÖRÜNTÜLE seçeneğini seçtikten sonra karşınıza gelen pencereye kodu yapıştırmanız gerekiyor.

 

[ker]

Merhaba tekrar teşekkür ederim kod bölümüne yaptım ancak macro name istedi.

teşekkür ederim oldu emeğinize sağlık