userform kayıt sayfası

Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Userform initialize olayındaki kodları aşağıdaki ile değiştirin.

Kod:
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
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
hocam değiştirdim şimdi ama hem data hem açık olan sayfaya kaydediyor teşekkürler
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
yanlış anlamışım ama yine aktif sayfaya ve hep aynı sütuna yazıyor hocam
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kaydet butonuna bağlı kodlardaki hücre tanımlamalarının başına s1. ilavesini yapın.

Kod:
[B][COLOR=blue]s1.[/COLOR][/B]Cells(e + 1, "b") = ComboBox1.Text
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
evet hocam s1 ile oldu bul,değiştir vb diğerleride aynı şekildemi olur hocam teşekkürler
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Neden elle giriş ihtiyacı hissediyorsunuz. En üste "on error resume next" satırını yerleştirin.
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
ü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
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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
 
Katılım
12 Ocak 2007
Mesajlar
465
Excel Vers. ve Dili
2003
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
 
Üst