EXCEL VBA İLE DİNAMİK NÖBET ÇİZELGESİ

[Bünyamin Bulut]

MERHABA
EXCEL VBA İLE DİNAMİK NÖBET ÇİZELGESİ HAZIRLAMA İSTİYORUM.

SAYFA1 A SÜTUNUNDA NÖBET TUTACAK PERSONEL İSİMLERİ VE SAYFA1 D1 HÜCRESİNDE İLK NÖETÇİ
SAYFA2 A SÜTUNU SIRA NO, B SÜTUNU TARİH VE C SÜTUNU NÖBETÇİ PERSONEL

SIRA NO İLE TARİHİ ÇÖZDÜM AMA PERSONELİ SIRASI İLE YAZDIRAMIYORUM.
ŞİMDİDEN TEŞEKKÜR EDERİM

 

[Bünyamin Bulut]

MERHABA
EXCEL VBA İLE DİNAMİK NÖBET ÇİZELGESİ HAZIRLAMA İSTİYORUM.

SAYFA1 A SÜTUNUNDA NÖBET TUTACAK PERSONEL İSİMLERİ VE SAYFA1 D1 HÜCRESİNDE İLK NÖETÇİ
SAYFA2 A SÜTUNU SIRA NO, B SÜTUNU TARİH VE C SÜTUNU NÖBETÇİ PERSONEL

SIRA NO İLE TARİHİ ÇÖZDÜM AMA PERSONELİ SIRASI İLE YAZDIRAMIYORUM.
ŞİMDİDEN TEŞEKKÜR EDERİM

TARİH OLAYINI BU ŞEKİLDE ÇÖZDÜM

Sub nb1_tarih()
If Range("r2") = "" Or Range("s2") = "" Then Exit Sub
Range("a2:c65536").ClearContents
Ay = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
Ay = WorksheetFunction.match(Range("r2"), Ay, 0)
Yıl = Range("S2")
Tarih = CDate("01." & Ay & "." & [Yıl])
Gün = DateSerial(Year(Tarih), Month(Tarih) + 1, 0)
For x = 2 To Format(Gün, "dd") + 1
Cells(3 + x, 2) = Format(CDate(x - 1 & "." & Ay & "." & [Yıl]), "dd.mm.yyyy dddd")
Next
End Sub

 

[Bünyamin Bulut]

SIRA NUMARASINI BU ŞEKİLDE ÇÖZDÜM


Sub sayi()
Ay = Array("OCAK", "ŞUBAT", "MART", "NİSAN", "MAYIS", "HAZİRAN", "TEMMUZ", "AĞUSTOS", "EYLÜL", "EKİM", "KASIM", "ARALIK")
Ay = WorksheetFunction.match(Range("R2"), Ay, 0)
songun = Day(DateSerial(Range("S2"), Ay + 1, 0))
For i = 1 To songun
If Range("b" & (4 + i)) <> "" Then
Range("a" & (4 + i)) = i
Else
Range("a" & (4 + i)) = ""
End If
Next
End Sub

 

[Bünyamin Bulut]

PERSONEL NÖBET İŞİNİ ÇÖZEMEDİM YARDIMCI OLABİLECEK MİSİNİZ?

 

[Korhan Ayhan]

Büyük harfle yazma kuralını hatırlatmak isterim.

 

[Bünyamin Bulut]

Büyük harfle yazma kuralını hatırlatmak isterim.

Daha yeniyim kusura bakmayın bundan sonra küçük yazarım

 

[Bünyamin Bulut]

PERSONEL NÖBET İŞİNİ ÇÖZEMEDİM YARDIMCI OLABİLECEK MİSİNİZ?