Rezervasyon takip

[himmet]

https://s2.dosya.tc/server30/pebo05/VILLA_TAKIP-2.xlsm.html

tarihleri boya dediğim zaman aşağıya doğru boyama yapıyor.
ben yan yana boyama nasıl yapabilirim?

 

[Biolightant]

Merhaba,

'Set sstn = Range(Cells(2, stn), Cells(38, stn))

Yerine Aşağıda ki kodları yazarsanız sanırım istediğiniz olur.

Select Case ay
Case 5: Set sstn = Range("J1:P7")
Case 6: Set sstn = Range("R1:X7")
Case 7: Set sstn = Range("J8:P14")
Case 8: Set sstn = Range("R8:X14")
Case 9: Set sstn = Range("J15:P21")
Case 10: Set sstn = Range("R15:X21")
Case 11: Set sstn = Range("J23:P29")
Case 12: Set sstn = Range("R23:X29")
End Select

 

[Necdet]

Merhaba,
Tarihleri Otomatik hale getirdim.
Her yıl tekrar düzenlemek zorunda kalmayacaksınız.

Dosyayı İNDİR

 

[Biolightant]

@Necdet ellerinize sağlık Tertemiz olmuş.
AA1 de ayrı bir incelik olmuş bu sayede 7975 yıl sonrasına ışınlandık

 

[Necdet]

@Necdet ellerinize sağlık Tertemiz olmuş.
AA1 de ayrı bir incelik olmuş bu sayede 7975 yıl sonrasına ışınlandık

deneme yapmak için formülü de bozmayım diye AA1'i tarih ekleme çıkırama yapmak için kullandım
Siz I2 hücresindeki formülden AA1' siliniz