• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Kaydetme

  • Konbuyu başlatan Konbuyu başlatan TİKOS
  • Başlangıç tarihi Başlangıç tarihi
Katılım
5 Aralık 2007
Mesajlar
383
Excel Vers. ve Dili
EXCEL 2007
INGILIZCE
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,
 

Ekli dosyalar

Merhaba,
Kodunuzu aşağıdaki şekilde değiştirdim. Örnek dosyanıza uygulayıp dener misiniz?
Kod:
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
 
teşekkürler
ellerinize sağlık
 
Geri
Üst