Merhaba Arkadaslar,
Leventm hocam asagidaki kodu örnek olarak yazmisti. Bu örnek cok isime yaradi ve cok kullanisli. Örnekte vardiyelerin kisaltmasi satirlara otomatik olarak yaziliyor. Ben bunu sütunlar icin de uygulamak istedim. Biraz oldu ama tam degil.
Arkadaslar iki sorum olacak:
1.) Asagida bir dosya gönderiyorum. Dosyada iki sayfa var. 1. sayfada Koda otomatik olarak (Ocak 2006 - Haziran 2006( ya kadar yazdirtabildim. Aylarin tamami sutunlara sigmadigi icin. geriye kalan aylarida (Temmuz 2006 - Aralik 2006) yi (G10:GC14) e yazdim. Ama kodlara vardiyaleri otamatik olarak (G10:GC14) e yazdirtamadim.
2.) 2. Sayfada Her aya vardiye kisaltmalarini otomatik olarak yazdirtmak istedim. Ama saadece Ocak ayina yazdirtabildim.
Diger aylarada yazdirtabilmem icin Kodu nasil devam ettirmem lazim?
Sub liste()
On Error Resume Next
Application.ScreenUpdating = False
Set s1 = Sheets("Urlaubsplan")
dega = Array("N", "", "", "F", "F", "S", "S", "N", "N")
degb = Array("S", "N", "N", "", "", "F", "F", "S", "S")
degc = Array("F", "S", "S", "N", "N", "", "", "F", "F")
degd = Array("", "F", "F", "S", "S", "N", "N", "", "")
For a = 4 To 400
fark = (s1.Cells(a, "c") - DateSerial(2006, 1, 1)) / 8
s1.Range(Cells(a, "d"), s1.Cells(a, "g")) = dega((fark - Int(fark)) * 8)
s1.Range(Cells(a, "h"), s1.Cells(a, 12)) = degb((fark - Int(fark)) * 8)
s1.Range(Cells(a, "l"), s1.Cells(a, "o")) = degc((fark - Int(fark)) * 8)
s1.Range(Cells(a, "p"), s1.Cells(a, "s")) = degd((fark - Int(fark)) * 8)
Next
'Application.ScreenUpdating = True
End Sub
Saygilarimla
kaleci
Leventm hocam asagidaki kodu örnek olarak yazmisti. Bu örnek cok isime yaradi ve cok kullanisli. Örnekte vardiyelerin kisaltmasi satirlara otomatik olarak yaziliyor. Ben bunu sütunlar icin de uygulamak istedim. Biraz oldu ama tam degil.
Arkadaslar iki sorum olacak:
1.) Asagida bir dosya gönderiyorum. Dosyada iki sayfa var. 1. sayfada Koda otomatik olarak (Ocak 2006 - Haziran 2006( ya kadar yazdirtabildim. Aylarin tamami sutunlara sigmadigi icin. geriye kalan aylarida (Temmuz 2006 - Aralik 2006) yi (G10:GC14) e yazdim. Ama kodlara vardiyaleri otamatik olarak (G10:GC14) e yazdirtamadim.
2.) 2. Sayfada Her aya vardiye kisaltmalarini otomatik olarak yazdirtmak istedim. Ama saadece Ocak ayina yazdirtabildim.
Diger aylarada yazdirtabilmem icin Kodu nasil devam ettirmem lazim?
Sub liste()
On Error Resume Next
Application.ScreenUpdating = False
Set s1 = Sheets("Urlaubsplan")
dega = Array("N", "", "", "F", "F", "S", "S", "N", "N")
degb = Array("S", "N", "N", "", "", "F", "F", "S", "S")
degc = Array("F", "S", "S", "N", "N", "", "", "F", "F")
degd = Array("", "F", "F", "S", "S", "N", "N", "", "")
For a = 4 To 400
fark = (s1.Cells(a, "c") - DateSerial(2006, 1, 1)) / 8
s1.Range(Cells(a, "d"), s1.Cells(a, "g")) = dega((fark - Int(fark)) * 8)
s1.Range(Cells(a, "h"), s1.Cells(a, 12)) = degb((fark - Int(fark)) * 8)
s1.Range(Cells(a, "l"), s1.Cells(a, "o")) = degc((fark - Int(fark)) * 8)
s1.Range(Cells(a, "p"), s1.Cells(a, "s")) = degd((fark - Int(fark)) * 8)
Next
'Application.ScreenUpdating = True
End Sub
Saygilarimla
kaleci