+ süz

mutluedenercan · 12 Mart 2015

http://s5.dosya.tc/server/SWR4J2/t_.yaz2.rar.html

efendim, buraya kadar yardım alarak yaptık Allah rağzı olsun

İlave edilmek istenen:

1. Sayfa1deki birleşik kutuda arama yapınca , sayfa 2 ve 4 de istenen formata
göre o ismi süzüp gönderiyo.... tamam....biz istiyozk bunu yaparken sayfa 1 de kalsın ve o süzülen isim aynı zamandada sayfa 1 dede süzülsünki biz değişiklik yapalım.

2. bir ,tümü, butonu ilave edilim ki. sayfa 1 deki süzdüğümüz isimden çıkıp tekrar tüm listeyi gösterir hale gelsin.

3. bu birleşik kutunun ayarlarına giremedim, çok sordum cevap alamadım. yapmak istediğim birleşik kutuyu 2-3 misli büyük yapmak ve açılan liste sadece 8 isim gösteriyoya onu 20-25 isim listeler yapmak.

özetle : birleşik kutuda süzülen sayfa 2 ve 4 de giderken, ekran yine sayfa 1 de duracak ve sayfa 1 dede süzecek

Teşekkür

mutluedenercan · 16 Mart 2015

arkadaşlar....

Bi yardım

YUSUF44 · 16 Mart 2015

Dosyanızı indirmeme chrome izin vermedi "kötü amaçlı" uyarısıyla.

mutluedenercan · 16 Mart 2015

ne yapıyım hocam

http://s4.dosya.tc/server/Y0Etzq/t_.yaz2.rar.html

tekrar yukledim....

DAHA ÖNCE hep indiriyolrdı...şimdi neden böyle demiş olabilir...

mutluedenercan · 16 Mart 2015

Yusuf hocam iniyomu

mutluedenercan · 17 Mart 2015

hocam yardım

PLİNT · 17 Mart 2015

Merhaba
Aşağıdaki dosyayı deneyin
Birleşik kutuya veri doğrulamadan ulaşabilirsiniz,dosyanızda Sayfadaki "Öğretmen" adlı tabloyu alıyor, 8 adetten fazla göstermez yerine combobox kullanabilirsiniz.
öteki isteklerinize göre inceleyin.
http://www.upturkey.com/download.php?file=107tü.yaz3.zip

mutluedenercan · 17 Mart 2015

Allh rağzı olsun..

Hocam, tekrar tümünü (sayfa1 için) listeler hale getirmek için TÜMÜ düğmesi ekliycektik onu unutmuşsunuz
( Düzenlerim dümesine basınca. listedeki tümü kayboluyor)

Combobox yaparsak . açılan listeyi 20-25 li yapıp büyük puntolu yapabilirsek. öyle ekleseydiniz...hocam ben bilmiyom nasıl yaplılo

Teşekkür

PLİNT · 17 Mart 2015

mutluedenercan' Alıntı:
Allh rağzı olsun..
Hocam, tekrar tümünü (sayfa1 için) listeler hale getirmek için TÜMÜ düğmesi ekliycektik onu unutmuşsunuz
( Düzenlerim dümesine basınca. listedeki tümü kayboluyor)
Combobox yaparsak . açılan listeyi 20-25 li yapıp büyük puntolu yapabilirsek. öyle ekleseydiniz...hocam ben bilmiyom nasıl yaplılo
Teşekkür

Aşağıdaki dosyayı inceleyin.
"Combobox" eklendi; düzenlemek için (Butonları düzenlediğiniz gibi) "Tasarım Modunu" etkinleştirip "Combobox" u sağ tıklayıp "özellikleri" 'ni açıp yazı tipi ve büyüklüğünü, kaç satır göstereceğini (25 e ayarlı) ayarlayabilirsiniz.
Ayrıca "Combobox.value" silinip girilen ilk harflere görede ismi tamamlayacaktır.
"Tümü" kodlarla eklendiği için silinmeyecektir, gerekirse buton eklenebilir.

http://www.upturkey.com/download.php?file=107tü.yaz3.zip

mutluedenercan · 18 Mart 2015

Hocam Allah rağzı olsun....

çok makbule geçti ( makbule geçerken neden uğramdı derseniz bilmem)

kodda -- çık -- diye bişi var ama ona bişi yüklememişsiniz...

TEŞEKKÜR

PLİNT · 18 Mart 2015

mutluedenercan' Alıntı:
Hocam Allah rağzı olsun....

çok makbule geçti ( makbule geçerken neden uğramdı derseniz bilmem)

kodda -- çık -- diye bişi var ama ona bişi yüklememişsiniz...

TEŞEKKÜR

Merhaba
"G5" "TÜMÜ" ise işlem yapmadan çıksın:

Kod:

If [G5] = "TÜMÜ" Then
[COLOR="Blue"]GoTo çık[/COLOR]
End If

Aslında aşağıdaki örnek gibi "Userform" ile geliştirin;

http://www.upturkey.com/download.php?file=418yaz.xls

mutluedenercan · 18 Mart 2015

Emeğiniz geçti hakkınızı helal edin...

