makro yardımı

[azrail136]

Merhabalar..
öncelikle yardımlarınız için cok teşekkür ediyorum.. forum konularını karıştırarak uygun gördügüm makroları kendimce uyarlamaya calıştım fakat küçük bir sorunum var ekteki dosya öğrencilerin devam durumu için hazırlandı yoklama sekmesinde öğrencilerin barkod numaralarını okutup uygun derse "+" atmasını istiyorum sorun şurda makronun kodunu her ders başında dğiştirmem ve her barkodu okuttuktan sonra makroyu tekrar başlatmam gerekiyor.. makro acılırken bana hangi derse yani hangi sütuna "+" atıcagını sorsa ve ben makroyu kapatana kadar okuttugum her barkoda "+" atıp tekrar arama hücresine gelmesi şeklinde bir düzenleme yapmam mümkünmü? sanıyorum basit bir sorun ama bir türlü beceremedim..

yardımlarınız için çok teşekkür ederim..

 

[Excelmy]

Yapacağınız işlemler için Userform ve CheckBox'lar ile çalışmanız daha uygun olacaktır.

 

[azrail136]

sanırım haklısınız ama cok fazla bilgim yok rica etsem yardımcı olabilirmisniz?

 

[azrail136]

yardım edebilicek kimse yokmu

 

[Orion1]

Dosyanız 2003 formatında yolarsanız sanırım yardım alma şansınız artacaktır.
Çünkü yardım etmek isteyipte 2007 versiyonu olmayan arkadaşlar mutlaka vardır.(Bu hatırlatmayıda artık yapmaktan bıktım.Hüseyin bey bu konuda foruma bir hatırlatma koyarsa iyi olacak.)
Kolay gelsin.

 

[erkanakgul]

Yardım

A sütununda ok.noları, B sütununda isimler ve C sütununda Seçtikleri ders isimleri var . Ben aynı dersi seçen öğrenci isim ve nolarını F ve G sütunlarına otomatik getirmek istiyorum. Nasıl yaparım

 

[azrail136]

merhabalar 97 sürümünüde yükledim

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then TextBox1.SetFocus
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "" Or Not IsNumeric(TextBox1.Text) Then Exit Sub
Call barkod_59
Cancel = True
End Sub
Private Sub UserForm_Initialize()
Dim k As Byte
Me.Caption = "evrengizlen@hotmail.com    " & Format(Now, "dd mmmm yyyy  dddd  hh:mm")
For k = 3 To 10
    ComboBox1.AddItem Sheets("yoklama").Cells(1, k).Value
Next
ComboBox1.ListIndex = 0
ComboBox1.SetFocus
End Sub
Sub barkod_59()
Dim k As Range, sat As Long, veri As Variant
If TextBox1.Text = "" Then
    MsgBox "Lütfen Bir üye No Giriniz.", vbCritical, "UYARI"
    TextBox1.SetFocus
    Exit Sub
End If
veri = Format(TextBox1.Text, "00-00-000")
sat = Sheets("yoklama").Cells(65536, "A").End(xlUp).Row
Set k = Sheets("yoklama").Range("A2:A" & sat).Find(veri, , xlValues, xlWhole)
If Not k Is Nothing Then
    k.Offset(0, ComboBox1.ListIndex + 2).Value = "'+"
    Else
    MsgBox "Üye No Bulunamadı", vbCritical, "ÜYE NO YOK"
End If
TextBox1.Text = ""
End Sub

 

[azrail136]

Merhabalar yardımlarınız için çok teşekkürler gercekten cok işime yaradı bilmemek kötü seymiş.. ufak bi yardım daha istiyebilirmiyim sizden? numaraları 10-02-001 seklinde yazarsam buluyor ama barkod okuyucu 1002001 seklinde veri gönderiyor bu yüzden sorun cıkıyor bunu düzeltebilirmiyiz? ve 2. sorun numarayı girdikten sonra 2 defa entera basmak gerekiyor bakod okuyucu bunuda yapamıyor 1 defa basıyo entera numarayı okuduktan sonra bü yüzden klavyeden tekrar entera basmak gerekiyor.. ve küçük bir 3 sorun numara girilip entera basılıp + konuldugunda işleminiz tamamlanmıştır yazısı cıkmasada tekrar numara arama bölümüne dönse ve 2 okutmaya hazır olsa cok iyi olurdu.. biraz uzun anlatmak zorunda kladım nasıl anlatıcagımı bilmeden ama bu işi çözebilirsem dileyin benden ne dilerseniz
yardımlarınız için cok teşekkürler..

 

[Orion1]

Dosyayı güncelledim.
8 numaralı mesajdan inidrebilirisniz.

Merhabalar yardımlarınız için çok teşekkürler gercekten cok işime yaradı bilmemek kötü seymiş.. ufak bi yardım daha istiyebilirmiyim sizden? numaraları 10-02-001 seklinde yazarsam buluyor ama barkod okuyucu 1002001 seklinde veri gönderiyor bu yüzden sorun cıkıyor bunu düzeltebilirmiyiz? ve 2. sorun numarayı girdikten sonra 2 defa entera basmak gerekiyor bakod okuyucu bunuda yapamıyor 1 defa basıyo entera numarayı okuduktan sonra bü yüzden klavyeden tekrar entera basmak gerekiyor.. ve küçük bir 3 sorun numara girilip entera basılıp + konuldugunda işleminiz tamamlanmıştır yazısı cıkmasada tekrar numara arama bölümüne dönse ve 2 okutmaya hazır olsa cok iyi olurdu.. biraz uzun anlatmak zorunda kladım nasıl anlatıcagımı bilmeden ama bu işi çözebilirsem dileyin benden ne dilerseniz
yardımlarınız için cok teşekkürler..

 

[azrail136]

cok teşekkürler hemde cok..

 

[Orion1]

Sorun neydi
Açıklarsanız burada yardım edeyim.
öm'yi sildimde

 

[azrail136]

2 tane daha dersimiz vardı kom1 ve k. oda toplamda 8 ders yapıyo ben eklemeye calıştım 2 ders daha ama beceremedim

 

[Orion1]

2 tane daha dersimiz vardı kom1 ve k. oda toplamda 8 ders yapıyo ben eklemeye calıştım 2 ders daha ama beceremedim

Kom1 zaten var.Ben k.Odayı da ekledim.
Dozyanız 8 nolu öesajdadır.

 

[Orion1]

2 tane daha dersimiz vardı kom1 ve k. oda toplamda 8 ders yapıyo ben eklemeye calıştım 2 ders daha ama beceremedim

Gerekli düzenlemiyi yaptım.
8 nolu mesajdan indirebilirsiniz..

 

[azrail136]

hersey mükemmel.. yardımlarınız için teşekkürler..

 

[Orion1]

hersey mükemmel.. yardımlarınız için teşekkürler..

Rica ederim.
İyi çalışmalar.