seddur
Altın Üye
- Katılım
- 12 Nisan 2012
- Mesajlar
- 531
- Excel Vers. ve Dili
- Microsoft office professional plus 2019
- Altın Üyelik Bitiş Tarihi
- 18-12-2024
Merhaba.Aşağıdaki kod ile userformdan excel sayfasına kayıt yapıyorum Yapmak istediğim A sutununa yapılan kayıt bir önceki ile aynı ise I-J-K sütunlarına kayıt yapmasın farklı ise kayıt yapsın.Sayfa görüntüsünü fikir vermesi bakımından paylaşıyorum..Yardımcı olduğunuz için teşekkür ederim.
Private Sub CommandButton5_Click()
If Me.TextBox28 = "" Then MsgBox "İlaç Adı Giriniz": Me.TextBox28.SetFocus: Exit Sub
If Me.TextBox19 = "" Then MsgBox "Hasta Adı Giriniz": Me.TextBox28.SetFocus: Exit Sub
If Me.ListBox1.ListIndex = -1 Then MsgBox "İlaç zamanı seçiniz": Me.TextBox28.SetFocus: Exit Sub
If Me.ListBox2.ListIndex = -1 Then MsgBox "Doz belirtiniz": Me.TextBox28.SetFocus: Exit Sub
Dim Sayfam As Worksheet, Satır As Integer
Set Sayfam = Worksheets("Kayıt")
Satır = Sayfam.Range("A" & Rows.Count).End(3).Row + 1
Sayfam.Range("A" & Satır) = TextBox19
Sayfam.Range("B" & Satır) = TextBox2
Sayfam.Range("C" & Satır) = TextBox28
Sayfam.Range("D" & Satır).Offset(, Me.ListBox2.ListIndex) = Me.ListBox1.Text
Sayfam.Range("I" & Satır) = TextBox24
Sayfam.Range("J" & Satır) = TextBox25
Sayfam.Range("K" & Satır) = TextBox26
MsgBox "Kayıt Yapıldı"
End Sub
Private Sub CommandButton5_Click()
If Me.TextBox28 = "" Then MsgBox "İlaç Adı Giriniz": Me.TextBox28.SetFocus: Exit Sub
If Me.TextBox19 = "" Then MsgBox "Hasta Adı Giriniz": Me.TextBox28.SetFocus: Exit Sub
If Me.ListBox1.ListIndex = -1 Then MsgBox "İlaç zamanı seçiniz": Me.TextBox28.SetFocus: Exit Sub
If Me.ListBox2.ListIndex = -1 Then MsgBox "Doz belirtiniz": Me.TextBox28.SetFocus: Exit Sub
Dim Sayfam As Worksheet, Satır As Integer
Set Sayfam = Worksheets("Kayıt")
Satır = Sayfam.Range("A" & Rows.Count).End(3).Row + 1
Sayfam.Range("A" & Satır) = TextBox19
Sayfam.Range("B" & Satır) = TextBox2
Sayfam.Range("C" & Satır) = TextBox28
Sayfam.Range("D" & Satır).Offset(, Me.ListBox2.ListIndex) = Me.ListBox1.Text
Sayfam.Range("I" & Satır) = TextBox24
Sayfam.Range("J" & Satır) = TextBox25
Sayfam.Range("K" & Satır) = TextBox26
MsgBox "Kayıt Yapıldı"
End Sub
Ekli dosyalar
-
38.8 KB Görüntüleme: 9