Belli Hücrelere Girilen Verilerin Başka Hücrelere Aktarımı

[Ger0nim0]

Selamlar;

Arkadaşlar işimde kolaylık olabilmesi için bir liste oluşturmaya çalışıyorum.
bununla birlikte girdiğim verilerin çokluğu sebebiyle her seferinde en alt hücreye ulaşmak yerine sabir bir veri girilebilen bir alan yapmak o alana yazılanların atanmış hüsrelere aktarılmasını istiyorum. özetle; sabit alanın A1, B1, C1, D1 hüsreleri olduğunu varsayalım. A1'e yazdığım A sütunundaki ilk boş hücreye, B1'e yazdığım B sütunundaki ilk boş hücreye, C1'e yazdığım c sütunundaki ilk boş hücreye, vs... şeklinde atama yapmak istiyorum.

araştırmalarımda şöyle bir koda ulaştım;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
For i = 1 To Range("A65535").End(xlUp).Offset(1, 0).Row
If Range("A" + CStr(i)).Value = "" Then
Range("A" + CStr(i)).Value = Target.Value
Exit For
End If
Next i
End If
End Sub

bu kod tam istediğim şey evet. fakat bu kodu nasıl genişleteceğimi, yani aynı anda aynı görevi hem A1'e hem B1'e hem de C1'e atamak istiyorum fakat bu kod tek bir hücreye veriyor.
nasıl genişleteceğimi bulamadım.
excel konusunda uzman değilim, fakat kodun yazılımından varsayımlar yaparak bir takım denemeler yaptım, ekle çıkar denedim ama doğru yolu bulamadım.
fikir veren olabilir mi?

not: bunun yerine listeye girdiğim verileri alta doğru değil, üste doğru sıralayarak üstte her zaman boş bir satır da bırakılabilir ama ona ilişkin bir yol bulamadım

 

[Mustafa MUTLU]

Sub kaydet()
ASUTUNU =  Range("A65536").End(3).Row + 1
BSUTUNU =  Range("B65536").End(3).Row + 1
CSUTUNU =  Range("C65536").End(3).Row + 1
DSUTUNU =  Range("D65536").End(3).Row + 1
Cells(ASUTUNU, "A") = [A1]
Cells(BSUTUNU, "B") = [B1]
Cells(CSUTUNU, "C") = [C1]
Cells(DSUTUNU, "D") = [D1]
End Sub

Kodu bir düğmeye atayabilirsin
Böylece kaydetmek istersen kaydeder.
Diğer türlü(Change) ile, hücreye her giriş yaptığında işlem tekrarlanır

 

[Mustafa MUTLU]

a-b-c-d ye girdiğin veriler birbirinin tanımı yada devamı gibi iseler

Sub kaydet()
ASUTUNU =  Range("A65536").End(3).Row + 1
Cells(ASUTUNU, "A") = [A1]
Cells(ASUTUNU, "B") = [B1]
Cells(ASUTUNU, "C") = [C1]
Cells(ASUTUNU, "D") = [D1]
End Sub

Bunu kullan

 

[Ger0nim0]

teşekkür ederim, zahmet verdim

 

[Mustafa MUTLU]

teşekkür ederim, zahmet verdim

Rica ederim.
İşini gördü ise ne mutlu..