VERİ GİRİŞİ

[oğuz2]

Selam Arkadaşlar..
Öncelikle yardımcı olan arkadaşlara müteşekkir olduğum belirtmeden geçemeyeceğim..
Arkadaşlar, gönderdiğim dosyada bilgi sayfasında gerekli bilgiler girilerek sevk ve araç sevkleri dosyasına bilgi girişi sağlanmakta..
Ancak, araç sevkleri sayfasına bilgi aktarımda bir sorun yok.. sadece sevk sayfasına bilgi girişi sağlanırken, istediğim hücrelere kayıt yaptıramıyorum.. Farklı hücrelere kayıt yapılmakta.. Eğer yardımcı olursanız sevinirim...
İlgileriniz için Tşk..[/vb][/list][/url]

 

[Levent Menteşoğlu]

kaydet butonundaki sevk sayfasına kayıt yapan kodları aşağıdaki ile değiştirin.

[vb:1:06a40fc1d9]a = WorksheetFunction.CountA(Sheets("SEVK").Range("a7:a24"))
Sheets("SEVK").Range("A" & a + 7) = [F9]
Sheets("SEVK").Range("B" & a + 7) = [F11]
Sheets("SEVK").Range("C" & a + 7) = [F13]
Sheets("SEVK").Range("D" & a + 7) = [F10]
Sheets("SEVK").Range("E" & a + 7) = [F12]
Sheets("SEVK").Range("F" & a + 7) = [F14]
Sheets("SEVK").Range("G" & a + 7) = [F15]
Sheets("SEVK").Range("H" & a + 7) = [F16]
Sheets("SEVK").Range("I" & a + 7) = [F17]
Sheets("SEVK").Range("J" & a + 7) = [F18]
Sheets("SEVK").Range("K" & a + 7) = [F19]
Sheets("SEVK").Range("L" & a + 7) = [F20]
Sheets("SEVK").Range("M" & a + 7) = [F23]
Sheets("SEVK").Range("N" & a + 7) = [F21]
Sheets("SEVK").Range("I3") = [F6]
Sheets("SEVK").Range("M3") = [F7]
Sheets("SEVK").Range("M28") = [F24]
Sheets("SEVK").Range("B28") = [F25]
Sheets("SEVK").Range("B29") = [F26][/vb:1:06a40fc1d9]

 

[oğuz2]

Çok Teşekkür ederim Levent...
Gerçekten çok güzel çalışıyor.. Kolay gelsin..