+ süz

PLİNT · 21 Mart 2015

mutluedenercan' Alıntı:
biz boştaki öğrenciye yani, öğretmen ismi olmuyan satırır doldurunca fash duracak

Merhaba
İnceleyin. http://www.upturkey.com/download.php?file=768tü.yaz3.zip

mutluedenercan · 23 Mart 2015

Hocam diyecek bişi bulamadım, Harika....

bunları nereden öğrendiniz

ALLAH rağzı olsun...

http://s4.dosya.tc/server/Tti3rn/t_.yaz9.rar.html

hocam sayfa 2 ve 4 deki yazdırlar neden çalışmdadı...
ne değişti anlıyamadım

Teşekkür

PLİNT · 24 Mart 2015

mutluedenercan' Alıntı:
hocam sayfa 2 ve 4 deki yazdırlar neden çalışmdadı...
ne değişti anlıyamadım

Teşekkür

Sayfa2 de bulunan "Yazarım" butonu; kodlarına bakın.(hücreleri temizliyor)
Ayrıca "TÜMÜ" seçilmeden yazdırılma ihtimaline karşı aşağıdaki eklemeleri yapın.
Satırlar gizli haldeyken aşağıdaki "say" son satırı yanlış alır.
"Sayfa2" deki butonu "Run" ile çalıştırın.

Kod:

Private Sub cmdTumunuYazdır_Click()
[COLOR="red"]Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic[/COLOR]
    Dim Say As Integer
    Dim Bak As Integer
    [COLOR="Blue"]Say = Cells(10000, "AF").End(xlUp).Row[/COLOR]
'......
'........
'.........
   [COLOR="Red"]Run ("Sayfa2.CommandButton1_Click")[/COLOR]
'....
'........

Kod:

Private Sub CommandButton10_Click()

[COLOR="red"]Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic[/COLOR]

mutluedenercan · 24 Mart 2015

Hocam, size borcumuzu nasıl öderiz...

bende flash yaparken olayı kaçırıyo yapamıyo sanıyodum

peki hocam tek yazılmada yapılıyo bağzen .

sayfa 2 ve 4 deki yazdırma düğmeleri nasıl kodlanmalı

PLİNT · 24 Mart 2015

mutluedenercan' Alıntı:
Ama hocam, Tümü seçildednde yaılabilmeli

mesela, sayfa1 bir isim seçildi sadece o isim safa 2 ve 4 e aktarılıyo ve istenirse yazılıyo
tümünü seçme şartı olmamalı

Yukarıda demek istediğim öyle değil, "Combobox" ile bir isim seçtikten sonra "sayfa2" ye veya "sayfa4" e geçip sizin dediğiniz gibi bir isim için yazdırılabilir o zaten normal;
benim dediğim toplu yazdırmalar içindir.
Toplu yazdırırken kod içindeki "say" son satır görünmediği için yanlış sayacak, hata verecektir. Siz yukardaki bölümleri ekleyin. "Sayfa2" deki "Yazdır" butonunu düzelttinizmi?

mutluedenercan · 24 Mart 2015

hocam cevabı düzeltmiştim son halini deyil ilk haline göre cevaplamışsınız...

evet demek istediğinizi anladım, ve düzeltmeleri yaptım.

sayfadaki yazdırlara nasıl bi kod ilave etcem anlamadım...
önceki programda yazdırıyor kodları karşılaştırdım bi fark yok...

orada yazıyor burada yazmıyor anlam vermedim kodlar satır satır aynı...

Hakkınızı nasıl öderiz

PLİNT · 24 Mart 2015

mutluedenercan' Alıntı:
hocam cevabı düzeltmiştim son halini deyil ilk haline göre cevaplamışsınız...

evet demek istediğinizi anladım, ve düzeltmeleri yaptım.

sayfadaki yazdırlara nasıl bi kod ilave etcem anlamadım...
önceki programda yazdırıyor kodları karşılaştırdım bi fark yok...

