son sütuna giden makroyu düğmeye atama..

[EKREM1661]

sayın forum üyeleri..
(ve tüm arkadaşlara selamlar)

Bulunduğum hücreden yatay olarak (sağa doğru) verisiz son sütun hücresine gitme konusunda; forumdan aşağıdaki makroları buldum..

son = WorksheetFunction.CountA(Sheets("Veri").Columns(ActiveCell.Column)) + 1

veya

dolusutun = Cells(1, 256).End(xlToLeft).Column

Fakat, bu makroyu bir düğmeye atayamadım. yani excel sayfasında iken düğmeye tıklayınca, bulunduğum hücreden en son verisiz sütuna gitsin. örneğin, A4 ile AA4 arasına kadar veriler girilmiş ise, beni AB4 hücresine ulaştırması lazım.

yardımlarınız için şimdiden teşekkürler..

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

cells(4,256).end(xltoleft).next.select

 

[EKREM1661]

sayın leventm..harikasınız,
eline sağlık sorunum çözüldü..

 

[Muhammet Okumuş]

Merhaba arkadaşlar.
Sub a()
Cells([a25].End(3).Row + 1, 35) = "A"
End Sub

üstteki kod alt altta A harfi üretiyor.
1. satıra yan yana A yazan kod nasıl olur ?

 

[Ömer]

Merhaba,

Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = "A"

İstediğiniz bu mu?

.

 

[Muhammet Okumuş]

Sn Ömer Bey çok teşekkür ederim. Peki son sütundan başlayarak her bastığımda son sütundaki değeri silen koda nasıl olur?

 

[Ömer]

Bu şekilde deneyiniz.

Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column).ClearContents

.

 

[Muhammet Okumuş]

Sn Ömer Bey çok teşekkür ederim.