combobox hangi listeden isim alacağını hangi kodla hallediyo merak ettim...

bu bilgileri siz nereden öğrendiz...

tekrar teşekkür

PLİNT · 18 Mart 2015

mutluedenercan' Alıntı:
Emeğiniz geçti hakkınızı helal edin...

combobox hangi listeden isim alacağını hangi kodla hallediyo merak ettim...

Merhaba
Helaldir, sağolun.
Combobox "Sayfa1" kod sayfasında

Kod:

Private Sub ComboBox1_MouseDown

altında döngü ile "AF" sütunundan mouse tıklandığında alıyor.
Kolay gelsin.

mutluedenercan · 19 Mart 2015

Öğrenmeye çalışyoz hocam, çok sordum diye kızmıyomuz demi...

sayfa1 de listelemeyi sağlayan şu kod demi:
If Trim(Cells(z, 12).Value) <> Trim([G5].Value) Then Cells(z, 12).EntireRow.Hidden = True
( açıklaması şumu: sıradaki satırın 12.stunundaki G5 den farklı ise satırı gizle, DOĞRU ANLAMIŞMIYIM HOCAM)

Şöyle bi iave olsa nasıl yapılır:

Üstte bi hücrede (sayfa 1 de ) tabloda kaç kişi kayıtlı versin ( son satıra gidip bakmaktansa ) ama her satır ılavesinde otomatik güncellemeli

veya bir SAY düğmesi olsa basınca, gelen mesajın içide sayıyı verse, süper olur...

TEŞEKKÜR

PLİNT · 19 Mart 2015

mutluedenercan' Alıntı:
Öğrenmeye çalışyoz hocam, çok sordum diye kızmıyomuz demi...

