Userformdaki bilgilerin hücrelere kaydedilmesi

[okankoc25]

Hazırladığım userformdaki bilgilerin veri sayfasındaki hücrelere kaydedilmesini istiyorum yaptığım denemeler sonuçsuz kaldı yardımlarınızı bekliyorum.Dosya ekte

 

[okankoc25]

Arkadaşlar hiç bilen birisi yok mu?

 

[tukayf]

Sadece veri kaydetmesi için

Public Sub CommandButton1_Click()
    Worksheets("Veri").Range("B65536").End(xlUp).Offset(1) = TextBox1
    
End Sub

 

[okankoc25]

Çok teşekkür ederim ama şöyle bir sorun var kodu çoğaltığımda verileri alt alta kaydediyor ben yanyana kaydetmesini istiyorum.

 

[okankoc25]

Arkadaşlar bu userforma çok ihticaım var Allah rızası için bir bakın...

 

[ExcelF1]

Veri sayfanızdaki (sağa doğru giden) sıralama ile, Userform nesnesi üzerindeki Textbox1, 2, 3, 4... diye devam eden sıralama farklı. Bu da her bir text nesnesi için, verinin doğru yere yazılması adına, kod yazmayı uzatacaktır.

Şöyle anlatayım ;

Sayfadaki sıralamanız = Textbox sıralaması şekline getirin.

TC.No = Textbox1
Adı Soyadı = Textbox2
Doğum Tarihi = Textbox3
Sağ Hak Yar TC = Textbox4
Sağ Hak Yar Adı = Textbox5
Sağ Hak Yar D.T = Textbox6
gibi.....

Userform üzerindeki nesneleri, belirtilen şekilde düzelttikten sonra, aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
Sheets("VERİ").Select
[B65536].End(xlUp).Offset(1,0).Select
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1
For a = 1 To 100 'DİKKAT !!! Siz bu satırda 100 yerine kaç adet veri girilen textbox nesneniz var ise o rakamı yazınız.
ActiveCell.Offset(0, a - 1).Value = Controls("Textbox" & a).Value
Next a
MsgBox "Veriler aktarılmıştır"
Sheets("SAĞLIK BELGESİ").Select
End Sub

Kolay Gelsin.

 

[okankoc25]

Yardımların için teşekkür ederim ama uygula açısından yapmadım bir tane örnek dosya üzerinde yaparsan inan çok sevinirim.

 

[tukayf]

texbox sıralamanız ile veri gireceğiniz sütunlar birbiriyle uyumlu değil. uyumdan kastım: veri4 Sağ. Hak. Yar. TC ama texbox4 ülke böyle olunca texbox la verilerin girileceği sütunlara tek tek bakmak lazım o yüzden uygulayamıyorsunuz.

 

[ExcelF1]

Userform üzerine yerleştirmiş olduğunuz textbox nesnelerinin numaraları, excel sayfası üzerine yerleştirmiş olduğunuz başlıkları takip etmiyor.

6 nolu mesajda örnek ile de anlatmaya çalıştım. Siz formunuz üzerindeki gerekli düzeltmeyi yapın, sora verdiğim kodu "KAYDET" butonu için rahatlıkla kullanabilirsiniz.

Kolay gelsin...