Hücredeki değer kadar bir aralığa "x" işareti koymak
Tarih
24/10/2010 17:42
Konu Sahibi
drummers
Yorumlar
7
Okunma
2721
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
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


Ek Dosyalar
.rar   Kitap1.rar (Dosya Boyutu: 11,31 KB / İndirme Sayısı: 17)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:drummers
D11 hücresine aşağıdaki formülü yazınız ve sağa doğru uzatınız.

Visual Basic Code
=EĞER(SÜTUNSAY($D$11:D11)<=$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.

Visual Basic Code
($D$12:D12)

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
teşekkürler...
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:drummers
Eğer formülleri makro içerisinde kullanacaksanız aşağıdaki makroları inceleyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.

Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
Teşekkürler.
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
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


Ek Dosyalar
.rar   Kitap1.rar (Dosya Boyutu: 13,35 KB / İndirme Sayısı: 18)
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  A hücresindeki değer B hücresindeki değerden küçükse c hücresine bu formülü uygula simendifer 3 101 28/11/2016, 14:51 simendifer
  etopla veya indis ile değer toplama ugur1208 3 254 12/07/2016, 13:40 atoz112
  Excel boş değer varsa D1 boş bırak nemesisdream 9 380 18/06/2016, 16:39 ozanakkaya
  yüzde işareti ve hata değeri timm119 6 317 09/06/2016, 09:51 timm119
Çözüldü excelde hücredeki metin içerisine başka hücrede ki değişken bilgiyi yerleştirme bbgknp 2 1.453 18/02/2014, 11:58 bbgknp


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya