Güncel olmayan bir tarayıcı kullanıyorsunuz. Bunu veya diğer web sitelerini doğru şekilde göstermeyebilir. Yükseltmeli veya bir alternatif kullanmalısınız. tarayıcı.
Merhaba deneyiniz.
Sub Ayıngünleri()
Dim month As Integer
Dim year As Integer
Dim days As Integer
Dim rng As Range
month = Range("AL6").Value
year = Range("AM6").Value
days = DateSerial(year, month + 1, 0)
Set rng = Range("D4").Resize(days, 1)...