Hücre Adresi Yerine Aktif Hücre Yazılması

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kod satırına A13 yerine aktifhücre "ActiveCell" monte edilebilir mi ?

s1.[A13].Resize(say, 4) = b

 

[Orion1]

Deneyiniz.

s1.ActiveCell.Resize(say, 4) = b

 

[baydeniro]

Üstad Orion1 ilginize çok teşekkür ediyorum. Lakin kod çalışınca bu satırda hata veriyor !
s1.ActiveCell.Resize(say, 4) = b

 

[Orion1]

Bu olur.

s1.Range(ActiveCell.Address).Resize(say, 4) = b

 

[baydeniro]

çok teşekkürler üstadım, bu çalıştı, müthiş oldu. Sağlıcakla kalın

 

[Orion1]

Rica ederim.
İyi çalışmalar.