Userformda KAYDET

Kulanıcı arayüz formu

Userformda KAYDET

İleti#1)  selimileri0623 » 07 Kas 2019 21:10

Arkadaşlar çok uğraştım ve çözemiyorum.
VERİ adli sayfama userform ile kaydet yapmak istiyorum. A sütünü her. Kayıtta bir atacak şekilde. Naptimsa olmadı yardim edin lütfen

A sütünü texbox ve otomotik sıra numarası olacak ve her satırda atacak şekilde
B sütünü sicil textbox
C sütünü adı redbox
D sütünü soy adı texbox
E sütünü rütbesi combobox
F sütünü bürosu combobox
G sütünü kimlik numarası texbox
H sütünü cep telefonu texbox
I sütünü dahilisi texbox
J sütünü kan grubu combobox
K sütünü tahsili texbox
L sütünü diğer combobox
M sütünü kodu combobox
Şeklinde user formu yaptım
Ama kaydet kodunu çalıştırmıyorum
Kullanıcı avatarı
selimileri0623
Yeni Başlamış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Userformda KAYDET

İleti#2)  şahin » 07 Kas 2019 22:01

Satır numarasını yazdırabilirsin

Kod: Tümünü seç
Sub yaz()
sonSatir = Range("A" & Rows.Count).End(3).Row + 1

Range("A" & sonSatir) = sonSatir
Range("B" & sonSatir) = "textbox.text"
Range("C" & sonSatir) = "textbox.text"

End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 825
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: Userformda KAYDET

İleti#3)  selimileri0623 » 08 Kas 2019 19:03

şahin yazdı:Satır numarasını yazdırabilirsin

Kod: Tümünü seç
Sub yaz()
sonSatir = Range("A" & Rows.Count).End(3).Row + 1

Range("A" & sonSatir) = sonSatir
Range("B" & sonSatir) = "textbox.text"
Range("C" & sonSatir) = "textbox.text"

End Sub

Sayın Şahin deneyip size bilgi vereceğim. Çok teşekkür ederim
Kullanıcı avatarı
selimileri0623
Yeni Başlamış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Userformda KAYDET

İleti#4)  hhd » 08 Kas 2019 20:38

boş olarak ornek dosyayı eklerseniz kayıt kodunada bakma sansı olur.
Kullanıcı avatarı
hhd
 
Kayıt: 13 Ekm 2019 21:39
Meslek: serbest
Yaş: 38
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Cevap: Userformda KAYDET

İleti#5)  selimileri0623 » 09 Kas 2019 23:07

selimileri0623 yazdı:
şahin yazdı:Satır numarasını yazdırabilirsin

Kod: Tümünü seç
Sub yaz()
sonSatir = Range("A" & Rows.Count).End(3).Row + 1

Range("A" & sonSatir) = sonSatir
Range("B" & sonSatir) = "textbox.text"
Range("C" & sonSatir) = "textbox.text"

End Sub

Sayın Şahin deneyip size bilgi vereceğim. Çok teşekkür ederim

Şahin Bey kod çalıştı çok teşekkür ederim. Peki kayıttan sonra formu boşaltsa ve kayıt yapıldı mesajı verse mümkün müdür.
Kullanıcı avatarı
selimileri0623
Yeni Başlamış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN

Cevap: Userformda KAYDET

İleti#6)  şahin » 10 Kas 2019 14:42

Kod: Tümünü seç
Sub yaz()
sonSatir = Range("A" & Rows.Count).End(3).Row + 1

Range("A" & sonSatir) = sonSatir
Range("B" & sonSatir) = "textbox.text"
Range("C" & sonSatir) = "textbox.text"

Textbox1.Text=""
Textbox2.Text=""

Msgbox "Kayıt İşlemi Tamamlandı"
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 825
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Userformda KAYDET

İleti#7)  selimileri0623 » 10 Kas 2019 15:28

şahin yazdı:
Kod: Tümünü seç
Sub yaz()
sonSatir = Range("A" & Rows.Count).End(3).Row + 1

Range("A" & sonSatir) = sonSatir
Range("B" & sonSatir) = "textbox.text"
Range("C" & sonSatir) = "textbox.text"

Textbox1.Text=""
Textbox2.Text=""

Msgbox "Kayıt İşlemi Tamamlandı"
End Sub


Sayın Şahin çok teşekkür ederim.
Kullanıcı avatarı
selimileri0623
Yeni Başlamış
 
Kayıt: 18 Ağu 2019 10:27
Meslek: Işçi
Yaş: 37
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MERSIN


Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe