1 günlük tarih artışını sağlamak

[mlakdag]

Ã?ncelikle tüm forum üyelerinin iyi bir gün geçirmelerini diliyorum.

Nihai amacım, cuma günkü bilgilerin cumartesi ve pazar günkü tarihlerle aynen yazdırılması;


.
.
cuma = ActiveCell.Value
For gun = 1 To 26
cmrts = cuma + 1
ActiveCell.Offset(-gun, 0).Value = cmrts
Next gun
.
.

ancak yukarıda mavi gösterilen satırda "Type Mismatch" hatası veriyor.
Satırı "cmrts = ActiveCell.Value + 1" olarak değiştirdiğimde de aynı hatayı almaya devam ediyorum.

Acaba ilgili hatadan nasıl kurtulabilirim ?

Saygılarımla.

 

[ALPEN]

cuma = ActiveCell.Value satırındaki
ActiveCell.Value değeri ne içeriyor?

 

[mlakdag]

Sayın ALPEN,

Bu hücre tarih değeri içeriyor. Benim örneğimde ActiveCell.Value değeri ise "28/01/2005".

 

[danersin]

Bu şekilde denermisiniz..
1-sizin kodunuzda cmrts hep aynı güne eşit olur.
2- offset'te hata olabilir, yukarıda yeterince boş hücre varmı

Sub dene()
cuma = ActiveCell.Value
For gun = 1 To 26
cuma = cuma + 1
ActiveCell.Offset(gun, 0).Value = cuma
Next gun

End Sub

 

[mlakdag]

Sayın DANERSİN,

Kodu denedim maalesef aynı hatayı verdi. Offset'e zaten daha gelemeden hata verdiği için Offset'e ilişkin olası bir hata henüz ortaya çıkmadı.

 

[danersin]

ActiveCell.Value değeri ise "28/01/2005"

activecell'in hücre formatını gg.aaa.yy (3 Þubat 05) yaparmısınız. Bunu yapamıyorsa aktif hücrenizi text olarak algılıyor ve toplama yapamıyordur.

 

[mlakdag]

Sayın DANERSİN,

Haklısınız.