orada yazıyor burada yazmıyor anlam vermedim kodlar satır satır aynı...

Hakkınızı nasıl öderiz

"Sayfa2" yi açın "Tasarım Modu" nu etkinleştirin. "Yazarım" butonunu seçip
kenara almaya çalışın altında bir buton daha var farkındamısınız?
Yazdıran "commandbutton1" altta kalmış.

mutluedenercan · 24 Mart 2015

Hakkınızı helal edin...

toplu yazdırmalarda o kodları ilave etmedende çalışıyordu etmeseydik ne sorun olurdu hocam

PLİNT · 24 Mart 2015

mutluedenercan' Alıntı:
Hakkınızı helal edin...

toplu yazdırmalarda o kodları ilave etmedende çalışıyordu etmeseydik ne sorun olurdu hocam

Siz rast gelmemişsiniz.
Butondaki kodu aşağıdaki gibi yazın "AKKIZ" ismini seçip "Haftalık toplu döküm" ü tıklayın mesaj "6" çıkacaktır gizlenen satırlar göründüğünde: "41" ; yani olması gereken.

Kod:

Private Sub cmdTumunuYazdır_Click()

    Dim Say As Integer
    Dim Bak As Integer
    Say = Cells(10000, "AF").End(xlUp).Row
    MsgBox Say
    Exit Sub
    End Sub

Say=6
"For Bak = 9 To 6"
olmaz

mutluedenercan · 24 Mart 2015

tamam hocam,

Haakınızı helal edin ...

yukarıdaki kodu değiştirmiyom demi anlatmak açin dediz..

PLİNT · 24 Mart 2015

mutluedenercan' Alıntı:
yukarıdaki kodu değiştirmiyom demi

Hayır değiştirmeyin, çıkan sonucu görmeniz içindi.

mutluedenercan · 24 Mart 2015

Hakkını halal ettinizmi hocam,

Run ("dur") kodunu anlıyamadım... Dur diye bişi tanımlımı başka bi yerde bulamadım...

Okul işte ihtiyaç çok...

daha nöbet programı var...yüzüm kalmadı diyemiyom

ÇOK Çok Sağolun

PLİNT · 24 Mart 2015

mutluedenercan' Alıntı:
Hakkını halal ettinizmi hocam,

Run ("dur") kodunu anlıyamadım... Dur diye bişi tanımlımı başka bi yerde bulamadım...

Okul işte ihtiyaç çok...

daha nöbet programı var...yüzüm kalmadı diyemiyom

ÇOK Çok Sağolun

Merhaba
Helal ettik, sağolun, çizelgeyi bekleriz.
"Sub dur" kodu "Modül1" de olmalıdır yoksa her öğretmen adı girildiğinde
ikaz işaretinin zaman aralığı 1 saniyeden aşağı düşer.

mutluedenercan · 25 Mart 2015

Hocam, şöyle bi problem olmuş geçen sene

Aynı adrese iki öğretmen görevlendirilmiş..

bunu önlemek için, süzme yapıp A-Z sıralama dışında bi öneriniz varmı ?

benim aklıma gelen bi düğmeye kod ekliyebilirmiyiz.

basınca Adresleri (sayfa1de) alfabetik sıraya alıp, aynı adrese farklı öğretmen atanmışsa o satırı belirgin yapabilirmi ( rengi veya dolgusu kırmızı gibi)

Yani aynı adrese hep bi Öğretmen gidecek, bağzen yanlışlıkla aynı iş yerine iki farklı öğretmen görevlendiriliyo, ancak öğretmen gidince fark ediliyomuş

Bunuda ekleyiversek....

Çok çok sağolun

PLİNT · 26 Mart 2015

