B

Soru isim aynı ise alt satıra kaydet

  • Konuyu başlatan Konuyu başlatan berkbaba
  • Başlangıç tarihi Başlangıç tarihi
B

berkbaba

Normal Üye
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Forumda ki tüm ağabey ve kardeşlerimin ve de ustalarımın yeni yılını kutlarım.


Userformda Textbox1 ve Textbox2 de değişiklik olmadığı müddetçe

Son_Dolu_Satir = Sheets("Ekders").Range("C65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Ekders").Range("B" & Bos_Satir).Value = Application.WorksheetFunction.Max(Sheets("Personel").Range("B:B")) + 1
Sheets("Ekders").Range("C" & Bos_Satir).Value = TextBox1.Value 'ADI SOYADI
Sheets("Ekders").Range("D" & Bos_Satir).Value = TextBox2.Value 'TC KİMLİK NO
Sheets("Ekders").Range("E" & Bos_Satir).Value = TextBox4.Value 'OKUL ADI
Sheets("Ekders").Range("F" & Bos_Satir).Value = TextBox5.Value 'BRANŞI

aşağıda yer alan kısmı alt alta kaydetmek istiyorum. Rica etsem yardımcı olabilir misiniz?

Sheets("Ekders").Range("G" & Bos_Satir).Value = ComboBox1.Value 'EKDERS ADI
Sheets("Ekders").Range("H" & Bos_Satir).Value = TextBox5.Value 'DERS SAATİ
Sheets("Ekders").Range("I" & Bos_Satir).Value = TextBox6.Value 'DERS SAATİ ÜCRETİ
Sheets("Ekders").Range("J" & Bos_Satir).Value = TextBox6.Value 'TOPLAM ÜCRETİ

Sheets("Ekders").Range("G" & Bos_Satir).Value = ComboBox2.Value 'EKDERS ADI
Sheets("Ekders").Range("H" & Bos_Satir).Value = TextBox9.Value 'DERS SAATİ
Sheets("Ekders").Range("I" & Bos_Satir).Value = TextBox10.Value 'DERS SAATİ ÜCRETİ
Sheets("Ekders").Range("J" & Bos_Satir).Value = TextBox11.Value 'TOPLAM ÜCRETİ

Sheets("Ekders").Range("G" & Bos_Satir).Value = ComboBox3.Value 'EKDERS ADI
Sheets("Ekders").Range("H" & Bos_Satir).Value = TextBox12.Value 'DERS SAATİ
Sheets("Ekders").Range("I" & Bos_Satir).Value = TextBox13.Value 'DERS SAATİ ÜCRETİ
Sheets("Ekders").Range("J" & Bos_Satir).Value = TextBox14.Value 'TOPLAM ÜCRETİ
 
Tarihe göre sırala Oylamaya göre sırala
Sayın @malatyalı .
Elbette bir şeyler yapılabilir ancak belgenin ve userformun kullanış tarzını,
formdaki nesnelerin belli bir doldurma sırası vs varsa onlar bilinmeli gibi görünüyor.

Sanıyorum kullanılacak userform PERSONEL adını taşıyan userform.

Bu userformdaki KAYDET düğmesi için aşağıdaki gibi bir yapı düşünülebilir.
-- Combobox ve Textbox içerikleri:
Combobox1 doluysa kişinin ilk satırına, combobox1 ve sağındaki textbox içerikleri,
Combobox2 doluysa kişinin ilk satırının bir altına combobox2 ve sağındaki textbox içerikleri ..... kaydedilecek,
Ayrıca, K ve L sütununa kaydın nasıl yapıldığını anlayabilmiş değilim.
-- Hücre birleştirmeleri: B, C, D, E, F ile K ve L sütunları için olmak üzere;
kişinin ilk satırı ile son combobox kaydı yapılan satırdaki hücreler birleştirilecek gibi görünüyor

Aşağıdaki kodu bir deneyin bakalım (ben deneyemedim zira formun kullanış tarzını bilmiyorum.)
VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(45 satır)
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.

Benzer Konular Popüler İçerikler Daha Fazlası

Üst