Hücre Doldurma Hk.

[valentino06]

Merhaba,
Arkadaşlar Personel Puantajımda "X" işaretini kullanıyorum bu işareti sadece personel sayısı kadar hangi güne gelmiş isek o günü otomatik doldurta bilir miyiz. Lütfen Yardımcı olabilir misiniz.

 

[YUSUF44]

Bir örnek dosya paylaşırsanız çok iyi olur.

 

[valentino06]

Merhaba,
Örneği ekledim. ekteki örnekte doldur butonuna tıkladığımda tüm ayları ve ne kadar personel varsa hepsini dolduruyor. benim istediğim bu doldur butonunun haricinde sadece hangi günün puantajını işliyeceksem sadece o gün doldurmasını istiyorum. lütfen yardımcı olabilir misiniz.

 

[YUSUF44]

Hangi günün doldurulacağını nerden bileceğiz?

 

[YUSUF44]

Eğer içinde bulunduğumuz gün ise aşağıdaki kodu kullanabilirsiniz:

Sub doldur()
son = WorksheetFunction.Max(5, Cells(Rows.Count, 2).End(3).Row)
gün = Day(Date)
Range(Cells(5, gün + 3), Cells(son, gün + 3)) = "X"
End Sub

 

[valentino06]

Çok teşekkür ederim. Yusuf bey Allah razı olsun. İstediğim. gibi oldu.

 

[valentino06]

Merhaba,
Yusuf bey daha önce işaretlenmiş hücreleri siliyor. silmesini engelleyip veya o hücreleri atlatabilir miyiz. Yardımlarınızdan dolayı çok teşekkür ederim.

 

[YUSUF44]

Sub doldur()
son = WorksheetFunction.Max(5, Cells(Rows.Count, 2).End(3).Row)
gün = Day(Date)
Range(Cells(5, gün + 3), Cells(son, gün + 3)) = "X"
End Sub

Bu kodda silme ile ilgili bir komut yok. Tek yaptığı o günün sütununa X koymak.

 

[valentino06]

Yusuf bey Puantajda raporlu veya senelik izinde olan personelin raporunu ve Senelik izini işlemişim Örnek ayın onunda raporlu doldur butonuna bastığımda raporlu personeli raporunu siliyor. yerime "X" İşareti koyuyor. önceden işlenmiş hücreyi dokunmadan diğer boş hücreleri işaretlenmesini istiyorum. lütfen yardımcı olabilir misiniz.

 

[YUSUF44]

Aşağıdaki şekilde deneyin:

Sub doldur()
son = WorksheetFunction.Max(5, Cells(Rows.Count, 2).End(3).Row)
gün = Day(Date)
For kişi = 5 To son
    If Cells(kişi, gün + 3) = "" Then Cells(kişi, gün + 3) = "X"
Next
End Sub

 

[valentino06]

Çok teşekkür ederim. Yusuf bey makro yavaş çalışıyor. ona yapacak bir şey yok Allah kat kat razı olsun.