mutluedenercan' Alıntı:
Hocam, şöyle bi problem olmuş geçen sene
Aynı adrese iki öğretmen görevlendirilmiş..
bunu önlemek için, süzme yapıp A-Z sıralama dışında bi öneriniz varmı ?
benim aklıma gelen bi düğmeye kod ekliyebilirmiyiz.
basınca Adresleri (sayfa1de) alfabetik sıraya alıp, aynı adrese farklı öğretmen atanmışsa o satırı belirgin yapabilirmi ( rengi veya dolgusu kırmızı gibi)
Yani aynı adrese hep bi Öğretmen gidecek, bağzen yanlışlıkla aynı iş yerine iki farklı öğretmen görevlendiriliyo, ancak öğretmen gidince fark ediliyomuş
Bunuda ekleyiversek....
Çok çok sağolun

Merhaba
İsteğiniz ek dosyadaki şekilde olabilir ama adreslerin nokta, virgülünü kadar
aynı olmalıdır. Ekteki örnek randımanlı olmayabilir.
Şöyle imkanı varsa:
İşyerleri kodlansa
Bölge No=10/1 (10.bölge/1.işyeri gibi) ve bu şekle göre butondaki kodlar uyarlanır hata ihtimali azaltılabilir.
http://www.upturkey.com/download.php?file=571tü.yaz91.zip

mutluedenercan · 26 Mart 2015

Hocam harikasınız, Allah rağzı olsun , birebir aynı adres olan 5-6 yaride verdi, aynı öğretmende
olduğu halde vermemeliydi, neyse kodda hata yoksa önemli deyil onları görürüz artık...
( butondaki kodlardan başka yarde bi değişiklik yok demi hocam)

peki, adrese göre deyilde işyeri adına göre bakması daha mantıklı demi, o zaman
kodun nerelerini değiştirem
( yani aynı işyerine farklı öğretmen verilmşse listeliycek)

ha hocam şu kod adresleri sıralıyan kod demi:
Range("A9:L" & Say).Sort Key1:=[h9], Order1:=xlAscending

bunu ilk açılışta bir kere yapsın diye modulun içine en başa atsam olurmu ( amacımız çıktılarda adresler sıralı gelsin)

PLİNT · 26 Mart 2015

mutluedenercan' Alıntı:
Hocam harikasınız, Allah rağzı olsun , birebir aynı adres olan 5-6 yaride verdi, aynı öğretmende
olduğu halde vermemeliydi, neyse kodda hata yoksa önemli deyil onları görürüz artık...

Mesela 4 adet aynı adres(veya işyeri) var ikisi doğru ikisi yanlış, 3 adet adres aynı üçününde isimleri değişik, 2 adet adreste var iki değişik isim var
bunların hangisinin yanlış olduğunu neye göre belirleyecek ?
İsimlerin gidecekleri görev adresleri bir tabloda belli olsa dediğiniz gibi olur.
"Bu kişi yanlış adreste" denebilir.

mutluedenercan' Alıntı:
( butondaki kodlardan başka yarde bi değişiklik yok demi hocam)

Hayır yok.

mutluedenercan' Alıntı:
peki, adrese göre deyilde işyeri adına göre bakması daha mantıklı demi, o zaman
kodun nerelerini değiştirem
( yani aynı işyerine farklı öğretmen verilmşse listeliycek)

Listenize göre mantıklı değil, işyerine göre örnek ekte bakınca durumu görürsünüz liste sizinki değişiklik yapılmadı.
http://www.upturkey.com/download.php?file=214tü.yaz92.xls

mutluedenercan' Alıntı:
şu kod adresleri sıralıyan kod demi:
Range("A9:L" & Say).Sort Key1:=[h9], Order1:=xlAscending

bunu ilk açılışta bir kere yapsın diye modulun içine en başa atsam olurmu ( amacımız çıktılarda adresler sıralı gelsin)

Doğrudur.
Modüldeki kodu aşağıdaki gibi değiştirin açılışta
"H" sütununa göre sıralama yapacaktır.
Önceki dosyanızda "sayfa1" sayfasını seçen kod eksikmiş onu aşağıdaki gibi ekleyin.

Kod:

