Skip to main content

AccessTr.neT


Hücredeki değer kadar bir aralığa "x" işareti koymak

Hücredeki değer kadar bir aralığa "x" işareti koymak

Çözüldü #4
Sn:drummers
Eğer formülleri makro içerisinde kullanacaksanız aşağıdaki makroları inceleyiniz.

Dim i As Range
For Each i In Range("D11:AH11")
i.Value = _
"=IF(COLUMNS(R11C4:RC)<=RC48,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"
Next i
For Each i In Range("D12:AH12")
i.Value = _
"=IF(COLUMNS(R12C4:RC)<=R[-1]C52,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"
Next i
For Each i In Range("D13:AH13")
i.Value = _
"=IF(COLUMNS(R13C4:RC)<=R[-2]C56,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"
Next i
For Each i In Range("D14:AH14")
i.Value = _
"=IF(COLUMNS(R14C4:RC)<=R[-3]C60,IF(OR(WEEKDAY(R10C,2)=7,WEEKDAY(R10C,2)=6),""H"",""X""),"""")"
Next i

Not:4 işçi için yapılmıştır gerisini inceleyerek uyarlayınız.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Hücredeki değer kadar bir aralığa - Yazar: ogulcan92 - 25/10/2010, 12:57
Task