[Yardım]  commandbutton ile sayfaya kayıt ekleme

Komut düğmesi. Komutlarınızı çalıştırmak için tıklayacağınız düğme modeli.

commandbutton ile sayfaya kayıt ekleme

İleti#1)  milhan » 01 Ekm 2019 14:10

Arkadaşlar merhaba;
Bu benim ilk mesajım. En başta herkese selam ediyorum.

Yardım istediğim konu şu:
Ekte gönderdiğim dosyada bulunan userformdaki command butona tıkladığımda sayfa 2 ye kayıt yapmasını istiyorum. Giriş kaydı oluştur dediğimde alındığı tarih sütununa, çıkış kaydı oluştur dediğimde verildiği tarih sütununa ve her seferinde bir alt satıra kayıt oluştursun istiyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
milhan
 
Kayıt: 01 Ekm 2019 13:49
Meslek: ÖĞRETMEN
Yaş: 41
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: commandbutton ile sayfaya kayıt ekleme

İleti#2)  Ali ÖZ » 01 Ekm 2019 16:03

Merhaba,
Bu kodları deneyin.
Ancak tarih seçtiğiniz nesneyi bilemediğim için Calendar1 olarak koda ekledim,düzeltirsiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click() ' giriş kayıt
  Set s2 = Sheets("Sayfa2")
  son = s2.Range("b65536").End(3).Row
  s2.Range("a" & son + 1).Value = son
  s2.Range("b" & son + 1).Value = Date
  s2.Range("c" & son + 1).Value = ComboBox1.Value
  s2.Range("d" & son + 1).Value = ComboBox2.Value
  s2.Range("e" & son + 1).Value = Calendar1.Value
End Sub

Private Sub CommandButton2_Click() ' çıkış kayıt
  Set s2 = Sheets("Sayfa2")
  son = s2.Range("b65536").End(3).Row
  s2.Range("a" & son + 1).Value = son
  s2.Range("b" & son + 1).Value = Date
  s2.Range("c" & son + 1).Value = ComboBox1.Value
  s2.Range("d" & son + 1).Value = ComboBox2.Value
  s2.Range("f" & son + 1).Value = Calendar1.Value
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9864
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: commandbutton ile sayfaya kayıt ekleme

İleti#3)  milhan » 02 Ekm 2019 13:23

Ali ÖZ Bey, desteğin için teşekkür ederim.
Bu çalışmayı tamamlayana kadar desteğini rica ediyorum. Adım adım eklemeler yaparak kullanışlı bir dosya elde etmek istiyorum. Tabii ki sizin ve diğer forumdaşların desteği ile...
Bazı kısıtlamalar olsun istiyorum.
1. Öğrenci adı ve Kitap adı seçilmeden kayıt oluşturulmasın.
2. Çıkış tarihi giriş tarihinden önceki bir tarih olmasın.
3. Kayıt oluşturulmadan önce (******* *****) adlı öğrenci için **/**/**** tarihli giriş/çıkış kaydı oluşturuyorsunuz. Devam etmek istiyor musunuz? seklinde pop-up uyarı penceresi açılsın. Devam ve İptal tuşları olan bir Pencere. Devama basılınca kayıt oluşsun.
Kullanıcı avatarı
milhan
 
Kayıt: 01 Ekm 2019 13:49
Meslek: ÖĞRETMEN
Yaş: 41
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: commandbutton ile sayfaya kayıt ekleme

İleti#4)  Ali ÖZ » 03 Ekm 2019 08:47

Merhaba,
Örnek olarak yazıyorum,siz kendi nesnenizi atarsınız.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
if combobox1.value = "" then
msgbox "Öğrenci adı boş olamaz"
exit sub
end if
if combobox2.value = "" then
msgbox "Kitap adı boş olamaz"
exit sub
end if

if MsgBox( combobox1.value & " adlı öğrenci için " & date & " tarihli giriş/çıkış kaydı oluşturuyorsunuz. Devam etmek istiyor musunuz?", vbYesNo) = vbno then
exit sub

' kodlar
end sub


Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9864
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

Cevap: commandbutton ile sayfaya kayıt ekleme

İleti#5)  milhan » 03 Ekm 2019 12:06

Ali bey;
istediklerim kısmen oldu ama hatalar var. Vakit ayırabilecekseniz sorularıma devam etmek istiyorum. Cevabınıza göre yazacağım.
Bir yandan da rahatsızlık verebileceğimi düşünerek çekiniyorum.
Kullanıcı avatarı
milhan
 
Kayıt: 01 Ekm 2019 13:49
Meslek: ÖĞRETMEN
Yaş: 41
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: commandbutton ile sayfaya kayıt ekleme

İleti#6)  Ali ÖZ » 03 Ekm 2019 21:13

Merhaba,
Siz sorunlarınızı yazın ben olmasam da başka yardımsever forum üyeleri yardımcı olacaktır.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9864
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: commandbutton ile sayfaya kayıt ekleme

İleti#7)  milhan » 08 Ekm 2019 13:59

Gönderdiğiniz kodları ekledim. Şurada eksik var.
Çıkış kaydı olarak seçilen tarih,
Giriş kaydı için seçilen tarihten önceki bir tarih ise
Çıkış tarihi Giriş tarihinden önceki bir tarih olamaz uyarısı vermesini istiyorum.

Daha sonra yine taleplerim olacak. İlgilendiğiniz için çok teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
milhan
 
Kayıt: 01 Ekm 2019 13:49
Meslek: ÖĞRETMEN
Yaş: 41
İleti: 4
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA


Forum CommandButton

Online Kullanıcılar

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

Bumerang - Yazarkafe