Öncelikle tüm excel.web.tr ailesinin bayramını kutlarım.
Ekli dosya ile ilgili iki sorunum var. Dosyadaki kodların tamamını siteden toparladım ancak iki noktada tıkandım. Yardımcı olabilirseniz çok mutlu olurum.
İlk olarak;
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False
CommandButton1.Visible = True
ComboBox1.Visible = True
ComboBox2.Visible = True
Label1.Visible = True
Label2.Visible = True
Label5.Visible = True
Label6.Visible = True
TextBox3.Enabled = True
TextBox4.Enabled = True
Bulunan_Satir_No = ListBox1.ListIndex + 2
TextBox1.Text = Sheets("Sayfa4").Range("A" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Sayfa4").Range("B" & Bulunan_Satir_No).Value
ComboBox2.Text = Sheets("Sayfa4").Range("D" & Bulunan_Satir_No).Value
TextBox3.Text = Sheets("Sayfa4").Range("C" & Bulunan_Satir_No).Value
TextBox4.Text = Sheets("Sayfa4").Range("E" & Bulunan_Satir_No).Value
End Sub
Kodları ile userform2 üzerinde istediğim değişiklikleri yapıyorum ve
Private Sub CommandButton1_Click()
Degistirilecek_Satir = ListBox1.ListIndex + 2
Sheets("Sayfa4").Range("B" & Degistirilecek_Satir).Value = ComboBox1.Text
Sheets("Sayfa4").Range("D" & Degistirilecek_Satir).Value = ComboBox2.Text
Sheets("Sayfa4").Range("C" & Degistirilecek_Satir).Value = TextBox3.Value
Sheets("Sayfa4").Range("E" & Degistirilecek_Satir).Value = TextBox4.Value
CommandButton1.Visible = False
ComboBox1.Visible = False
ComboBox2.Visible = False
Label1.Visible = False
Label2.Visible = False
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
ile sayfa4 üzerine aktarıyorum.
Buradaki sorunum commandbutton1 e tıkladığımda makbuz tarihi girilmiş ise sayfa5 a sütununa makbuz tarihi, b sütununa nöbetçi adı soyadı olarak listelemesi ve nöbetçi adı soyadına göre sayfa2’den diğer bilgilerini getirmesi, önceden girilmiş olan makbuz tarihi değişikliğinde üzerine yazması (yeni satır olarak kaydetmemesi). Son bir husus ise yedek nöbetçiler için de aynı listenin kullanılması. (sayfa5 a ve b sütunları)
İkinci husus ise;
Userform2 makbuz sekmesinde textbox2 başlangıç tarihi-textbox5 bitiş tarihi (başlangıç ve bitiş tarihleri dahil olmak üzere) sayfa5 e listelenmiş olan verilerden hesap sahibi adına göre birleştirilerek listelenmesi. Aynı kişi belirtilen tarih aralığında birden fazla makbuz kesmiş ise tek satırda kestiği makbuzlar toplamı ( bir nöbet için ödenecek ücret sabit, kaç kez makbuz kesmiş ise o kadar çarpı sabit ücret) aldırılabilir mi?
Yardımlarınız için şimdiden teşekkürler.
Ekli dosya ile ilgili iki sorunum var. Dosyadaki kodların tamamını siteden toparladım ancak iki noktada tıkandım. Yardımcı olabilirseniz çok mutlu olurum.
İlk olarak;
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False
CommandButton1.Visible = True
ComboBox1.Visible = True
ComboBox2.Visible = True
Label1.Visible = True
Label2.Visible = True
Label5.Visible = True
Label6.Visible = True
TextBox3.Enabled = True
TextBox4.Enabled = True
Bulunan_Satir_No = ListBox1.ListIndex + 2
TextBox1.Text = Sheets("Sayfa4").Range("A" & Bulunan_Satir_No).Value
ComboBox1.Text = Sheets("Sayfa4").Range("B" & Bulunan_Satir_No).Value
ComboBox2.Text = Sheets("Sayfa4").Range("D" & Bulunan_Satir_No).Value
TextBox3.Text = Sheets("Sayfa4").Range("C" & Bulunan_Satir_No).Value
TextBox4.Text = Sheets("Sayfa4").Range("E" & Bulunan_Satir_No).Value
End Sub
Kodları ile userform2 üzerinde istediğim değişiklikleri yapıyorum ve
Private Sub CommandButton1_Click()
Degistirilecek_Satir = ListBox1.ListIndex + 2
Sheets("Sayfa4").Range("B" & Degistirilecek_Satir).Value = ComboBox1.Text
Sheets("Sayfa4").Range("D" & Degistirilecek_Satir).Value = ComboBox2.Text
Sheets("Sayfa4").Range("C" & Degistirilecek_Satir).Value = TextBox3.Value
Sheets("Sayfa4").Range("E" & Degistirilecek_Satir).Value = TextBox4.Value
CommandButton1.Visible = False
ComboBox1.Visible = False
ComboBox2.Visible = False
Label1.Visible = False
Label2.Visible = False
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
ile sayfa4 üzerine aktarıyorum.
Buradaki sorunum commandbutton1 e tıkladığımda makbuz tarihi girilmiş ise sayfa5 a sütununa makbuz tarihi, b sütununa nöbetçi adı soyadı olarak listelemesi ve nöbetçi adı soyadına göre sayfa2’den diğer bilgilerini getirmesi, önceden girilmiş olan makbuz tarihi değişikliğinde üzerine yazması (yeni satır olarak kaydetmemesi). Son bir husus ise yedek nöbetçiler için de aynı listenin kullanılması. (sayfa5 a ve b sütunları)
İkinci husus ise;
Userform2 makbuz sekmesinde textbox2 başlangıç tarihi-textbox5 bitiş tarihi (başlangıç ve bitiş tarihleri dahil olmak üzere) sayfa5 e listelenmiş olan verilerden hesap sahibi adına göre birleştirilerek listelenmesi. Aynı kişi belirtilen tarih aralığında birden fazla makbuz kesmiş ise tek satırda kestiği makbuzlar toplamı ( bir nöbet için ödenecek ücret sabit, kaç kez makbuz kesmiş ise o kadar çarpı sabit ücret) aldırılabilir mi?
Yardımlarınız için şimdiden teşekkürler.
