Kod:
Private Sub CommandButton1_Click()
Sheets("Sablon").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = (TextBox1.Text)
ActiveSheet.Range("A1").Value = (TextBox1.Value) & " İsimli Firmanın Gider Pusulaları"
ActiveSheet.Range("M25").Value = (TextBox1.Value)
ActiveSheet.Range("M27").Value = (TextBox2.Value)
ActiveSheet.Range("M29").Value = (TextBox3.Value)
ActiveSheet.Range("M31").Value = (TextBox4.Value)
ActiveSheet.Range("M33").Value = (TextBox5.Value)
ActiveSheet.Range("G3").Value = (TextBox6.Value)
Call VeriSayfasinaKaydet
MsgBox ("Yeni firma başarıyla oluşturuldu.")
Sheets("Ana Sayfa").Select
Unload Me
End Sub
Private Sub VeriSayfasinaKaydet()
Dim verisayfasi As Worksheet
Set veris = Worksheets("Ana Sayfa")
sonsatir = veris.Range("B65536").End(3).Row + 1
veris.Range("B" & sonsatir) = TextBox1.Value 'ADI
End Sub
Private Sub TextBox1_Change()
TextBox1 = WorksheetFunction.Proper(TextBox1) ' bu satır sadece ilk harfleri büyük yapar
End Sub
Private Sub TextBox2_Change()
TextBox2 = WorksheetFunction.Proper(TextBox2) ' bu satır sadece ilk harfleri büyük yapar
End Sub
Private Sub TextBox4_AfterUpdate()
TextBox4.Text = Format(TextBox4.Text, "0## 0## 0###")
End Sub
Private Sub TextBox3_AfterUpdate()
TextBox3.Text = Format(TextBox3.Text, "0000 0000 000")
End Sub
userformun son hali budur
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla