Son Dolu Hücreye Kadar Kopayala ya da Otomatik Doldur

[harziyan]

Merhabalar;

Dim i As Byte
For i = 2 To 100
    Sheets("Araziler").Range("A" & i & ":B" & i).Cut Sheets("SonuC").Range("A" & i)
.
.
.'diğer kodlarım
Next i
    Sheets("Araziler").Select

Şu an bu kod kopyalanmış veriyi "A" ve "B" sütunundaki ilk boş satıra kopyalıyor. Ben kopyaladığım veriyi "Sonuc" sayfası "C" sütunundaki veri ile aynı satıra kadar "A" ve "B" sütununa kopyalamak istiyorum. Yani aynı veri alt alta kopyalanacak. Nereye kadar, "C" sütunundaki dolu olan hücreye kadar.

Teşekkür ederim.

 

[Kardiyak]

Dim i As Byte
For i = 2 To 100
    Sheets("Araziler").Range("A" & i & ":B" & i).Cut Sheets("SonuC").Range("A" & i)
.
.
.'diğer kodlarım
Next i
    Sheets("Araziler").Select

sonuç C'nin son dolu hücresine kadar olması için bunu kullanabilirsiniz.

Dim i As Byte

[COLOR="Red"]son = sheets("SonuC").Range("C" & Rows.Count).End(xlUp).Row[/COLOR]

For i = 2 To [COLOR="Red"]son[/COLOR]
    Sheets("Araziler").Range("A" & i & ":B" & i).Cut Sheets("SonuC").Range("A" & i)
.
.
.'diğer kodlarım
Next i
    Sheets("Araziler").Select

 

[harziyan]

Elinize sağlık, çok teşekkür ederim Sayın Kardiyak.