[Çözüldü] Tek hücreye yazıp Sütuna aktarma

[yesilyurtlu]

Hayırlı Sabahlar Günaydın Üstadım

Üstadım Ekli dosyada yardımınıza ihtiyacım var.
C sütununda A ve B diye ikiye ayırmış olduğum iki tane veri girişi hücrem var. Bu hücrelere girdiğimiz değerler üst üste topluyor. Yapmak istediğim ise
A yazan C2 hücresine girdiğim değer F sütununda ki A yazan yere alt alta aktarılsın
B yazan C3 hücresine girdiğim değer G sütununda ki B yazan yere alt alta aktarılsın

[Orion1]

Dosyanız ektedir.:cool:

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sat As Long, sut As String
    If Intersect(Target, [C2:C3]) Is Nothing Then Exit Sub
    If Target = "" Then
        İLK_VERİ = Empty
        If Target.Row = 2 Then Range("F4:F23") = Empty
        If Target.Row = 3 Then Range("G4:G23") = Empty
        Exit Sub
    End If
    If IsNumeric(Target) Then
        If Target.Row = 2 Then
            sat = Cells(65536, "F").End(xlUp).Row + 1
            sut = "F"
            ElseIf Target.Row = 3 Then
            sat = Cells(65536, "G").End(xlUp).Row + 1
            sut = "G"
        End If
        Cells(sat, sut).Value = Target.Value
        Application.EnableEvents = False
        Target = İLK_VERİ + Target
        Application.EnableEvents = True
    End If
End Sub
[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

evren abi;
eline sağlık "çözüldü"

bülent ve evren abi hakkınızı artık kaysı ile ödeştireceğiz. YAZIN KAYSI BORCUMUZ OLSUN

teşekkür ederim abi

[Orion1]

evren abi;
eline sağlık "çözüldü"

bülent ve evren abi hakkınızı artık kaysı ile ödeştireceğiz. YAZIN KAYSI BORCUMUZ OLSUN

teşekkür ederim abi

Rica ederim.
İyi çalışmalar.