Sub auto_open()
[COLOR="Red"]Sheets("Sayfa1").Select[/COLOR]
[COLOR="Blue"]Say = Cells(Rows.Count, 1).End(xlUp).Row
Range("A9:L" & Say).Sort Key1:=[H9], Order1:=xlAscending[/COLOR]

b = WorksheetFunction.CountA([c9:c10000]) - _
   WorksheetFunction.CountA([L9:L10000])
   If b < 1 Then Exit Sub
      Sayfa1.[A1].Font.ColorIndex = 36
   Sayfa1.[A1] = "*** DİKKAT ***  BOŞTA   " & b & "   ÖĞRENCİ VAR"
 Call renk
End Sub

mutluedenercan · 26 Mart 2015

Hocam Size dua ediyom....sayanizde ben onere oluyom...ama diyom..asıl usta ben deyilim...

öğrencisiyim diyom...

Şunu kavrıyamadım: aynı iş yeri isminde farklı öğretmen bulunca, iki satır vermesi gerekmiyormu, aynı iş yerine üç öğretmen verildiyse üç satır vermiycekmi, o mantığı anlıyamadım. yoksa bi iş yerinde birden fazla öğretmen bulunca o işyerinin hepsini veriyor demi...

Hocam bulunca, öğrt isimleri yeşil oluyo ya, tekrar tümünü seçince eski haline nasıl getiririm..

Tararken ne güzel tarıyo, mest oldum, hızını biraz yavaşlatmak mümkün olsa, satırları taradığını daha net görürdük..

Çok çok sağolum

Bizimde size bi yardımımız olabilse keşke

mutluedenercan · 26 Mart 2015

hOCAM , mesela ( adrese göre olanı yaptım ) Eskişehir yolu olanda farklı öğretmen buldu.

düzelttik tekrar bastık taradı hala o düzelttiğimiz satır hariç veriyo..

yani, adresde hep aynı öğretmen var tek isim : neden hala veriyo koddamı sıkıntı var

Diyanet İşleri Bşk. Eskişehir Yolu Eskişehir Yolu ZUHAL CUMBUL
Diyanet İşleri Bşk. Eskişehir Yolu Eskişehir Yolu ZUHAL CUMBUL
Diyanet İşleri Bşk. Eskişehir Yolu Eskişehir Yolu ZUHAL CUMBUL
Diyanet İşleri Bşk. Eskişehir Yolu Eskişehir Yolu ZUHAL CUMBUL
Diyanet İşleri Bşk. Eskişehir Yolu Eskişehir Yolu ZUHAL CUMBUL
Diyanet İşleri Bşk. Eskişehir Yolu Eskişehir Yolu ZUHAL CUMBUL

PLİNT · 26 Mart 2015

Hücrelerin renkli kalmasındandır.
Aşağıdaki gibi ekleyin.
"Tümü" seçilince renksiz olsun için:

Kod:

 Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then Exit Sub
[COLOR="red"][L9:L10000].Interior.ColorIndex = xlNone[/COLOR]
[G5] = ComboBox1.Value
End Sub

Tekrar tarandığında; renkleri temizleyip tarasın

Kod:

 Private Sub CommandButton3_Click()
Application.Calculation = xlCalculationManual
[COLOR="Red"][L9:L10000].Interior.ColorIndex = xlNone[/COLOR]
'......
'.....

Eğer ki işyerine göre olsun diyorsanız isimleri teke indirelim
ama mesela "TPAO" da iki isim var hangi adreslerde oldukları görünüyor normal.
üçüncü bir isim yanlışlıkla yazıldı ve dediğiniz gibi yapınca 3 adet "TPAO" 3 adet isim görünecek bunlardan biri yanlış ama hangisi yanlışlıkla yazıldı nasıl bilinecek?
En iyisi Adrese göre olanıdır; ama aynı adres değişik ve eksik tarif edilmeyecek harfi harfine
aynı...
O şekilde adresleri düzenleyebilirseniz daha hızlı ve hatasız olacak şekilde kodları uyarlayabiliriz