sayfa1 de listelemeyi sağlayan şu kod demi:
If Trim(Cells(z, 12).Value) <> Trim([G5].Value) Then Cells(z, 12).EntireRow.Hidden = True
( açıklaması şumu: sıradaki satırın 12.stunundaki G5 den farklı ise satırı gizle,

Merhaba
Doğrudur.

mutluedenercan' Alıntı:
Şöyle bi iave olsa nasıl yapılır:
Üstte bi hücrede (sayfa 1 de ) tabloda kaç kişi kayıtlı versin ( son satıra gidip bakmaktansa ) ama her satır ılavesinde otomatik güncellemeli
veya bir SAY düğmesi olsa basınca, gelen mesajın içide sayıyı verse, süper olur...
TEŞEKKÜR

Düğmede olabilir ama şöyle yaparsanız,sayfaya her veri eklendiğinde/değiştiğinde [C5] hücresinde kaç kişi olduğu görülür.
Sayfa1 kod sayfasındaki kodlarınıza aşağıdaki kırmızı bölümleri ekleyin.

Kod:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
[COLOR="Red"]Application.EnableEvents = False
[c5] = WorksheetFunction.CountA([a9:a65000])
Application.EnableEvents = True[/COLOR]
If Target.Address = "$G$5" <> Empty Then CommandButton1_Click

End Sub

mutluedenercan · 19 Mart 2015

Hocam, nasıl dua etsem....çok sağolun...

şöyle bi sorunumuz oldu, vaktiniz varsa:

1.Sayfa1 deki listede, Henüz bi öğretmene verilmiyen Öğrenci oluyo. Bir düğmeye nasıl bir kod
yazalımki, ATANMAMIŞI BUL, düğmesine basınca , L stunu (Öğretmen ismi) boş olanları sayfa1 de listelesinki düzeltelim..

eğer yoksa , mesajda yok yazsın.

2.Hocam, sizin verdiğiniz kodla sayıyı buldurdum. AG deki sayılların toplamından çıkarttırıp Farkı bi hücrede gösterdim. o rakam - olunca o hücre yanıp sönebilirmi

ÇOK ÇOK ÇOK Teşekkür

PLİNT · 19 Mart 2015

mutluedenercan' Alıntı:
Hocam, nasıl dua etsem....çok sağolun...

şöyle bi sorunumuz oldu, vaktiniz varsa:
1.Sayfa1 deki listede, Henüz bi öğretmene verilmiyen Öğrenci oluyo. Bir düğmeye nasıl bir kod
yazalımki, ATANMAMIŞI BUL, düğmesine basınca , L stunu (Öğretmen ismi) boş olanları sayfa1 de listelesinki düzeltelim..
eğer yoksa , mesajda yok yazsın.
2.Hocam, sizin verdiğiniz kodla sayıyı buldurdum. AG deki sayılların toplamından çıkarttırıp Farkı bi hücrede gösterdim. o rakam - olunca o hücre yanıp sönebilirmi
ÇOK ÇOK ÇOK Teşekkür

Merhaba
1.

Kod:

 Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If ComboBox1.ListCount = WorksheetFunction.CountA([af9:af1000]) + 2 Then Exit Sub
ComboBox1.Clear
ComboBox1.AddItem "TÜMÜ"
ComboBox1.AddItem "ÖĞRETMEN ATANMAMIŞ"

    Say = [COLOR="Blue"]WorksheetFunction.CountA([af9:af1000]) + 8[/COLOR]
    For Bak = 9 To Say
    ComboBox1.AddItem Cells(Bak, "af")
    Next
End Sub

Kod:

[COLOR="Blue"]Public Sub CommandButton1_Click()[/COLOR]

'.......
'...........
sat1 = 6
[COLOR="Blue"]s = 0[/COLOR]
For z = 9 To S1.[A65536].End(3).Row

If Trim(Cells(z, 12).Value) <> Trim([g5].Value) Then Cells(z, 12).EntireRow.Hidden = True
[COLOR="Blue"]If ComboBox1.Value = "ÖĞRETMEN ATANMAMIŞ" And Trim(Cells(z, 12).Value) = "" Then
Cells(z, 12).EntireRow.Hidden = False
s = s + 1
End If[/COLOR]
If Cells(z, 12) = [g5] Then
sat = S2.Range("C65536").End(xlUp).Row + 1

'.....
'.....
[COLOR="Blue"]If ComboBox1.Value = "ÖĞRETMEN ATANMAMIŞ" Then MsgBox "ÖĞRETMENİ ATANMAMIŞ ÖĞRENCİ : " & 0 + s[/COLOR]
End sub

2. Yanıp sönme bilgisayara zahmettir, HİÇ tavsiye etmiyorum.

[C6] = "-" olduğunda:
Sayfa1 ilgili bölüme;

Kod:

 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
[c5] = WorksheetFunction.CountA([a9:a65000])
Application.EnableEvents = True
If Target.Address = "$G$5" <> Empty Then CommandButton1_Click
[COLOR="Blue"]If Target.Address = "$B$5" Then Run ("renk")[/COLOR]
End Sub

MODÜL ekleyip (Kırmızı "1" saniyedir ayarlarsınız.)

Kod:

Sub renk()
[COLOR="Blue"]If Sayfa1.[b5] <> "-" Then Exit Sub[/COLOR]
If Sayfa1.[c6] = "-" Then
If Sayfa1.[c6].Interior.ColorIndex = 3 Then
Sayfa1.[c6].Interior.ColorIndex = xlNone
Else
Sayfa1.[c6].Interior.ColorIndex = 3
End If
End If
RunWhen = Now + TimeSerial(0, 0, [COLOR="red"]1[/COLOR])
Application.OnTime RunWhen, "renk", , True
End Sub

Bence renklendirin yeterli.

mutluedenercan · 19 Mart 2015

tEŞEKKÜR hocam,

öğretmen atanmamış çalıştı...
( sadece mesaj kısmı çalışmadı:
If S1.[A65536].End(3).Row = z Then MsgBox "ÖĞRETMENİ ATANMAMIŞ ÖĞRENCİ : " & 0 + s
bu koddaki mesajı hiç vermedi

renk değişrirme çalıişmadı...
ben b5 e göre yaptım - değer B5 deki hücrede
C6 ları B5 olarak değiştirdim

neden oladıki

PLİNT · 19 Mart 2015

mutluedenercan' Alıntı:
TEŞEKKÜR hocam,

öğretmen atanmamış çalıştı...
( sadece mesaj kısmı çalışmadı:
If S1.[A65536].End(3).Row = z Then MsgBox "ÖĞRETMENİ ATANMAMIŞ ÖĞRENCİ : " & 0 + s
bu koddaki mesajı hiç vermedi

renk değişrirme çalıişmadı...
ben b5 e göre yaptım - değer B5 deki hücrede
C6 ları B5 olarak değiştirdim

neden olmadıki

"TÜMÜ" seçilmediğinden son satırı yanlış almış olabilir.
Yukarıda kodlarda mavi renkli değişiklikleri veya aşağıdaki dosyayı deneyin
Renk değiştirme dosya açıldığında başlayacaktır.
http://www.upturkey.com/download.php?file=476tü.yaz3.zip

Bu arada "b5" "-" işareti elle veya kod ile eklenmelidir.

Kod:

If [B5] <> "-" Then
If [A5] - [A6] = 0 Then [B5] = "-"
End If

gibi; formülle ise formüldeki son değişen hücreye göre kod yazılmalıdır.

Kod:

 If Target.Address = "[COLOR="Red"]$B$5[/COLOR]" Then Run ("renk")

mutluedenercan · 20 Mart 2015

If [A5] - [A6] = 0 Then [B5] = "-"

buradaki A5 ve A6 yı ben olan değer olan hücreye göre ayarladım...

sizin örneği indirdim

- yi elle gir demişsiniz yukardaki kodu da ekledim...- otomatik oladı...

yani öğtermen ismi olmuyan satır bulunca, A1 hücresi büyük ya. A1 kırmızı flaşlarken,
yine A1 hücresinde dönüşümlü olarak , DİKKAT, Boşta Öğrenci var,
dönecek..

Yani A1 Kırmızı oldu, DİKKAT yazdı, 1 sn sonra. beyaz oldu A1 ve yine A1 e "Boşta öğrenci bulundu" yazdı dönüşümlü devam etti..

biz boştaki öğrenciye yani, öğretmen ismi olmuyan satırır doldurunca fash duracak

teşekkür

+ süz

Destek Ekibi