Excel Forum


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama



Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 19-04-2012, 02:34   #1
kartal1171
 
Giriş: 15/10/2008
Şehir: lefkoşa
Mesaj: 10
Excel Vers. ve Dili:
Microsoft Ofis 2007
Post Yaz Kursu Öğrenci Kayıt

Değerli Dostlar excel.web.tr.deki güzel çalışmaları izlerken bende acizane bir ufak program yapabilirmiyim diye yola çıktım. Arkadaşların güzel çalışmalarını takdirle karşılıyorum.Çalışmamda bir kaç noktada takıldım kaldım. mesela 1-Otomatik sıra numarası verdirebilirmiyiz.2-Aynı isimli şahısları kaydettiğimizde ki bazen kaydetmemiz gerekebiliyor listbox tan seçtiğimiz aynı isimli şahıslardan sadece birini gösteriyor. Aynı sıkıntı Optionbuttonlarda'da yaşanıyor.Bir incelerde yardımcı olursanız müteşekkir olurum.Şifre 1234 şimdiden teşekkürler. Birde Kayıt sırası ve sıradaki kayıt bölümlerine bir bakarsanız.

Bu mesaj en son " 22-04-2012 " tarihinde saat 12:42 itibariyle kartal1171 tarafından düzenlenmiştir....
kartal1171 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2012, 09:34   #2
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Şehir: Halit ÖZDEMİR / ANKARA
Mesaj: 8,568
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
kartal1171 tarafından gönderildi Mesajı Görüntüle
Değerli Dostlar excel.web.tr.deki güzel çalışmaları izlerken bende acizane bir ufak program yapabilirmiyim diye yola çıktım. Arkadaşların güzel çalışmalarını takdirle karşılıyorum.Çalışmamda bir kaç noktada takıldım kaldım. mesela 1-Otomatik sıra numarası verdirebilirmiyiz.2-Aynı isimli şahısları kaydettiğimizde ki bazen kaydetmemiz gerekebiliyor listbox tan seçtiğimiz aynı isimli şahıslardan sadece birini gösteriyor. Aynı sıkıntı Optionbuttonlarda'da yaşanıyor.Bir incelerde yardımcı olursanız müteşekkir olurum.Şifre 1234 şimdiden teşekkürler. Birde Kayıt sırası ve sıradaki kayıt bölümlerine bir bakarsanız.
Dosyanızın bazı yerlerini farklı düzenledim.
Eklenmiş Dosyalar
Dosya Türü: rar Yaz Kursu Öğrenci Kayıt.rar (237.7 KB, 91 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2012, 11:38   #3
kartal1171
 
Giriş: 15/10/2008
Şehir: lefkoşa
Mesaj: 10
Excel Vers. ve Dili:
Microsoft Ofis 2007
Thumbs up

Halit Bey Gerçekten Çok Teşekkür ederim yardımcı olduğunuz için. Ama şurada bir sıkıntı var mesela 2 numaralı kaydı sildik diyelim yeni kayıtta sıralama tamamen değişiyor buna bir çözüm bulabilirmiyiz. Birde veri sayfasından ana menüdeki kayıtlı kişi sayısı ve sıradaki kayıt sütünlarına veriyi nasıl alabiliriz.Selam ve saygılar.
Eklenmiş Resimler
Dosya Türü: jpg 1.JPG (16.3 KB, 3 Görüntülenme)
Dosya Türü: jpg 2.JPG (12.3 KB, 2 Görüntülenme)
Dosya Türü: jpg 3.JPG (21.9 KB, 3 Görüntülenme)
kartal1171 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2012, 13:22   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Şehir: Halit ÖZDEMİR / ANKARA
Mesaj: 8,568
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
kartal1171 tarafından gönderildi Mesajı Görüntüle
Halit Bey Gerçekten Çok Teşekkür ederim yardımcı olduğunuz için. Ama şurada bir sıkıntı var mesela 2 numaralı kaydı sildik diyelim yeni kayıtta sıralama tamamen değişiyor buna bir çözüm bulabilirmiyiz. Birde veri sayfasından ana menüdeki kayıtlı kişi sayısı ve sıradaki kayıt sütünlarına veriyi nasıl alabiliriz.Selam ve saygılar.
Sil komut düğmesini bununla değiştir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub kayitsil_Click()
Dim cevap As Integer
Dim i
If adi.Value = "" Then
MsgBox "Silmek istediğiniz kaydın ismini veya telefon numarasını listeden seçmelisiniz!...", vbOKOnly + vbInformation, "Öğrenci Kayıt -İbrahim Kartal Din Sitesi Camii Lefkoşa/KKTC"
bultxt.SetFocus
Else
cevap = MsgBox(adi.Value & " isimli kayda ait tüm bilgiler rehberden silinecek.. Silinsin mi?", vbInformation + vbOKCancel, "Öğrenci Kayıt -İbrahim Kartal Din Sitesi Camii Lefkoşa/KKTC")
If cevap = vbOK Then
Rows(analist.List(analist.ListIndex, 1)).Delete Shift:=xlUp
For i = 3 To Worksheets("veri").Cells(Rows.Count, "a").End(3).Row
Worksheets("veri").Cells(i, 1).Value = i - 2
Next
anamenu_Initialize
Else
Exit Sub
End If
End If
End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2012, 13:30   #5
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Şehir: Halit ÖZDEMİR / ANKARA
Mesaj: 8,568
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Bu kodu userformunuza ekleyin.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
kayitlikisi.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 2
siradakikayit.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 1
End Sub

Kayıtet ve kayıt sil kodlarının altınada bunu ekleyin

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
UserForm_Initialize
veya bunları

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
kayitlikisi.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 2
siradakikayit.Text = Worksheets("veri").Cells(Rows.Count, "a").End(3).Row - 1
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 19-04-2012, 23:12   #6
kartal1171
 
Giriş: 15/10/2008
Şehir: lefkoşa
Mesaj: 10
Excel Vers. ve Dili:
Microsoft Ofis 2007
Thumbs up

Halit bey gerçekten harikasınız sorun çözüldü gibi bu programı kullanan arkadaşlar sizin için duacı olacaklardır. Bir iki noktada daha yardımınızı istirham edeceğim ekli resimlerde de göreceğiniz üzere kayıt güncelleme esnasında sıra numarasını karıştırıyor. Kişilerin kimlik numaralarıda değişiyordu onu ben hallettim inşaallah. Özellikle bul komutu ile listboxta sıralanan kişiler click ile texboxlarda gözükmüyor. Tüm kayıt dendiğinde gözüküyor yardımcı olursanız memnun olurum. Birde daha önce rapor alma üzerine hiç çalışmadım bir kaç çeşit rapor almamız gerekecek mesela Kayseri Kursunda olan öğrencilerin ad soyad kimlik no, tel. adres vs. gibi genel liste gibi, kız erkek gibi çoğaltabiliriz bu konuda vapılmış bir örnek çalışma varmıdır veya kodlar konusun da yardımcı olursanız çok müteşekkir olurum. Selam ve Dua ile.
Eklenmiş Resimler
Dosya Türü: jpg 1.JPG (37.6 KB, 5 Görüntülenme)
Dosya Türü: jpg 2.JPG (38.3 KB, 6 Görüntülenme)
Dosya Türü: jpg 3.JPG (44.0 KB, 3 Görüntülenme)
kartal1171 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2012, 08:43   #7
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Şehir: Halit ÖZDEMİR / ANKARA
Mesaj: 8,568
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alıntı:
kartal1171 tarafından gönderildi Mesajı Görüntüle
Halit bey gerçekten harikasınız sorun çözüldü gibi bu programı kullanan arkadaşlar sizin için duacı olacaklardır. Bir iki noktada daha yardımınızı istirham edeceğim ekli resimlerde de göreceğiniz üzere kayıt güncelleme esnasında sıra numarasını karıştırıyor. Kişilerin kimlik numaralarıda değişiyordu onu ben hallettim inşaallah. Özellikle bul komutu ile listboxta sıralanan kişiler click ile texboxlarda gözükmüyor. Tüm kayıt dendiğinde gözüküyor yardımcı olursanız memnun olurum. Birde daha önce rapor alma üzerine hiç çalışmadım bir kaç çeşit rapor almamız gerekecek mesela Kayseri Kursunda olan öğrencilerin ad soyad kimlik no, tel. adres vs. gibi genel liste gibi, kız erkek gibi çoğaltabiliriz bu konuda vapılmış bir örnek çalışma varmıdır veya kodlar konusun da yardımcı olursanız çok müteşekkir olurum. Selam ve Dua ile.
Bul kodu

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub bul_Click()
analist.Clear
analist.ColumnCount = 2
analist.ColumnWidths = "100;0;0" 'lisbox'taki sütunların genişliği
Dim sat
Dim hucre As Range
If OptionButton1.Value = True Then
Label20.Caption = "Tüm İsim Listesi:"
For Each hucre In Range(Range("C3"), Range("C" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

If OptionButton2.Value = True Then
Label20.Caption = "Tüm  Ev Telefon Numarası Kayıtları:"
For Each hucre In Range(Range("K3"), Range("K" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

If OptionButton3.Value = True Then
Label20.Caption = "Cep Telefon Numarası Kayıtları:"
For Each hucre In Range(Range("L3"), Range("L" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If
If OptionButton4.Value = True Then
Label20.Caption = "Kurs Yeri Listesi:"
For Each hucre In Range(Range("N3"), Range("N" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

If OptionButton5.Value = True Then
Label20.Caption = "Kurs Telefon Numaraları Listesi:"
For Each hucre In Range(Range("O3"), Range("O" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If
If OptionButton6.Value = True Then
Label20.Caption = "Tüm E-Mail Adresleri:"
For Each hucre In Range(Range("M3"), Range("M" & Sayfa1.[A1].Value + 2))
If Mid(hucre.Value, 1, UCase(Len(bultxt.Text))) = UCase(bultxt.Text) Then
analist.AddItem
sat = analist.ListCount - 1
analist.List(sat, 0) = hucre
analist.List(sat, 1) = sat + 3
End If
Next hucre
End If

bultxt = Empty
bultxt.SetFocus
End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2012, 09:16   #8
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Şehir: Halit ÖZDEMİR / ANKARA
Mesaj: 8,568
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Bu dosyaya ben bir adet form ekledim raporlarınızı buradan alabilirsiniz.
Formu birazcık kurcalayın bakalım.
Eklenmiş Dosyalar
Dosya Türü: rar Yaz Kursu Öğrenci Kayıt.rar (353.4 KB, 84 Görüntülenme)
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2012, 03:00   #9
kartal1171
 
Giriş: 15/10/2008
Şehir: lefkoşa
Mesaj: 10
Excel Vers. ve Dili:
Microsoft Ofis 2007
Thumbs up

Halit bey Göstermiş olduğunuz ilgi için çok teşekkürler.

Bu mesaj en son " 21-04-2012 " tarihinde saat 03:08 itibariyle kartal1171 tarafından düzenlenmiştir....
kartal1171 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2012, 03:05   #10
kartal1171
 
Giriş: 15/10/2008
Şehir: lefkoşa
Mesaj: 10
Excel Vers. ve Dili:
Microsoft Ofis 2007
Thumbs up

Halit bey eklemiş olduğunuz rapor çok güzel olmuş ama ben biraz daha üzerinde çalıştığım forma eklediğimde çalştıramadım herhalde makroları atayamadım , veri sayfasındaki butonu user forma ekledim ondan kaynaklanabilirmi! en gin tecrübelerinize sunulur. Birde son bir iki husus Bul İle listelenen şahsa click lendiğinde o kişinin bilgileri değilde Kayıttaki ilk şahsın bilgileri geliyor son olarak ise user forma kayıtlı kız-erkek sayıları için iki texbox ekledim bunlarada bir yardımcı olursanız Dualarımızdan sizi eksik etmeyeceğiz inşaallah Son çalışmayı ben ekliyorum bir göz atarda varsa eksikleri giderebilirseniz çok memnun oluruz.Güncellemedeki numaralandırma hatası devam ediyor (bir önceki mesajda belirttiğim)-bazende sil'de hata veriyor. Kıbrıstan bir Din görevlisi kardeşiniz.
kartal1171 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 00:26


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.


Bahis Forum - Define - Çorlu Kamera - Çorlu Petek Temizleme - Site Yönetimi - TYPO3 Türkiye - 2015 Fuar - Çorlu Mimarlık - Çorlu Hotel - Rotary Web Sitesi - Çorlu Jeneratör - Shell Yağları - Excel Eğitimi - Çorlu Bilgisayar - ÇErkezköy Otelleri - Çorlu Otelleri - Çorlu Oto Lastik - Hurda Demir - Beyaz Baskı
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden