Personel takip tablosu

[omeryılmaz]

Arkadaşlar Dosyada konuyla ilgili açıklama mevcuttur.
KONU : "ComboBox3 de seçilen Personel satırını, ComboBox2 de seçilen tarihten başlayarak TexBoxtaki gün sayısınca hücrelerin (satırların) OptionButtonlara göre renklendirilmesi."

İlginiz için şimdiden şükranlarımı sunuyorum.

 

[omeryılmaz]

:yardim:Arkadaşlar "ComboBox3 de seçilen Personel satırını, ComboBox2 de seçilen tarihten başlayarak TexBoxtaki gün sayısınca hücrelerin (satırların) OptionButtonlara göre renklendirilmesi"..için nasıl işlem yapmalıyım...

 

[ozgretmen]

Dosyanız ekte...

 

[omeryılmaz]

Hocam Emeğine sağlık ilginiz için şükranlarımı sunuyorum.

Ancak ComboBox3 te seçilen Personel satırını, ComboBox2 de seçilen tarihten geçerli olmak üzere TexBoxla girilen gün sayısınca ilgili renklerde nasıl renklendirebilirim.

ÖRN: Dr. Ömer YILMAZ 14.02.2009 tarihinden geçerli olmak üzere 13 gün Geçici görevli (13 hücre Sarı renklendirmeliyim)

 

[ozgretmen]

Dosyanız ekte...

 

[omeryılmaz]

Hocam Elinize Emeğinize ve yüreğinize sağlık çok güzel olmuş.
Ancak;Texboxta girilen gün sayısını bir gün fazla renklendiriyor. 7 Yazdığında 8 hücre renklendiriyor..

 

[ozgretmen]

Hocam Elinize Emeğinize ve yüreğinize sağlık çok güzel olmuş.
Ancak;Texboxta girilen gün sayısını bir gün fazla renklendiriyor. 7 Yazdığında 8 hücre renklendiriyor..

Ekle butonuna ait kodu aşağıdakiyle değiştiriniz...

Private Sub CommandButton1_Click()
satir = ComboBox3.ListIndex + 3
sütun = ComboBox2.ListIndex + 4
Range(Cells(satir, sütun), Cells(satir, sütun + TextBox1.Value - 1)).Select
Selection.Interior.ColorIndex = [c1].Interior.ColorIndex
Cells(satir, sütun) = [c1]
MsgBox " İşleminin tamamlanmıştır ", vbInformation, "OOzG"
End Sub