userformdan tabloya aktarma

[maras321]

Arkadaşlar merhaba ekteki örnekte userform mevcut.yanlız kodları yazıp bir türlü tabloya aktaramadım yardımlarınız bekliyorum saygılar.

 

[maras321]

kaç gündür yazıyorum bu ikinci konum bununla ilgili sadece mantığını anlamak istiyorum ve siz değerli hocalarımdan yardım bekliyorun..

 

[karadami]

Dosyanız ektedir....

 

[maras321]

hocam çok teşekürler.yanlız bir sorun var aktarma yaptıktan sonra veriler tabloda kalıyor.

 

[karadami]

Private Sub CommandButton1_Click()
SON = [B6500].End(3).Row + 1
If SON < 8 Then SON = 8
Cells(SON, 2) = ComboBox1.Value
Cells(SON, 3) = ComboBox2.Value
Cells(SON, 4) = TextBox1
Cells(SON, 5) = ComboBox10.Value
Cells(SON, 6) = TextBox3.Value
Cells(SON, 7) = ComboBox5.Value
Cells(SON, 8) = ComboBox4.Value
Cells(SON, 9) = ComboBox3.Value
Cells(SON, 10) = TextBox7
Cells(SON, 11) = TextBox8
Cells(SON, 12) = ComboBox9.Value
Cells(SON, 13) = ComboBox6.Value
Cells(SON, 14) = ComboBox7.Value
Cells(SON, 15) = TextBox12
Cells(SON, 16) = TextBox13.Value
Cells(SON, 17) = ComboBox8.Value
Cells(SON, 18) = TextBox15
Cells(SON, 19) = TextBox16
Cells(SON, 20) = TextBox17
Cells(SON, 21) = TextBox18
[COLOR=magenta]For a = 0 To Controls.Count - 1
If TypeName(Controls(a)) = "TextBox" Then Controls(a) = ""
If TypeName(Controls(a)) = "ComboBox" Then Controls(a) = ""
Next[/COLOR]
End Sub

renkli kısımı kodlarınıza ekleyiniz

 

[karadami]

3. mesajdaki dosya güncellendi

 

[maras321]

3. mesajdaki dosya güncellendi

hocam çok teşekkürler.tam istediğim gibi olmuş.

 

[karadami]

rica ederim, iyi çalışmalar, iyi geceler.