Veri aktarmada önceki boşlukları doldurma

[mesutnet24]

Değerli arkadaşlarım
Öncelikle bu meseleyi çok araştırdım ama forumda bulamadım
mükerrer mesaj ise öncelikle özür diliyorum.
Sorun şu daha doğrusu acemiliğimin sonucu olan sorun

Aktarma sayfasından aktardığım verilerin ikinci sayfadaki son satıra değilde daha önce sildiğim boş satıra sırası ile aktarmasını istiyorum.
makroda hangi satırda nasıl bir değişiklik yapmam gerektiğini bilmiyorum.
Yardımcı olbilen varsa çok memnun olurum.
ŞİMDİDEN ÇOK TEŞEKKÜRLER:

 

[mami68]

Pardon yanlış oldu

 

[Orion1]

Dosyanızı 2003 versiyonuyla eklerseniz daha kısa sürede cevap alacaksınızdır.
Henüz herkeste 2007 yok.

 

[mesutnet24]

Sayın Evren Gizlen çok özür dilerim böyle hatalar oluyor bazen düşünemedim.
Yeniden gönderiyorum. Bu sefer 97 veya 2003 kitabı olarak farklı kaydettim umarım sorun olmaz.
yardımlarınızı bekliyorum teşekkürler.

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Set S1 = Sheets("STOKİNDEX")
    Set s2 = Sheets("STOK")
    SATIR = IIf(s2.[B3] = "", 3, s2.[B65536].End(3).Row + 1)
    For SATIR = 3 To s2.Cells(65536, "B").End(xlUp).Row
        If s2.Cells(SATIR, "B").Value = Empty Then
            GoSub Kaydet
            GoTo atla
        End If
    Next SATIR
    GoSub Kaydet
    MsgBox "111"
atla:
    [C4] = ""
    [C5] = ""
    [C6] = ""
    [C7] = ""
    [C8] = ""
    [C9] = ""
    [C10] = ""
    [C11] = ""
    [C12] = ""
    [C13] = ""
    
    [M1].Select
    Set S1 = Nothing
    Set s2 = Nothing
    MsgBox "VERİLERİNİZ AKTARILMIŞTIR.", vbInformation
    Exit Sub
Kaydet:
            s2.Cells(SATIR, 2) = [C4]
            s2.Cells(SATIR, 3) = [C5]
            s2.Cells(SATIR, 4) = [C6]
            s2.Cells(SATIR, 5) = [C7]
            s2.Cells(SATIR, 6) = [C8]
            s2.Cells(SATIR, 7) = [C9]
            s2.Cells(SATIR, 8) = [C10]
            s2.Cells(SATIR, 9) = [C11]
            s2.Cells(SATIR, 10) = [C12]
            s2.Cells(SATIR, 11) = [C13]
End Sub

 

[Orion1]

Eksik bir yer unutmuşum.
Aşağıdaki kodu kullanınızn.

Sub AKTAR()
    Set S1 = Sheets("STOKİNDEX")
    Set s2 = Sheets("STOK")
    SATIR = IIf(s2.[B3] = "", 3, s2.[B65536].End(3).Row + 1)
    For SATIR = 3 To s2.Cells(65536, "B").End(xlUp).Row
        If s2.Cells(SATIR, "B").Value = Empty Then
            GoSub Kaydet
            GoTo atla
        End If
    Next SATIR
    GoSub Kaydet
atla:
    [C4] = ""
    [C5] = ""
    [C6] = ""
    [C7] = ""
    [C8] = ""
    [C9] = ""
    [C10] = ""
    [C11] = ""
    [C12] = ""
    [C13] = ""
    
    [M1].Select
    Set S1 = Nothing
    Set s2 = Nothing
    MsgBox "VERİLERİNİZ AKTARILMIŞTIR.", vbInformation
    Exit Sub
Kaydet:
            s2.Cells(SATIR, 2) = [C4]
            s2.Cells(SATIR, 3) = [C5]
            s2.Cells(SATIR, 4) = [C6]
            s2.Cells(SATIR, 5) = [C7]
            s2.Cells(SATIR, 6) = [C8]
            s2.Cells(SATIR, 7) = [C9]
            s2.Cells(SATIR, 8) = [C10]
            s2.Cells(SATIR, 9) = [C11]
            s2.Cells(SATIR, 10) = [C12]
            s2.Cells(SATIR, 11) = [C13]
            [B][COLOR="Red"]Return[/COLOR][/B]
End Sub

 

[mesutnet24]

Elinize sağlık sayın Evren Gizlen çok ama çok teşekkür ederim.