Soru Koşullu Değer Atama

[arsenlupen77]

Deneyiniz.

AI4;

=8*TAMİŞGÜNÜ.ULUSL(NÖBET!A4;SERİAY(NÖBET!A4;0);1;RESMİ_TATİLLER!$A$2:$A$69)

Tekrar Merhabalar. Bir sorum daha vardı. hafta içi 8 yap diyince ay 30 çekse de 31. güne de 8 atıyor seçtiğim aya göre hafta içi 8 yap dediğim de 30 çekiyorsa o ay 31. güne 8 yazmamasını nasıl sağlayabilirim??

 

[Korhan Ayhan]

#12 nolu mesajımda ki dosyayı yeniden revize ettim. Tekrar deneyiniz.

 

[ahmettaskin]

Mrb lar
bir excel dosyasında farklı çalışma sayfalarındaki kişileri başka bir çalışma sayfasında tek sutunda birleştirmek istiyorum.
ekteki örnek dosyada "kıdem1 - 2 ,,, 7" çalışma sayfalarındaki kişilerin isimlerini "nöbet listesi" isimli çalışma sayfasında
nöbet tutacak kişiler sutununda bir araya getirmek istiyorum. ve kıdem1,2,,,,7 isimli sayfalarda listelere isim eklenip çıkarıldığında toplu isim sutunun güncellenmesi lazım .

bu konuda makro kodu için yardımcı olabilir misiniz

 

[ahmettaskin]

BU KODU KENDİ TASLAĞIMA UYGULAMAYA ÇALIŞTIM ANCAK BİR TÜRLÜ YAPAMADIM

YARDIMCI OLABİLİR MİSİNİZ
KODU BENİM TASLAĞIMA UYARLAYABİLİR MİSNİZ

* AYRICA KODA ŞUNU EKLEYEBİLİR MİYİZ BİR KİŞİ İÇİN ARDA ARDA İKİ GÜNE NÖBET YAZILMASIN



KOD

Sub nobetlistesi()
Randomize
say = WorksheetFunction.CountA([b:b])
son = [d65536].End(3).Row
Range("e3:j33").ClearContents
ekle = 1
20 encok = WorksheetFunction.Max([c:c])
For a = 1 To [b65536].End(3).Row
10 sira = Int(say * Rnd + 1)
isim = Cells(sira, "b")
deg = Cells(sira, "c")
satir = Range("e3:j" & son)(hucresay + ekle).Row
say1 = WorksheetFunction.CountIf(Range("e" & satir & ":j" & satir), isim)
If deg > encok Or say1 > 0 Then GoTo 10
hucresay = hucresay + 1
Range("e3:j" & son)(hucresay) = isim
If Range("e3:j" & son).Count = hucresay Then Exit Sub
Next
GoTo 20
End Sub