Ã?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.
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.