Daha Önce Girilmiş Verileri Değiştirme ve Üzerine Kaydetme

[BedriA]

Arkadaşlar,

Userform1 üzerine "Eski Kayıt Düzenle" butonu ile Userform2'yi çağırıyorum. O ekrandaki listbox'a "liste" isimli sayfadan öğrencinin adı-soyadı ile numarasının gelmesini, çok fazla öğrenci olacağı için üstte numara ve isme göre süzme işlemi yapılarak üzerine çift tıklanan öğrencinin bilgilerinin userform1 üzerine aktarılmasını, böylece eski kaydı düzenleme imkanı yaratmak istiyorum. Eğer dosyaya bakarsanız ne demek istediğim daha iyi anlaşılır sanırım.

Dosya açılışta aplikasyon olarak gelir en üstteki pencere tıklanınca excell dosyası gelir.

Dosya linki:

http://dosya.co/zx87o1a0oej1/OPN.xlsm.html


Şimdiden teşekkürler.

 

[Mustafa MUTLU]

Sub suzer()
Dim bul, suz, S
On Error Resume Next
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA(Range("a1:a65500"))
If Range("a" & suz) Like TextBox1 & "*" Then
ListBox1.AddItem
S = S + 1
ListBox1.List(S - 1, 0) = Cells(suz, 1)
ListBox1.List(S - 1, 1) = Cells(suz, 2)
ListBox1.List(S - 1, 2) = Cells(suz, 3)
End If
Next
End Sub

TextBox1 e göre süzer. A sütununda isterseniz şu an elimde ofis 2003 var.
Dosyanızı 2003 olarak bana yollayın bakayım.

 

[BedriA]

Hocam bu kodu nereye almam gerekiyor?

Bende 2003 var ama kurmam lazım. Kurduktan sonra atarım dosyayı. İlginiz için teşekkürler.

 

[Mustafa MUTLU]

Formunuza Bir Buton atayın
Botonlada bu kodu çalıştırın.

 

[Mustafa MUTLU]

Hocam bu kodu nereye almam gerekiyor?

Bende 2003 var ama kurmam lazım. Kurduktan sonra atarım dosyayı. İlginiz için teşekkürler.

Kurmanıza gerek yok
xls formatında farklı kaydedersiniz.

 

[BedriA]

Hocam dosya linki:

http://dosya.co/zl2kl5pu2ve9/OPN.xlt.html


Excell 97-2003 Şablonu olarak kaydettim. Açıldığında en üstteki başlığa tıklarsanız excelle olarak gelir.

 

[Mustafa MUTLU]

Hocam online görünüyorsunuz.
Doğru mu ?

 

[Mustafa MUTLU]

UserForm2 ye aşağıdaki kodu ekleyin

Private Sub UserForm_Initialize()
    With UserForm2.ListBox1
        .ColumnCount = 3
        .ColumnWidths = "30;40;300"
        .RowSource = "liste!a2:c65536"
    End With
End Sub
Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
UserForm1.TextBox7.Text = Cells(ActiveCell.Row, "c")
UserForm1.ComboBox1.Text = Cells(ActiveCell.Row, "a")
UserForm1.TextBox8.Text = Cells(ActiveCell.Row, "b")
Unload Me
End Sub

 

[Mustafa MUTLU]

UserForm1 e bir değiştir butonu koyup aşağıdaki kodu ekleyin.

Private Sub CommandButton1_Click()
    Cells(ActiveCell.Row, "a") = ComboBox1.Text
    Cells(ActiveCell.Row, "b") = TextBox8.Text
    Cells(ActiveCell.Row, "c") = TextBox7.Text
MsgBox "Kayıt düzeltme işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
End Sub

 

[Mustafa MUTLU]

İşinizi görmez ise yarın süz lü yaparız.

 

[BedriA]

Hemen deniyorum hocam. Olmazsa yarın gene bakarız. Çok sağolun.

 

[BedriA]

Mustafa Hocam,

Çok teşekkürler. Bu eklemeyle program büyük ölçüde çalışmaya başladı. Dediğiniz gibi bir de girilecek isim ve/veya numaraya göre süzme yaparsa bu haliyle iş görür. Geriye tek bir eksiklik kaldı ki o da şu: Yazdırma!

Eklenen öğrenciler listeye karışık ekleniyor. Bu listeden örneğin "9-A" sınıfını seçip "YAZDIR" butonuna bastığımda O sınıftaki tüm öğrencilerin listesini yazdırmasını istiyorum.

Yardımcı olabilirseniz bu konuda da, program bitmiş olacak.

Tekrar teşekkür ederim.

Selam ve saygılarımla.

 

[Orion1]

Dosyanız aşağıdaki linktedir.
DOSYAYI İNDİR

 

[BedriA]

Hocam çok teşekkürler. Çok küçük bir eksiklikle de olsa çalışıyor.
Eksiklik şu: Süzme yapıldıktan sonra seçilen istenen öğrenci seçilmesine rağmen ilk sıradaki Ali Kaya geliyor. Ancak süzme yapmadan listeden bulunup tıklanırsa tıklanan öğrenci geliyor.

 

[Orion1]

Hocam çok teşekkürler. Çok küçük bir eksiklikle de olsa çalışıyor.
Eksiklik şu: Süzme yapıldıktan sonra seçilen istenen öğrenci seçilmesine rağmen ilk sıradaki Ali Kaya geliyor. Ancak süzme yapmadan listeden bulunup tıklanırsa tıklanan öğrenci geliyor.

Bunun sebebi önceden yazılan seçme kodunun bu şekilde arama yapılmadan seçme üzerine yapılıyordu.Şimdi onada el atarım.

 

[Orion1]

Dosyanız linktedir.

DOSYANIZ EKTEDİR
..

 

[BedriA]

Harikasınız hocam, çok teşekkürler.
Şimdi sorunsuz çalışıyor. Şimdi programın final butonu kaldı: YAZDIR!

YAZDIR butonu ile seçtiğim sınıfa ait öğrencilerin listesini yazdırmak istiyorum. Combobox2'den sınıf seçip YAZDIR butonu ile yazdırmak istiyorum. Çok mu komleks bir şey istiyorum acaba?

 

[Orion1]

Harikasınız hocam, çok teşekkürler.
Şimdi sorunsuz çalışıyor. Şimdi programın final butonu kaldı: YAZDIR!

YAZDIR butonu ile seçtiğim sınıfa ait öğrencilerin listesini yazdırmak istiyorum. Combobox2'den sınıf seçip YAZDIR butonu ile yazdırmak istiyorum. Çok mu komleks bir şey istiyorum acaba?

Dosyanız linktedir.

DOSYAYI İNDİR
..

 

[BedriA]

Hocam "Rune-time error '438" hatası veriyor.

 

[Orion1]

Hocam "Rune-time error '438" hatası veriyor.

Windows'un hangi versiyonunu kullanıyorsunuz?
Dosyayı tekrar yükledim.Denermisiniz?