vba da açılan bir dosyada dolu olan satıerları belirleme hk.

[Öz1.618]

Merhaba,
vba da bir dosya oluşturuyorum. (A dosyası)
Bu oluşturduğum dosyaya klasörlerimden açacağım başka dosyaları kümüle etmek için kullanmak istiyorum.
Açtığım A dosyasının ilk satırına satır başlıklarını kopyalıyorum.
Sonra klasörlerimden aştığım dosya içindeki satırı bu yeni açtığım (A dosyası) dosyanın içerisine kaydetmek istiyorum.
klasörlerimden peş peşe açacağım dosyalarımı bu A dsoyasının içerisine üst üste kaydetmemek için her seferinde boş satıra gitmek istiyorum.
fakat aşağıdaki kodu yazınca A dosyama ilk kaydı yapmak için aşağıdaki kodu kullandığım zaman en son satıra gidiyor. ( her dosyada F sütununa kadar olan sütunlar boş olduğu için F sütunu referans alınmıştır.)

Sheets("M").Select
ActiveSheet.Range("F1").Select
Selection.End(xlDown).Select
i7 = ActiveCell.Row
ActiveSheet.Range("A" & i7).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

Yukarıdaki kod ilk uygulamasında sadece satır başlıkları olduğu için dosyanın en son satırına gidiyor (1048576. satıra gidiyor.)
Oysa benim istediğim burda dolu satırı referans alması.
Konu hakkında yardımlarınızı rica ederim.

 

[Ömer]

Merhaba,

Sorunuzu karışık, tam anlayamadım. F sütunundaki son dolu satırdan bir sonraki satırı bulmak için (boş satır)

i7 = Sheets("M").Cells(Rows.Count, "F").End(xlUp).Row + 1

 

[Öz1.618]

Merhaba,

Sorunuzu karışık, tam anlayamadım. F sütunundaki son dolu satırdan bir sonraki satırı bulmak için (boş satır)

i7 = Sheets("M").Cells(Rows.Count, "F").End(xlUp).Row + 1

Evet yahu. Şimdi okudumda baya karışık yazmışım.
Çok teşekkür ederim problemi cevabı işe yaradı.