Activecell.Offset İle Hücrelere Yazdırma

[ahmed_ummu]

Merhaba arkadaşlar

Aşağıdaki kodda kırmızı ile renklendirilmiş olan kodlar işlevini yapıyor. Aktif hücrenin 2+1,0 hücresine (+1) başka bir yerden değer alıyor. yazılması gereken değeri yazıyor ama aktif hücrenin 2+1,1 yani bir sağına yazması gereken değeri yazmıyor. Yani yan yana iki hücreye yazılması gereken değeri yazması gerekiyor sağ taraftaki hücreye yazmıyor. Nerede nasıl bir yanlış var yardımcı olabilir misiniz.

If OptionButton6.Value = True Then
ActiveCell.Offset(2 + 1, 0).Value = "İzinli"
ActiveCell.Offset(2 + 1, 1).Value = "İzinli"
End If

If OptionButton5.Value = True Then
ActiveCell.Offset(2 + 1, 0).Value = "Raporlu"
ActiveCell.Offset(2 + 1, 1).Value = "Raporlu"
End If

If OptionButton3.Value = True Then
ActiveCell.Offset(2 + 1, 0).Value = "Raporlu"
ActiveCell.Offset(2 + 1, 1).Value = "İş Kazası"
End If

If OptionButton4.Value = True Then
ActiveCell.Offset(2 + 1, 0).Value = "Devamsız"
ActiveCell.Offset(2 + 1, 1).Value = "Devamsız"
End If

 

[AdemCan]

Merhaba, dosya paylaşır mısınız?

 

[ahmed_ummu]

Merhaba, dosya paylaşır mısınız?

İlginize tşekkürler sayın AdemCan

Sorun çözüldü. Aktif hücre birleştirilmiş hücre idi onu dikkate almamışım.