userform ile veri aktarımı

[mehmetfatih]

dosyada yapmaya çalıştığım userformu kodlarla yapabilmem mümkünmü. yardımcı olunursa sevinirim.. şimdiden teşekkür ederim

 

[mehmetfatih]

Arkadaşlar kimse yardımcı olmıyacakmı...

 

[Vedat Özer]

Merhabalar,

Çalışma sayfanızdaki "CSMYILDIRIM" user formun kod bölümüne aşagıdaki kodları yapıştırın,

Kodlar İhsan beye aitdir.

Private Sub CommandButton1_Click()
Dim ts
For ts = 2 To 51
If Controls("Textbox" & ts) = Empty Then MsgBox "Boş Yer Var Kayıt İmkansız", vbCritical, "Hata"
Controls("Textbox" & ts).SetFocus: Exit Sub
Next
For ts = 4 To 34
If CDate(Cells(ts, "A")) = CDate(TextBox1) Then
Cells(ts, "B") = CDbl(TextBox6)
Cells(ts, "C") = CDbl(TextBox2)
Cells(ts, "D") = CDbl(TextBox7)
Cells(ts, "E") = CDbl(TextBox5)
Cells(ts, "F") = CDbl(TextBox4)
Cells(ts, "G") = CDbl(TextBox3)
Cells(ts, "H") = CDbl(TextBox12)
Cells(ts, "I") = CDbl(TextBox11)
Cells(ts, "J") = CDbl(TextBox10)
Cells(ts, "K") = CDbl(TextBox9)
Cells(ts, "L") = CDbl(TextBox8)
Cells(ts, "M") = CDbl(TextBox16)
Cells(ts, "N") = CDbl(TextBox15)
Cells(ts, "O") = CDbl(TextBox14)
Cells(ts, "P") = CDbl(TextBox13)
Cells(ts, "Q") = CDbl(TextBox22)
Cells(ts, "R") = CDbl(TextBox21)
Cells(ts, "S") = CDbl(TextBox20)
Cells(ts, "T") = CDbl(TextBox19)
Cells(ts, "U") = CDbl(TextBox18)
Cells(ts, "V") = CDbl(TextBox17)
Cells(ts, "W") = CDbl(TextBox50)
Cells(ts, "X") = CDbl(TextBox51)
Cells(ts, "Y") = CDbl(TextBox39)
Cells(ts, "Z") = CDbl(TextBox33)
Cells(ts, "AA") = CDbl(TextBox28)
Cells(ts, "AB") = CDbl(TextBox47)
Cells(ts, "AC") = CDbl(TextBox49)
Cells(ts, "AD") = CDbl(TextBox38)
Cells(ts, "AE") = CDbl(TextBox32)
Cells(ts, "AF") = CDbl(TextBox27)
Cells(ts, "AG") = CDbl(TextBox48)
Cells(ts, "AH") = CDbl(TextBox45)
Cells(ts, "AI") = CDbl(TextBox37)
Cells(ts, "AJ") = CDbl(TextBox31)
Cells(ts, "AK") = CDbl(TextBox26)
Cells(ts, "AL") = CDbl(TextBox40)
Cells(ts, "AM") = CDbl(TextBox46)
Cells(ts, "AN") = CDbl(TextBox36)
Cells(ts, "AO") = CDbl(TextBox30)
Cells(ts, "AP") = CDbl(TextBox25)
Cells(ts, "AQ") = CDbl(TextBox42)
Cells(ts, "AR") = CDbl(TextBox41)
Cells(ts, "AS") = CDbl(TextBox35)
Cells(ts, "AT") = CDbl(TextBox29)
Cells(ts, "AU") = CDbl(TextBox24)
Cells(ts, "AV") = CDbl(TextBox23)
Cells(ts, "AW") = CDbl(TextBox43)
Cells(ts, "AX") = CDbl(TextBox34)
Cells(ts, "AY") = CDbl(TextBox44)
End If
Next
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub CommandButton5_Click()
Dim ts
For ts = 2 To 51
Controls("Textbox" & ts) = Empty
Next
UserForm_Initialize
End Sub
Private Sub CommandButton6_Click()
Dim ts
For ts = 4 To 34
If CDate(Cells(ts, "A")) = CDate(ComboBox1) Then
TextBox6 = Cells(ts, "B")
TextBox2 = Cells(ts, "C")
TextBox7 = Cells(ts, "D")
TextBox5 = Cells(ts, "E")
TextBox4 = Cells(ts, "F")
TextBox3 = Cells(ts, "G")
TextBox12 = Cells(ts, "H")
TextBox11 = Cells(ts, "I")
TextBox10 = Cells(ts, "J")
TextBox9 = Cells(ts, "K")
TextBox8 = Cells(ts, "L")
TextBox16 = Cells(ts, "M")
TextBox15 = Cells(ts, "N")
TextBox14 = Cells(ts, "O")
TextBox13 = Cells(ts, "P")
TextBox22 = Cells(ts, "Q")
TextBox21 = Cells(ts, "R")
TextBox20 = Cells(ts, "S")
TextBox19 = Cells(ts, "T")
TextBox18 = Cells(ts, "U")
TextBox17 = Cells(ts, "V")
TextBox50 = Cells(ts, "W")
TextBox51 = Cells(ts, "X")
TextBox39 = Cells(ts, "Y")
TextBox33 = Cells(ts, "Z")
TextBox28 = Cells(ts, "AA")
TextBox47 = Cells(ts, "AB")
TextBox49 = Cells(ts, "AC")
TextBox38 = Cells(ts, "AD")
TextBox32 = Cells(ts, "AE")
TextBox27 = Cells(ts, "AF")
TextBox48 = Cells(ts, "AG")
TextBox45 = Cells(ts, "AH")
TextBox37 = Cells(ts, "AI")
TextBox31 = Cells(ts, "AJ")
TextBox26 = Cells(ts, "AK")
TextBox40 = Cells(ts, "AL")
TextBox46 = Cells(ts, "AM")
TextBox36 = Cells(ts, "AN")
TextBox30 = Cells(ts, "AO")
TextBox25 = Cells(ts, "AP")
TextBox42 = Cells(ts, "AQ")
TextBox41 = Cells(ts, "AR")
TextBox35 = Cells(ts, "AS")
TextBox29 = Cells(ts, "AT")
TextBox24 = Cells(ts, "AU")
TextBox23 = Cells(ts, "AV")
TextBox43 = Cells(ts, "AW")
TextBox34 = Cells(ts, "AX")
TextBox44 = Cells(ts, "AY")
End If
Next
For ts = 2 To 51
Controls("Textbox" & ts).SetFocus
Next
CommandButton6.SetFocus
End Sub
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox10) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox11) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox12) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox13) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox14) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox15) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox16) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox17_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox17) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox18_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox18) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox19_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox19) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox2) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox20) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox21_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox21) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox22_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox22) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox23_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox23) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox24_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox24) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox25_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox25) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox26_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox26) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox27_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox27) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox28_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox28) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox29_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox29) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox3) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox30_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox30) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox31_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox31) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox32_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox32) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox33_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox33) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox34_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox34) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox35_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox35) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox36_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox36) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox37_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox37) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox38_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox38) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox39) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox4) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox40_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox40) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox41_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox41) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox42_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox42) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox43_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox43) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox44_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox44) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox45_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox45) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox46_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox46) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox47_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox47) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox48_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox48) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox49_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox49) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox53
TextBox53 = Val(TextBox5) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox50_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox55
TextBox55 = Val(TextBox50) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox51_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox51) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox6) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox54
TextBox54 = Val(TextBox7) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox56
TextBox56 = Val(TextBox8) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim ts
ts = TextBox52
TextBox52 = Val(TextBox9) + Val(ts)
TextBox57 = Val(TextBox56) + Val(TextBox55) + Val(TextBox54) _
+ Val(TextBox53) + Val(TextBox52)
End Sub
Private Sub UserForm_Initialize()
Dim ts
TextBox1 = Format(Date, "dd.mm.yyyy")
TextBox56 = 0: TextBox55 = 0: TextBox54 = 0
TextBox53 = 0: TextBox52 = 0: TextBox57 = 0
ComboBox1 = ""
For ts = 4 To 34
ComboBox1.AddItem Format(Cells(ts, "A"), "dd.mm.yyyy")
Next
End Sub

 

[mehmetfatih]

Vedat hocam yardımlarınız için teşekkür edrim yanlız kaydet butonumu çalışmıyor yoksa kaydetmiyormu anlamadım..

 

[Vedat Özer]

Merhabalar,


Ekdeki dosyayı inceleyin,

 

[mehmetfatih]

Teşekkür ederim çok güzel oldu...