userform

[emrebengul]

Userformdan excele ilk veriyi gönderdiğimde sıkıntı yok ama 2. veriyi gönderdiğimde ise üstüne değil de orası dolu ise diğer atmak istediğim yere atsın istiyorum. Yardımlarınız için şimdiden teşekkür ediyorum.
Ekli dosyayı görüntüle istanbul.xlsm

 

[Ömer BARAN]

Merhaba.

Userform'a ait mevcut kodları silip, yerine aşağıdakileri yapıştırın.
Kırmızı işaretlediklerim, kayıt sonrasında Userform'daki nesnelerin boşaltılması içindir, gerekmiyorsa o kısımları silebilirsiniz.

E sütununa aktarılan Combobox3'ün mutlaka dolu olacağı varsayılmıştır.
.

[B]Private Sub CommandButton1_Click()[/B]
Set k = Sheets("Kayıt")
son = k.Cells(Rows.Count, "A").End(3).Row
For sat = 4 To son Step 3
    If k.Cells(sat, "A") = "S.NO" Then GoTo 10
    If k.Cells(sat, "[B][COLOR="Blue"][SIZE="4"]E[/SIZE][/COLOR][/B]") = "" Then
        satt = sat: Exit For
    End If
10: Next
k.Range("E" & satt + 2).Value = ComboBox1.Value
k.Range("B" & satt + 1).Value = ComboBox2.Value
k.Range("E" & satt).Value = ComboBox3.Value
k.Range("F" & satt).Value = ComboBox4.Value
k.Range("g" & satt + 1).Value = ComboBox5.Value
k.Range("k" & satt + 1).Value = ComboBox6.Value
k.Range("l" & satt + 1).Value = ComboBox7.Value
k.Range("j" & satt + 1).Value = TextBox1.Value

[COLOR="Red"]For cb = 1 To 7
    Controls("Combobox" & cb) = ""
Next
TextBox1 = ""[/COLOR]
MsgBox k.Cells(satt, "A").Value & " numaralı işlem olarak kayıt yapıldı.", vbInformation, "..::.. EMREBENGUL"
[B]End Sub[/B]

[B]Private Sub UserForm_Initialize()[/B]
Set g = Sheets("GÖREV")
ComboBox1.RowSource = "GÖREV!A2:A" & g.Range("A" & Rows.Count).End(3).Row
ComboBox2.RowSource = "GÖREV!B2:B" & g.Range("B" & Rows.Count).End(3).Row
ComboBox3.RowSource = "GÖREV!C2:C" & g.Range("C" & Rows.Count).End(3).Row
ComboBox4.RowSource = "GÖREV!D2:D" & g.Range("D" & Rows.Count).End(3).Row
ComboBox5.RowSource = "GÖREV!E2:E" & g.Range("E" & Rows.Count).End(3).Row
ComboBox6.RowSource = "GÖREV!F2:F" & g.Range("F" & Rows.Count).End(3).Row
ComboBox7.RowSource = "GÖREV!G2:G" & g.Range("G" & Rows.Count).End(3).Row
[B]End Sub[/B]

 

[cems]

Alternatif olarak , ancak tablodaki eksiklikleri tamamladığınızda tam çalışabilir bir userform olarak ...

Kayıt sayfasında:
Bilgileri kaydedebiliyorsunuz
Bilgileri sıra no suna göre bulabiliyorsunuz.
Bilgileri düzeltebiliyorsunuz
Bilgileri silebiliyorsunuz

gruplama sayfasında:
Bilgileri sütun başlıklarına göre süzebiliyorsunuz
Süzülen bilgiler aynı anda arka planda sayfada da süzülüyor
Süzdüğünüz bilgiyi print alabiliyorsunuz.

Bilgilerinizi düzgün girerek deneyiniz, B sütununu saydığından şu an eksik ya da hatalı gibi süzme yapıyor.
İlk 4 veriyi sıra no sunu değiştirerek BUL tuşu ile satırı bulduğunuzda tam doğru örnek veriyor, satır boşluklarını
doldurmak gerekiyor.

2 No lu dosya örneğinizdeki verinin aynısını taşıyor ve textboxlar üzerinde işlem yapıyor.
3 No lu dosya satır eşitlemek adına eksik sütunları örnek için tamamlanmış, combobox üzerinde işlem yapıyor.

Denemeler ile çalışma prensiplerine alıştıktan sonra TABLO sayfasındaki verinin tamamını silip gerçek verinizle devam edin. SABITLER sayfasında sütunlara el ile ek yaptığınızda comoboxlarda otomatik listelenir.
Süzme kutuları ile süzdüğünüz veri aynı zamanda rapor sayfasına da düşmektedir. Print tuşuna bastığınızda listede gördüğünüz veri baskıya gönderilir.Print yapmadan önce isterseniz userformu kenara çekip sütun aralıklarını ayarlarsınız.

Kayıt sayfasında son boş 4 kutu ve etiketleri çalışmaktadır. TABLO sayfasında başlıklar buraya otomatik alınıyor, 4 sutun daha açarsanız adları kendiliğinden gelir ve textboxlara girilecek veriyi de kullanır.

http://s3.dosya.tc/server13/nl0avp/iski_is_programi.rar.html iki dosya