Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 14 Mayıs 2010, 07:39:04

Başlık: [Çözüldü] Tek hücreye yazıp Sütuna aktarma
Gönderen: yesilyurtlu - 14 Mayıs 2010, 07:39:04

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

Başlık: Ynt: Tek hücreye yazıp Sütuna aktarma
Gönderen: Orion1 - 14 Mayıs 2010, 13:28:07

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.]

Başlık: Ynt: Tek hücreye yazıp Sütuna aktarma
Gönderen: yesilyurtlu - 14 Mayıs 2010, 21:34:55

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

Başlık: Ynt: Tek hücreye yazıp Sütuna aktarma
Gönderen: Orion1 - 14 Mayıs 2010, 22:42:11

Alıntı yapılan: yesilyurtlu - 14 Mayıs 2010, 21:34:55

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.8)