Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: [Çözüldü] Bir günde 3 isim varsa bildirme  (Okunma sayısı 7855 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
[Çözüldü] Bir günde 3 isim varsa bildirme
« : 05 Ocak 2011, 12:39:29 »
Listeye göre bir günde 3 isim varsa değişik rente olmasını istiyorum

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
« Son Düzenleme: 16 Ocak 2011, 21:34:40 Gönderen: Bülent Öztürk »

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #1 : 05 Ocak 2011, 22:35:40 »
Merhaba,
CommandButton1 butonuna aşağıdaki kodları uygulatarak deneyiniz.

Alıntı
Private Sub CommandButton1_Click()
For c = 2 To Cells(65500, 1).End(xlUp).Row
If Cells(c, 6) <> "0" Then
t = c + 1
If t >= Cells(65500, 1).End(xlUp).Row + 1 Then Exit Sub
Set x = Range("f" & t & ":f65536").Find(Cells(c, 6))
If Not x Is Nothing Then
    Application.EnableEvents = False
    fg = x.Address
 
    Do
   If Cells(c, 4) & Cells(c, 6) = Cells(x.Row, 4) & Cells(x.Row, 6) Then
Range("D" & c & ":" & "F" & c).Font.ColorIndex = 5
Range("D" & x.Row & ":" & "F" & x.Row).Font.ColorIndex = 5
Cells(c, 6).Select

End If
 Set x = Range("f" & t & ":f65536").FindNext(x)
    Loop While Not x Is Nothing And x.Address <> fg
    Application.EnableEvents = True
End If
 Set x = Nothing
 End If
Next
End Sub

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #2 : 06 Ocak 2011, 08:47:42 »
Hüseyin bey bunu excel doyasına uygulayabilirmiyz

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #3 : 06 Ocak 2011, 08:50:41 »
Merhaba,
Kodlar "Kontrol Et" butonuna tanımlanmıştır Mahmut Bey, ekteki dosyayı inceleyin.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #4 : 06 Ocak 2011, 08:55:25 »
Hüseyin Bey krıter olarak sadade bir isimdeki kişi aynı gün 3 ders almışsa bildirmesini istiyorum. Örneğim Mahmut özdemir 5.01.2011 de 3 ders almışsa mavi olsun,05.01.2011 de 2 yada 1 ders alırsa mavi olmasın

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #5 : 06 Ocak 2011, 08:59:15 »
Ben zihinsel engellilerde öğretmenim ve bi çocuga bir günde 2 den fazla ders yazaman eğer yazdıysam bildirmesini istiyorum

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #6 : 10 Ocak 2011, 07:03:09 »
d Sutunuda tarih ve f sutunuda öğrenci isimleri var.Bir öğrenci aynı gün içerisinde 2 alır ancak 2 den fazla ders alamaz.Eğer 3 ders almışsa bu satırlar renkli olmasını istiyorum.Teşekkürler...

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #7 : 10 Ocak 2011, 16:19:01 »
Aşağıdaki dosyayı inceleyin.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı voleclub

  • Excelce Çavuş
  • ***
  • İleti: 158
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: mahmut özdemir
  • Mesleğiniz: öğretmen
Ynt: bir günde 3 isim varsa bildirme
« Yanıtla #8 : 11 Ocak 2011, 09:03:19 »
Rami bey,çok teşekkür edeirm.