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ü #1
AV,AZ,BD,BH,BL,BP,BT,BX,CB,CF kolunlarında yazan rakamlar kadar

D11:AH11
D12:AH12
D13:AH13
D14:AH14
D15:AH15
D16:AH16
D17:AH17
D18:AH18
D19:AH19
D20:AH20

aralığındaki satırlara "x" işareti koymasını, fakat cumartesi ve pazar günlerine denk gelen günlere "H" harfi yazdırmasını istiyorum.

Örnek: deneme İŞÇİ 1 işçisinin AV kolonunda yazan günü sayısı 5 . Bu işöi için D11:AH11 aralığına rasgele günlere 5 adet "x" cumartesi ve pazara gelen günlerede "H" koyacak
.rar Kitap1.rar (Dosya Boyutu: 11,31 KB | İndirme Sayısı: 17)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Sn:drummers
D11 hücresine aşağıdaki formülü yazınız ve sağa doğru uzatınız.
=EĞER(SÜTUNSAY($D$11Lol11)<=$AV11;EĞER(YADA(HAFTANINGÜNÜ(D$10;2)=7;HAFTANINGÜNÜ(D$10;2)=6);"H";"X");"")
D12 hücresinde formülün aşağıdaki bölümünü değiştiriniz.
($D$12Lol12)
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
teşekkürler...
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çö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
Çözüldü #5
Teşekkürler.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #6
firma değiştirdiğimde işçilerin günlerindeki "x" veya "H" ler de silinebilirmi ?

Bunun haricinde. İşlem tamamdır. Teşekkürler
örnek dosya ekliyeyim dedim.Img-grin
.rar Kitap1.rar (Dosya Boyutu: 13,35 KB | İndirme Sayısı: 21)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 25/10/2010, 15:08, Düzenleyen: drummers.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task