isim aynı ise alt satıra kaydet

berkbaba · 1 Ocak 2020

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İ

berkbaba · 1 Ocak 2020

ekders sayfasında ki şekli ile olabilir mi

Ömer BARAN · 1 Ocak 2020

Sayın @berkbaba .
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:

İndirmek için giriş yapmanız gerekmektedir.
(45 satır)

berkbaba · 1 Ocak 2020

Ömer Abi
Ellerinden Öperim. Sağ Ol

	hücre dolu ise alta yazma cakarem 2 Kas 2019 Makro Soruları
	Aynı Satırdaki Değerleri Toplama Ömer BARAN 23 Tem 2024 Makro Soruları
	Aynı Sicile Sahip Çalışanların Çoklu Kayıt Sorununu Çözme okutkan 21 Ara 2024 Makro Soruları
	Aynı adrese xlsm ve pdf kaydet Akif59 14 Kas 2021 Makro Soruları
	Aynı dosya uzantısındaki excellerden veri alma selis 15 Haz 2021 Makro Soruları