Veri Kaydetme

[TİKOS]

Sevgili arkadaşlar,
Ekteki dosyada siparis formu var. Bu formda siparişi girdikten sonra kırmızı ile
boyadığım alanların ozet dediğim sayfaya kaydetmesini istiyorum. Kendim biraz cabaladım ama yapamadım. Her yeni siparis formu girip kaydettiğimde ozet sayfaısnda alt alta kaydedip tanıma göre sıralama yapsın.
Yardımlarınız için şimdiden teşekkürler,

 

[dEdE]

Merhaba,
Kodunuzu aşağıdaki şekilde değiştirdim. Örnek dosyanıza uygulayıp dener misiniz?

Sub AKTAR()
sonsat = Sheets("Ozet").Cells(65536, "A").End(xlUp).Row
If sonsat = 65535 Then
    MsgBox "Sayfa doldu.Kayıt Yapılmadı.!!", vbCritical
    Exit Sub
End If
ss = sonsat + 1
For i = 19 To 27
If Sheets("Siparis").Cells(i, 5).Value <> "" Then
    Sheets("Ozet").Cells(ss, "A").Value = Sheets("Siparis").Range("c9").Value
    Sheets("Ozet").Cells(ss, "B").Value = Sheets("Siparis").Range("b" & i).Value
    Sheets("Ozet").Cells(ss, "C").Value = Sheets("Siparis").Range("e" & i).Value
    Sheets("Ozet").Cells(ss, "D").Value = Sheets("Siparis").Range("h7").Value
    Sheets("Ozet").Cells(ss, "E").Value = Sheets("Siparis").Range("k" & i).Value
    Sheets("Ozet").Cells(ss, "F").Value = Sheets("Siparis").Range("n" & i).Value
    Sheets("Ozet").Cells(ss, "G").Value = Sheets("Siparis").Range("p29").Value
    ss = ss + 1
End If
Next
MsgBox "KAYIT AKTIRILDI", vbOKOnly

ActiveWorkbook.Save
End Sub

 

[TİKOS]

teşekkürler
ellerinize sağlık