B1 hücresine yazdığım sayıları A sütununda alt alta yazdırma

[zeugmacafe]

Merhaba forumdaş arkadaşlarım excell de örnegin B1 SÜTÜNÜNA YAZDIĞIM SAYILARI(SADECE SAYILAR BU SUTUNA YAZILACAK ) A1 SÜTÜNÜNE ALT ALTA SIRAYLA NASIL EKLEYEBİLİRİM.

 

[Korhan Ayhan]

Merhaba,

Bu işlemi yapmak istediğiniz sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        If Cells(1, 1) = "" Then
            Cells(1, 1) = Target
        Else
            Cells(Rows.Count, 1).End(3)(2, 1) = Target
        End If
    End If
    Target.Select
End Sub

 

[zeugmacafe]

merhaba bunu macro olarak denedim ama olmadı nerden yapacağımı hangi sekmeden gireceğimi anlatabilir misiniz rica etsem office 2007 sürümünü kullanmaktayım

 

[Korhan Ayhan]

Önerdiğim kodu kopyalayın ve resimleri takip ediniz.

Adsız1

Resim Adsız1 - Korhan_ayhan'in resimleri bir albümde

resmim.net

Adsız2

Resim Adsız2 - Korhan_ayhan'in resimleri bir albümde

resmim.net