VBA Puantaj

[murathano]

Merhabalar

Excelde Fazla Çalışma ve Vardiya bütçesini oluşturmak istiyorum. Bir sekmede A1 hücresinde toplam bütçe olacak Fazla Çalışma ve Vardiya için ayrı sekmeler olacak ve burada hücrelere girilen değerler örneğin Fazla Çalışma sekmesinde A1:B10 arasına değer girilecek toplam bütçeyi geçtiğin an en son değer girilen hücreyi Target.Clean yapmasını istiyorum.

Yardımcı olabilecek birisi varsa çok memnun olurum...

 

[DoğanD]

Örnek dosya ile daha isabetli sonuç olabilir fakat VBA'dan anladığınızı varsayarak;

Worksheet_Change olayına:
butce = 'bütçe veriniz hangi adresteyse
if worksheetfunction.sum(range("A1:B10"))> butce then
msgbox "En Fazla " & butce & " saat kadar fazla mesai girişi yapabilirsiniz.",vbinformation
target.clearcontents
end if

Örneği yazarken hatalı yazmış olabilirsiniz fakat A1:B10 aralığına aynı zamanda bütçeyi yazmak istemezsiniz. Ayrıca personel listesi satır bazında sıralı ise aralığınızı Range("A" & target.row & ":B" & target.row) olarak belirtmelisiniz.