REÇETE KONTROL

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar Merhaba. Hepimiz iyiyizdir inşallah. Benim yardım isteğim şu. ekte gönderdiğim form üzerindeki kutucuklara açılan bir userform üzerindeki Texboxlar yardımıyla giriş yapmak istiyorum. ilgilenen olursa bana yardım edebilirmisiniz. tek tek kutucukları doldurmaktansa texboxlara gireyim oradan kutulara harf harf yerleşsin diyorum. şimdiden teşekkürler arkadaşlar.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
arkadaşlar yardımlarınızı bekliyorum. bu konuyu ele alacak bir arkadaşım yok mu biraz detaylı(kodlar açısından)
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Bu formdan düzenlemem gereken personel çok arkadaşlar ne kadar kolaylık olursa o kadar iyi olacak.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Sn ocamsul

Veri girişi için bir userform hazırlayıp textboxları yerleştirirseniz kodları yazmakta yardımcı oluruz. Yukarıdaki dosyanıza bu userformuda ekleyerek tekrar gönderirseniz daha iyi olacak diye düşünüyorum.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Ne kadar sabırsızsınız...... 25 dakika içinde 3 mesaj yazıp, cevap istiyorsunuz.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
ekli formu düzenledim. ancak form üzerinde girilen bilgiler ilgili yrlerdeki kutucuklara harf harf yerleşecek. aceleciliğim için özür dilerim. zamanım kısıtlı da o açıdan.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ben saymanlık kodu,birim kodu ve kurum kodu için gerekli ilaveleri yaptım,siz örnek alarak diğerlerini yapabilirsiniz. Takıldığınız yerde tekrar yardımcı olmaya çalışırım.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
leventim çok teşekkür ederim. ellerine sağlık. zaman ayırdığın için sağol.
 
Katılım
7 Mart 2005
Mesajlar
91
Excel Vers. ve Dili
2003 / 2010
Merhaba arkadaşlar
sayın ocamsul un reçete kontrol listesini biraz değiştirip çoklu bilgi girme şekline getirdim.sizlerden isteğim 1.forma kurum bilgileri girildikten sonra 2.forma gidip personele ait bilgileri girip kaydettikten sonra 2.3.vs diye devam eden personelin yakınlarına ait bilgileri girmek.bu haliyle ancak bir kişiye ait bilgiler girebiliyoruz 2. formda bilgilerin girildikten sonra kaydedilmesi butonla kaydedip 2 kişiye geçmek sanırım anlatabildim bana yardımcı olursanız memnun olurum.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Ekte bir alt satırdan devam edecek şekilde çalışan bir örnek hazırladım. Bir alt satıra geçiş bilgisi TC kimlik nosunun yazıldığı textbox11 den almaktadır. Bir sonraki satıra geçilmesi için Textbox11'in seçilip sonra tekrar diğer textboxlara geçilmesi gereklidir. Deneyerek daha net görebilirsiniz.
 
Katılım
7 Mart 2005
Mesajlar
91
Excel Vers. ve Dili
2003 / 2010
Emeğiniz için teşekkür ederim sayın leventm
Tam istediğim gibi oldu.Bir sorum daha var eğer mümkünse.2 formu yani textbox11 yazdıktan sonra formun içindeki kaydı temizleyip cursor un textbox5 in içinde olmasını sağlayabilrmiyiz?
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Bunun için userformun üzerinde bir buton daha oluşturun,bu butona aşağıdaki kodu yazın. Böylece tüm textboxlardaki veriler silinecek ve cursor textbox5 e gidecektir.

[vb:1:8a037f91c1]Private Sub CommandButton3_Click()
For s = 1 To 11
Controls("textbox" & s) = ""
Next s
TextBox5.SetFocus
End Sub[/vb:1:8a037f91c1]
 
Katılım
7 Mart 2005
Mesajlar
91
Excel Vers. ve Dili
2003 / 2010
Teşekkürler zihniniz daima açık olsun
 
Üst