Kaydet kodunda yardım

[fatih34]

iyi çalışmallar arkadaşlar ekte gönderdiğim örnekte listbox yardımıyla sayfa1 den verileri getirip textboxlara aktarıp sadece çalıştığı gün bilgilerini girip sayfa2 ve sayfa3 deki tablolara aktarıyorum.sizlerin yardımıyla öğrendiğim kodları kendi çalışmama uyguladım.
1.sorum.kaydet makrosunu daha kısa yolla yapmak mümkünmü
2.sorum usefromda bulunan katsayı ve taz.puanı bilgileri sayfa 3 de bulunan ilgili hücerelere aktarmak isityorum bunlarıda yazarsam aynı şekilde kod çok uzamış oalcak bu konuda yardım ederseniz sevinirim.

 

[sbayyigit]

önceki kodlar çalışıyorsa aşağıdaki kodlar da sanırım aynı işi görecektir.

Private Sub CommandButton2_Click()
sat = Sheets("sayfa1").[b65536].End(3).Row
Set s2 = Sheets("sAYFA2")
Set s3 = Sheets("sAYFA3")
Sheets("sAYFA2").Select

kutu = 1
kutu2 = 101
For satir = 5 To sat
If satir > 29 Then
s2.Cells(satir + 12, 3).Value = Controls("Textbox" & kutu).Text
kutu = kutu + 1
s2.Cells(satir + 12, 4).Value = Controls("Textbox" & kutu).Text
kutu = kutu + 1
s2.Cells(satir + 12, 35).Value = Controls("Textbox" & kutu2).Text
kutu2 = kutu2 + 1
Else
s2.Cells(satir, 3).Value = Controls("Textbox" & kutu).Text
kutu = kutu + 1
s2.Cells(satir, 4).Value = Controls("Textbox" & kutu).Text
kutu = kutu + 1
s2.Cells(satir, 35).Value = Controls("Textbox" & kutu2).Text
kutu2 = kutu2 + 1
End If
Next satir
MsgBox "Sayfa2 ye Kayıt Yapıldı", , "deneme"
End Sub

 

[fatih34]

teşekkür ederim ilginize ve alakanıza sbayyigit hocam denedim iki sayfayada kayıt yapıyor

 

[fatih34]

üstadım verdiğiniz kodu çaılşmama uyguladım ancak 47 kişiyi kayıt yapıyor son 3 kişiyi kayıt yapmıyor
ikincisi useformda bulunan frame1 içindeki katsayı ve tazminat textboxlarını 3.sayfadaki kırmızı renkle belirttiğim yerlere kaydını yaptıramadım.

 

[fatih34]

dosyamı yanlış göndermişim kusura bakmayın arkadaşlar düzeltip tekrardan gönderiyorum 47 kişiyi kayıt yapıyor üstadımın verdiği kodla nereyi düzeltmem veya ne eklemem lazım
ikincisi useformda bulunan frame1 içindeki katsayı ve tazminat textboxlarını 3.sayfadaki kırmızı renkle belirttiğim yerlere kaydını yaptıramadım.

 

[sbayyigit]

dosyamı yanlış göndermişim kusura bakmayın arkadaşlar düzeltip tekrardan gönderiyorum 47 kişiyi kayıt yapıyor üstadımın verdiği kodla nereyi düzeltmem veya ne eklemem lazım
ikincisi useformda bulunan frame1 içindeki katsayı ve tazminat textboxlarını 3.sayfadaki kırmızı renkle belirttiğim yerlere kaydını yaptıramadım.

ekteki haliyle denermisin biraz düzenledim.

 

[fatih34]

hocam Allah razı olsun bilginize ve emeğinize sağlık fazla oluyor ama birde çarpma konusu adında bir soru sormuştum mümkünse ondada bakma imkanınız olurmu uğraşıyorum ve araştıyorum ama bir türlü halledemedim onu

 

[sbayyigit]

hocam Allah razı olsun bilginize ve emeğinize sağlık fazla oluyor ama birde çarpma konusu adında bir soru sormuştum mümkünse ondada bakma imkanınız olurmu uğraşıyorum ve araştıyorum ama bir türlü halledemedim onu

