Userformda paraf

[özdil1]

Merhabalar;
Üzerinde çalıştığım doğrudan temin onay formunda paraf düzenlemesi yapmaya çalışıyorum. Ancak tüm uğraşlarıma rağmen bir türlü başaramadım.Aşağıdaki konularda yardımlarınıza ihtiyacım var.

1-TexBoxlara yazılan isimler, CheckBox işaretlendiğinde bunu o günün tarihiyle birleştirerek Sayfa 2’deki ilgili hücreye aktaracak.Ancak tarih formatında gün ….. şeklinde ( …./01/2011) olacak.

2-TexBoxlara girilen isimler userformun her açılış kapanışında sabit kalacak ve sadece ihtiyaç duyulduğu zamanlarda değiştirilecek.

Yapacağınız yardımlar için şimdiden teşekkür eder, saygılar sunarım.

 

[Huseyinkis]

Merhabalar;
Üzerinde çalıştığım doğrudan temin onay formunda paraf düzenlemesi yapmaya çalışıyorum. Ancak tüm uğraşlarıma rağmen bir türlü başaramadım.Aşağıdaki konularda yardımlarınıza ihtiyacım var.

1-TexBoxlara yazılan isimler, CheckBox işaretlendiğinde bunu o günün tarihiyle birleştirerek Sayfa 2’deki ilgili hücreye aktaracak.Ancak tarih formatında gün ….. şeklinde ( …./01/2011) olacak.

2-TexBoxlara girilen isimler userformun her açılış kapanışında sabit kalacak ve sadece ihtiyaç duyulduğu zamanlarda değiştirilecek.

Yapacağınız yardımlar için şimdiden teşekkür eder, saygılar sunarım.

Formulu incelermisiniz

Private Sub CheckBox1_Click()
Sheets("Sayfa2").Range("A2").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox1.Value
End Sub

Private Sub CheckBox2_Click()
Sheets("Sayfa2").Range("A3").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox2.Value
End Sub

Private Sub CheckBox3_Click()
Sheets("Sayfa2").Range("A4").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox3.Value
End Sub

Private Sub UserForm_Activate()
TextBox1.Value = "Şef A.ALIOĞLU"
TextBox2.Value = "Şb.Müd.İ.İSAOĞLU"
TextBox3.Value = "Böl.Müd.Yrd.İ.KOCAMAN"
End Sub

 

[özdil1]

Sayın Hüseyin Hocam;
Öncelikle size ne kadar teşekkür etsem azdır. Tam istediğim gibi hazırlamışsınız. Bir konuda daha yardımlarınızı bekliyorum. Userform her açılışta sayfa 2'ye gönderdiğimiz parafların otomatik olarak silinmesi sağlanabilir mi?
Tekrar teşekkür eder saygılar sunarım.

 

[Huseyinkis]

Sayın Hüseyin Hocam;
Öncelikle size ne kadar teşekkür etsem azdır. Tam istediğim gibi hazırlamışsınız. Bir konuda daha yardımlarınızı bekliyorum. Userform her açılışta sayfa 2'ye gönderdiğimiz parafların otomatik olarak silinmesi sağlanabilir mi?
Tekrar teşekkür eder saygılar sunarım.

Kodu Bu şekilde değiştirin.

Private Sub CheckBox1_Click()
Sheets("Sayfa2").Range("A2").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox1.Value
End Sub

Private Sub CheckBox2_Click()
Sheets("Sayfa2").Range("A3").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox2.Value
End Sub

Private Sub CheckBox3_Click()
Sheets("Sayfa2").Range("A4").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox3.Value
End Sub

Private Sub UserForm_Activate()
TextBox1.Value = "Şef A.ALIOĞLU"
TextBox2.Value = "Şb.Müd.İ.İSAOĞLU"
TextBox3.Value = "Böl.Müd.Yrd.İ.KOCAMAN"
Sheets("Sayfa2").Range("A2").Value =""
Sheets("Sayfa2").Range("A3").Value =""
Sheets("Sayfa2").Range("A4").Value =""

End Sub

 

[özdil1]

Kodu Bu şekilde değiştirin.

Private Sub CheckBox1_Click()
Sheets("Sayfa2").Range("A2").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox1.Value
End Sub

Private Sub CheckBox2_Click()
Sheets("Sayfa2").Range("A3").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox2.Value
End Sub

Private Sub CheckBox3_Click()
Sheets("Sayfa2").Range("A4").Value = "....." & Format(Date, "mm.yyyy") & " " & TextBox3.Value
End Sub

Private Sub UserForm_Activate()
TextBox1.Value = "Şef A.ALIOĞLU"
TextBox2.Value = "Şb.Müd.İ.İSAOĞLU"
TextBox3.Value = "Böl.Müd.Yrd.İ.KOCAMAN"
Sheets("Sayfa2").Range("A2").Value =""
Sheets("Sayfa2").Range("A3").Value =""
Sheets("Sayfa2").Range("A4").Value =""

End Sub

Hüseyin Bey;
Çok teşekkür ederim. Sayenizde hem sorun çözüldü hem de birşeyler öğrendim. Saygı ve selamlar....