Satır arasında Boşluk Bırakıyor.

[supervisor]

hazırlamış olduğum programda çözemediğim bir nokta var. SATIŞFT sayfasındaki kaydet butonuna bastığımda belirlediğim kısımdaki verileri alıp FTDETAY sayfasına aktarması lazım. bunda sıkıntı yok aktarıyor. fakat tekrar tekrar faturalar kesip aktardığımda arada boş hücreler bırakıyor. yazdığım kodda normalde en alttaki boş hücreye gidip ordan başlaması lazım (yani boşluk vermemesi lazım) fakat boşluk bırakıyor. çözemedim yardım bekliyorum şimdiden tşk ler.

 

[conari]

Sub faturayikaydet()
'
' Makro1 Makro
' Makro RECEP tarafından 14/05/2007 tarihinde kaydedildi.
YesNo = MsgBox("Fatura Kaydedilecektir?", vbYesNo + vbCritical, "Onaylıyormusunuz")
Select Case YesNo
Case vbYes
Application.ScreenUpdating = False
Range("E3:K3").Select
    Selection.Copy
    Sheets("EXTRE").Select
    Range("A8").Select
           Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Sheets("SATIŞFT").Select
         sat1 = [e65536].End(3).Row
 Range("A9:K" & sat1).Select
 Selection.Copy
    Sheets("ftdetay").Select
    Range("A8").Select
            sat = [a65536].End(3).Row
                Range("a" & sat).Select
    'ActiveCell.Offset(1, 0).Select
   ' Loop
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Sheets("SATIŞFT").Select
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
MsgBox "Kayıt İşlemi Başarıyla Tamamlandı.", vbMsgBoxRtlReading
Case vbNo
MsgBox "Vazgeçildi.", vbMsgBoxSetForeground
End Select
End Sub

Kodu ile denermisiniz.

 

[supervisor]

TŞK EDERİM gayet güzel çalışıyor..