çarpma konusu mu?
anlamadım.

 

[sbayyigit]

hocam Allah razı olsun bilginize ve emeğinize sağlık fazla oluyor ama birde çarpma konusu adında bir soru sormuştum mümkünse ondada bakma imkanınız olurmu uğraşıyorum ve araştıyorum ama bir türlü halledemedim onu

her iki sorunun da çözüldü mü?

 

[fatih34]

iyi çalışmalar hocam verdiğiniz dosyayı çalışmama uygulayarak biraz geliştirdim ancak kayıt sorununda yeniden takıldım kaldım.
banka listesini de çalışmama ekledim.bunu ekleyince kayıtta sorun çıktı engeli aşmaya çalıştım ancak başaramadım.
sorum :useformda bulunan ad soyad,gün bilgileri,ele geçen tutar,puan ve katsayı bilgileri puantaj ve cetvel sayfalarındaki bilgilere aktarılması
banka listesine de ise adı soyadı,banka hesap numarası ve ele geçen tutarın kayıt yapılması konusunda bir yardım

 

[fatih34]

sbayyigit hocam öncelikle allah razı olsun sorularımla ilgilendiğiniz için
banka listesini ayrı bir form açmıştım ancak sorun çalışma biraz karışık olduğu için banka bilgilerini useforma ekledim bu seferde kayıtta sorun çıktı kutu3 olarak denemdim ancak başarılı olamadım bir yardım ederseniz memnun olurum

 

[sbayyigit]

önceki textboxların sıralıydı. yani textbox1-textbox2 veya textbox101 -textbox102-textbox103 şeklindeydi. o yüzden döngüde sorun olmuyordu. ama burada bütün textboxlar karışık dolayısıyla bu şekilde beni yazdığım kodlar ile hesaplatman zor. textboxlar sıralı olması gerekiyor.

 

[fatih34]

anlaşıldı hocam o zaman textboxları sıralyıp tekrar gönderip bir bakarmısınız?

 

[fatih34]

hocam textboxları şu şekilde düzenledim inşallah olmuştur dediğiniz gibi
Adı Soyadı : Textbox1 den
Gün Bilgileri :TextBox2 den
Ele Geçen : Textbox101 den
Banka Listesi : Texbox156 dan başlayarak gidiyor
ancak aktarmada banka hesap numarası gün bilgisine geçti banka hesap numarası yerine

 

[sbayyigit]

hocam textboxları şu şekilde düzenledim inşallah olmuştur dediğiniz gibi
Adı Soyadı : Textbox1 den
Gün Bilgileri :TextBox2 den
Ele Geçen : Textbox101 den
Banka Listesi : Texbox156 dan başlayarak gidiyor
ancak aktarmada banka hesap numarası gün bilgisine geçti banka hesap numarası yerine

ad-soyad 1 den başla
gün bilgileri 51 den başla
ele geçen 101 den başla
banka listesi 151 den başla
başka sütun yapacaksan 201 den başla ekeleyeceğin sütunlar bittiknten sonra
döngüye katılamayakalara istediğin sıra numarası veya ismi verebilirsin. yoksa döngüyü kurmak problem olur.

 

[fatih34]

hocam en son düzenlediğim şekilde olmazmı banka listesini 156 dan başlattım ama

 

[fatih34]

hocam dediğiniz gibi çalışmamı ekte gönderdfiğim gibi düzelttim
ancak banka hesap numarası gün bilgilerine aktarılıyor banka hesap numarası yerine kayıtla beraber bunada bakabilirmisiniz

 

[fatih34]

iyi çalışmalar arkadaşlar sbayyigit hocam yardım etti sağolsun direktifleri sayesinde yeniden düzenledim formumu yardım ederseniz sevinirim

 

[sbayyigit]

bu dosyaya bakarmısın

 

[fatih34]

hocam ilginize teşekkür ederim dosyaya baktım verileri aktarıp kayıt butonuna bastım kayıt yapmadı