user form açılışı

[samed32]

user form sayfa 1 de nasıl acılır...buton ile degeil otomatik olarak açılsın teşekkürler..

 

[Kemal Demir]

Sub Auto_open()
Application.ScreenUpdating = False
Sheets("Sayfa1").select
Userform1.Show
End Sub

Module yazılacak kod

 

[ocamsul]

Sayfa1 in her açılışında UserFormun açılması isteniyosa; aşağıdaki kodu ilgili sayfanın kod bölümünde kullanabilirsiniz. Rakkas üsdat saygılar.

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

 

[Kemal Demir]

Sayfa1 in her açılışında UserFormun açılması isteniyosa; aşağıdaki kodu ilgili sayfanın kod bölümünde kullanabilirsiniz. Rakkas üsdat saygılar.

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

Rica Ederim.Sevgili ocamsul

 

[samed32]

sayın arkadaşlar teşekkürler...pekiuser forma veri girince (adı. soyadı.tel.no vb..) excelde veri sayfasına nasıl ekler...

 

[Kemal Demir]

İyi akşamlar,

Dosyayı ınceleyınız.

 

[samed32]

Private Sub CommandButton1_Click()

son = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 1
Sheets("VERİ").Cells(son, 1).Value = TextBox1.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""

End Sub

sayın rakkas yardımınız icin teşekkür ederim sanırım yukarıdaki kodlarla bu yapılıyor size sorum ise şudur,tel.no,sicili,adresi,rütbesi,kan gurubu verilerini naslıl eklerim mantıgını anlatımısınız tabi sil ,degiştir,kapat,butonlarıda lazım....

 

[samed32]

yeni ekledigim gibi...

 

[ahmetcahan1962]

Form çalışmanız güzel eline sağlık ama ben burada veri.xls deki verilerle değişiklik yaptım ama diğerlerinden aynen ekledim sil,kaydet ve değiştir butonu kodları aşağıda makro çalışınca hata vermiyor ama verileri user formda girince kaydetmiyor. makro konusnu bilemediğimden hata yaptım , ama yardımcı olabilirmisiniz.
kodlar:
sil butonu kodları
Private Sub CommandButton1_Click()

son = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 2
Sheets("VERİ").Cells(son, 1).Value = TextBox1.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox2.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox3.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""

End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub

kaydet butonu
Private Sub CommandButton1_Click()

son = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 2
Sheets("VERİ").Cells(son, 1).Value = TextBox1.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox2.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox3.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""

End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub

değiştir butonu kodları

Private Sub CommandButton1_Click()

son = WorksheetFunction.CountA(Sheets("VERİ").Range("A1:A65536")) + 2
Sheets("VERİ").Cells(son, 1).Value = TextBox1.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox2.Value
Sheets("VERİ").Cells(son, 2).Value = TextBox3.Value
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""

End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub UserForm_Click()

End Sub