userform kayıt sayfası

[mustafa7691]

hocalarım bakarsanız sevinirim user formun kayıt sayfasını gösteremedim mümkün olursa yardımınız gerekiyor teşekkürler

 

[mustafa7691]

dosyayı inceleme fırsatı bulabilen hocalarıma bir ek sorum olacak tabi mümkünse user formda sayfanın ismini girerek o sayfayı açtırabilirmiyim (ahmet yazıldığında ahmet sayfası açılsın gibi)teşekkürler

 

[Levent Menteşoğlu]

Userform initialize olayındaki kodları aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
Set s1 = Sheets("DATA")
ComboBox1.RowSource = "DATA!b2:b" & s1.[b65536].End(3).Row
For a = 1 To Sheets.Count
ComboBox2.AddItem Sheets(a).Name
Next
End Sub

 

[mustafa7691]

hocam değiştirdim şimdi ama hem data hem açık olan sayfaya kaydediyor teşekkürler

 

[mustafa7691]

yanlış anlamışım ama yine aktif sayfaya ve hep aynı sütuna yazıyor hocam

 

[Levent Menteşoğlu]

Kaydet butonuna bağlı kodlardaki hücre tanımlamalarının başına s1. ilavesini yapın.

[B][COLOR=blue]s1.[/COLOR][/B]Cells(e + 1, "b") = ComboBox1.Text

 

[mustafa7691]

evet hocam s1 ile oldu bul,değiştir vb diğerleride aynı şekildemi olur hocam teşekkürler

 

[mustafa7691]

sayın leventm hocam

Private Sub UserForm_Initialize()
Set s1 = Sheets("DATA")
ComboBox1.RowSource = "DATA!b2:b" & s1.[b65536].End(3).Row
For a = 1 To Sheets.Count
ComboBox2.AddItem Sheets(a).Name
Next
End Sub

kodu vedüzeltmenizle sorun çözüldü teşekkür ederim combox ta eğer mevcut sayfa adı haricinde birşey yazıldığında hata veriyor ve user kapatıyor bunu düzeltmek mümkünmü teşekkürler

 

[Levent Menteşoğlu]

Neden elle giriş ihtiyacı hissediyorsunuz. En üste "on error resume next" satırını yerleştirin.

 

[mustafa7691]

hocam bunu anneme düzenlemeye çalışıyorum onlar pc den benim kadarda anlamıyor ve üye sayfaları çok olacak oradan combox alta doğruy açıldığında bulmaları zorlaşacak sayfaların isimleri üye isminden aldığında direk üye adı yazarak ilgili sayfaya gitsinler istedim teşekkürler

 

[mustafa7691]

üye sayfasındaki bilgileri formülle data sayfaya bağlıyacağım ve sayfalar isimlerini adı soyadı kısmından alacak kullanımı kolay olur diye düşündüm hocam ilginize teşekkürler

 

[mustafa7691]

sayın leventm hocam merakımdan soruyorum zaman bulursanız sanıyorum cevap verirsiniz.bütün kaydet uygulamalarını inceledim sanırım (gözümden kaçanlar hariç)dikkatimi çeken kaydet fonksiyonu alanda boş satır varsa görmeden alta kaydetmeye devam ediyor.mesele sütünlarda adı,soyadı olsun.20 kişi alt alta ama arada 3 kişi silinmiş olsun.yeni kayıt yine 20 kişinin altına 21.satıra geçiyor neden araya (boş satıra) yazdıramıyoruz acaba
Private Sub CommandButton1_Click()
Set s1 = Sheets("data")
If ComboBox1.Text = "" Then

MsgBox "lütfen adınızı soyadınızı giriniz!!!"
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox " lütfen Baba Adınızı Giriniz!!!"
Exit Sub
ElseIf TextBox3.Text = "" Then
MsgBox " lütfen Ana Adınızı Giriniz!!!!!!"
Exit Sub
ElseIf TextBox4.Text = "" Then
MsgBox "lütfen Doğum Yeri giriniz!! "
Exit Sub
ElseIf TextBox5.Text = "" Then
MsgBox " LÜTFEN DOĞUM TARİHİ GİRİNİZ !"
Exit Sub
ElseIf TextBox6.Text = "" Then
MsgBox " LÜTFEN UYRUĞUNUZU GİRİNİZ!!!"
Exit Sub
ElseIf TextBox7.Text = "" Then
MsgBox " Lüfen Medeni Hal girin!!!"
Exit Sub
End If
e = s1.[e65536].End(3).Row
s1.Cells(e + 1, "b") = ComboBox1.Text
s1.Cells(e + 1, "c") = TextBox2.Text

ComboBox1.Text = ""
TextBox2.Text = ""

ProgressBar1.Visible = True
Dim i As Integer
For i = 1 To 1000
ProgressBar1.Value = (i / 1000) * 100
DoEvents
Next i
MsgBox "Kayıt Tamamlandı!!!"
ProgressBar1.Visible = False
End Sub

 

[mustafa7691]

kaydet fonk.kodunu yazmak istedim çok uzun oldu biraz kısalttım kusura bakmayın teşekkürler.bu kod benim kullanmaya çalıştığım kaydet kodu hocalarım

 

[mustafa7691]

tekrar başlık açmak istemedim okuyan hocalarımdan yardım istiyorum bu kaydet kodu arada boş satır olduğunda görmüyor ben boş satır varsa öncelikle oraya kayıt yapmasını istiyorum iki gündür uğraşıyorum ama halledemiyorum lütfen yardım edermisiniz