userform

[karaelmas4467]

ekte gönderdiğim dosyada hazırladığım userformdan verileri data sayfasına aktarmak istiyorum. yardımcı olacak ustalara tşk..

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
Dim SON As Integer
If ComboBox1 = "" Then
MsgBox "Önce firma seçmelisiniz", vbInformation
Exit Sub
End If
SON = Cells(65536, "A").End(3).Row + 1
Cells(SON, "A") = TextBox1
Cells(SON, "B") = TextBox2
Cells(SON, "C") = ComboBox1
Cells(SON, "D") = TextBox3
Cells(SON, "E") = TextBox4
Cells(SON, "F") = TextBox5
Cells(SON, "G") = TextBox6
Cells(SON, "H") = TextBox7
Cells(SON, "I") = TextBox8
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "MM.DD.YYYY")
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "ŞİRKETLER!B3:B27"
TextBox1 = Date
End Sub

 

[karaelmas4467]

teşekür ederim....

 

[N.Ziya Hiçdurmaz]

Yanıt

Bişey değil.

 

[karaelmas4467]

Private Sub CommandButton1_Click()
Dim SON As Integer
If ComboBox1 = "" Then
MsgBox "Önce firma seçmelisiniz", vbInformation
Exit Sub
End If
SON = Cells(65536, "A").End(3).Row + 1
Cells(SON, "A") = TextBox1
Cells(SON, "B") = TextBox2
Cells(SON, "C") = ComboBox1
Cells(SON, "D") = TextBox3
Cells(SON, "E") = TextBox4
Cells(SON, "F") = TextBox5
Cells(SON, "G") = TextBox6
Cells(SON, "H") = TextBox7
Cells(SON, "I") = TextBox8
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "MM.DD.YYYY")
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "ŞİRKETLER!B3:B27"
TextBox1 = Date
End Sub

birşey daha sormak istiyorum. yazdığınız kodlarda "SON" ibaresi ne anlama geliyor.. öğrenmek istediğim bu kodlarda verilerin aktarıldığı sayfayı gösteren ifade hangisidir. yani verilerin aktarıldığı sayfanın adı "data" fakat bu kodlarda bu geçmiyor..