USERFORM VERİ GİRİŞİ

[oğuz2]

Selam Arkadaşlar..
Dört adet textbox oluşturup burdaki bilgileri sırasıyla;
"Personel" adlı excel dosyasının "bilgi" sayfasına;
textbox1 'i a5 hücresine
textbox2 'yi b7 hücresine
textbox3 'ü c9 hücresine ve
textbox4 'ü d11 hücresine veri girişi yapmak istiyorum. Nasıl yapabilirim.
Şimdiden tşk eder, bilgilerinize sabırsızla bekliyorum..

 

[talatcd]

Bu kodları kendine göre ayarla Comboboxları texbox yap

Private Sub CommandButton1_Click()
b = WorksheetFunction.CountA(Sheets("sayfa1").Range("A:A"))
Sheets("sayfa1").Range("a" & b + 8).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = ComboBox2.Value
ActiveCell.Offset(0, 2) = ComboBox3.Value
ActiveCell.Offset(0, 3) = ComboBox4.Value
ActiveCell.Offset(0, 4) = ComboBox7.Value
ActiveCell.Offset(0, 5) = TextBox195.Value
ActiveCell.Offset(0, 6) = ComboBox5.Value
ActiveCell.Offset(0, 7) = ComboBox6.Value

End Sub

 

[Kemal Demir]

[vb:1:7bb2d908e0]Private Sub CommandButton1_Click()
Sheets("bilgi").Range("a5").value=textbox1.value
Sheets("bilgi").Range("b7").value=textbox2.value
Sheets("bilgi").Range("c9").value=textbox3.value
Sheets("bilgi").Range("d11").value=textbox4.value
textbox1.value=""
textbox2.value=""
textbox3.value=""
textbox4.value=""
textbox1.setfocus
End Sub[/vb:1:7bb2d908e0]

Umarım İstediğin Budur.

 

[oğuz2]

talatcd,
Çok tşk Talat...
Ama ben hücresel veri aktarımını istemiştim. Yinede saol..

 

[oğuz2]

Rakkas,
Tşk ediyorum Rakkas..
işimi gördü.. çok saol..