Nöbet Çizelgesine Göre Ek Dersi Otomatik Hesaplama

[sserhat]

Merhaba,

Okulumuzun kat nöbetine göre hangi gün nöbet tutulmuşsa ilgili sayfada o günün tarihi için o kişiye direkt 2 yazmasını istiyorum. Yardımcı olabilir misiniz?

http://www.dosyaupload.com/Ata

 

[Ömer BARAN]

Merhaba.

güncel nöbet sayfasındaki tüm isimlerin, tüm haftalar için, formül kullanmadan elle yazılacağı varsayımıyla;
alt taraftan "güncel nöbet" sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin.
Açılan VBA ekranında, sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C9:G13, C16:G20, C23:G27, C30:G34, C37:G41]) Is Nothing Then Exit Sub
On Error GoTo 10
satır = WorksheetFunction.Match(Target.Value, Sheets("Nöbet").Range("B:B"), 0)
sütun = Day(Cells(WorksheetFunction.CountIf(Range("A1:A" & Target.Row), "TARİH") * 7 + 1, Target.Column)) + 2
Sheets("Nöbet").Cells(satır, sütun) = 2
10
End Sub[/FONT]

 

[sserhat]

İlginiz için teşekkür ederim Ömer Bey, kod dediğiniz gibi tüm haftalara elle yazınca gayet iyi çalışıyor. Ben ilk haftanın nöbetini elle yazıp diğerlerini formülle yazmak istersem yine kodu mu değiştirmem gerekecek yoksa onun için makro yazmak mı gerekiyor?

 

[Ömer BARAN]

Merhaba.

Belge ekte.
.

 

[sserhat]

Eyvalllah ustam, eline emeğine sağlık...Kolay gelsin İyi çalışmalar

 

[Ömer BARAN]

Eyvalllah ustam, eline emeğine sağlık...Kolay gelsin İyi çalışmalar

Estağfurullah "tecrübeli" sıfatını tercih ederim.
İhtiyaç görüldüyse mesele yok, iyi çalışmalar dilerim.
Erzurum'a selam olsun.
.

 

[sserhat]

Teşekkürler, aleykümselam...