Son dolu kolonu bulma

[mathematiqcii]

Merhaba Arkadaşlar
Bir sırtlık çalışması yapıyorum .
Aynı sayfada Kalın ve ince dosya sırtlıkları oluşturmak istiyorum
Seçenk kutusunda ince işaretli iken boş olan sütunu bulup işlem yaptırabildim
Ancak kalın için yapamadım aynı işlemi
Yardımcı olursanız sevinirim
Dosya ekte ve kodlar module 1 de
Teşekkürler

 

[Ömer]

Merhaba,

Deneyiniz.

SonKolon = Application.Max(17, Cells(14, "X").End(xlToLeft).Column)

 

[mathematiqcii]

teşekkür ederim