Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: voleclub - 05 Ocak 2011, 12:39:29

Başlık: [Çözüldü] Bir günde 3 isim varsa bildirme
Gönderen: voleclub - 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.]

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: Hüseyin Çoban - 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

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: voleclub - 06 Ocak 2011, 08:47:42

Hüseyin bey bunu excel doyasına uygulayabilirmiyz

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: Hüseyin Çoban - 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.]

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: voleclub - 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

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: voleclub - 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

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: voleclub - 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.]

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: Rami - 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.]

Başlık: Ynt: bir günde 3 isim varsa bildirme
Gönderen: voleclub - 11 Ocak 2011, 09:03:19

Rami bey,çok teşekkür edeirm.