VBA Kodunda Aktif Hücrenin Sütunun Seç

[baydeniro]

Merhaba arkadaşlar,

VBA kodunda aktif hücrenin bulunduğu sütunun tamamını seçme olayını nasıl yazılacağı konusunda yardıma ihtiyacım var. Bir işle yaptıracağım. Cursör o anda hangi sütunda ise o sütunu komple seçmesini istiyorum.

Columns("J:J").Select
Selection.ColumnWidth = 1

"J:J" yerine cursörün bulunduğu sütunu (aktif sütunu) nasıl yazmak lazım acaba !

 

[halit3]

Bu kodu bir deneyin

Columns([COLOR="Red"]ActiveWindow.RangeSelection.Column[/COLOR]).ColumnWidth = 1

 

[Korhan Ayhan]

Alternatif;

Sub TEST()
    ActiveCell.ColumnWidth = 1
End Sub

Seçmek için;

Sub TEST()
    ActiveCell.EntireColumn.Select
End Sub

 

[baydeniro]

Müthişsin halit3 üstadım. çok teşekkür ediyorum. Bir koda daha ihtiyacım var :

Cursoün bulunduğu hücreden bir SAĞ hücreye ilerlemesi için kod konusunda yardımcı olabilir misiniz !

 

[halit3]

Müthişsin halit3 üstadım. çok teşekkür ediyorum. Bir koda daha ihtiyacım var :

Cursoün bulunduğu hücreden bir SAĞ hücreye ilerlemesi için kod konusunda yardımcı olabilir misiniz !

Cursoün bu ne demek ben tam olarak anlamdım

Aktif hücrenin hemen yanındaki sağ hücreyemi gitmek istiyorsunuz
eğer öyleyse negibi bir işlem yaptıktan sonra sağdaki hücreye gitmek istiyorsunuz.

 

[halit3]

Böyle birşeymi istiyorsunuz.

Sub deneme()
sut = ActiveWindow.RangeSelection.Column
sat = ActiveWindow.RangeSelection.Row
Columns(sut).ColumnWidth = 1
Cells(sat, sut + 1).Select

End Sub

 

[baydeniro]

çok teşekkürler halit3 üstadım. tam da budur. sağlıcakla kalın.

 

[baydeniro]

Sayın Korhan Ayhan üstadım, çok teşekkürler. çok şık alternatifler. harika oldu. sağlıcakla kalın.

 

[baydeniro]

halit3 üstadım aşağıdaki kod gayet güzel çalışıyor. Sadece şöyle bir durum var. Kod 1 hücre sağa gidiyor. ama birleştirilmiş bir hücreye girerse oradan çıkamıyor. gerçi çok önemli değil ama acaba bir yolu var mıdır diye bilginize danışmak istedim.

Sub deneme()
sut = ActiveWindow.RangeSelection.Column
sat = ActiveWindow.RangeSelection.Row
Cells(sat, sut + 1).Select

End Sub

 

[Orion1]

Bir alternatifte benden.

ActiveCell.Offset(0, 1).Select

 

[baydeniro]

Orion1 üstadım, çok teşekkür ederim. Harika oldu. Sağlıcakla kalın.

 

[Orion1]

Orion1 üstadım, çok teşekkür ederim. Harika oldu. Sağlıcakla kalın.

Rica ederim.
İyi çalışmalar.