veri girilen en son hücrenin bir sağına makro ile nasıl gidilir...

[sedatkar]

Merhaba,
Yardımınız içimn şimdiden teşekkürler.

Bir tabloda belilenen bir aralığa herhangi bir veri girişi olduğunda sıralama makrosunu çalıştıran bir makrom var.(sıralama yapılacak verileri tablonun dışında alt kısma bağ yapıştırdım, makro ile sıralama yaptırabiliyorum.) Bu çalışıyor fakat sıralama makrosu çalışınca sıralamayı yapıp belirtilen hücre hangisiyse o hücrede duruyor. Sıkıntım şu ki bu sıralama makrosundan sonra kursörün tabloda veri girdiğim son hücrenin bir sağına gitmesini istiyorum, fakat veri girilen son hücreye nasıl gidileceği kodunu bilmiyorum. araştırdım ama bulamadım.

Yardımcı olursanız çok sevinirim..
Teşekkürler..

 

[Levent Menteşoğlu]

Hangi sütundaki en son hücreyi bulmak istiyorsunuz. Örneğin bu sütununuz B sütunu ise aşağıdaki kod son hicrenin bir yanındakine gider.

[b65536].end(3).next.select

 

[Necdet]

Merhaba,

Alternatif

Sub Makro1()
Selection.SpecialCells(xlCellTypeLastCell).Offset(0, 1).Select
End Sub

 

[sedatkar]

mesela a1:g30 arası bir tablom var. bu tablo içinde herhangi bir hücreye veri girişi yaptığım zaman çalışan bir makro var (tablodan alınan bazı verileri sıralayan bir makro) bu makrodan sonra öyle bir kod yazmalıyımki veri girişi yapılan son hücrenin bir sağıdaki hücreyi seçsin...

teşekkürler...

 

[Necdet]

Merhaba,

Sanırım aşağıdaki kod işinizi görür, dener misiniz? Kırmızı ile belirtilen sub ı siz kendinize göre ayarlayınız.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:G30]) Is Nothing Then Exit Sub
[B][COLOR=red]Sırala
[/COLOR][/B]Target.Next.Select
End Sub

 

[Erdem Akdemir]

ustalar kolay gelsin

sizlere target işlevi ile ilgili soru sormak istiyorum

tam olarak ne işe yaradığını anlamadım, alan adı yada hedef belirtmeye mi yarıyor

işlevini biraz anlatabilirmisiniz

 

[Necdet]

Merhaba,

Bende bilmeden kullandığım bu fonksiyonu sonradan şu şekilde anladım :

Sizin belirttiğiniz alanda bulunduğunuz hücre yani hedef demek. Yukarıdaki örnekte A1:G30 arasında değişiklik olan hücre target tır.

Belki daha bilimsel açıklamada bulunacak bir arkadaşım çıkabilir.

 

[sedatkar]

Necdet Bey çok teşekkürler...
Kod işimi gördü, sorunsuz çalışıyor, beni büyük bir yükten kurtardınız.. tekrar çok teşekkürler..
Allah razı olsun...

Kolay gelsin

 

[sedatkar]

yardımcı olmaya çalışan tüm arkadaşlara teşekkürler...
Her işi bir bilene sormak lazım,

Kolay gelsin...

 

[MCAPOWER]

Ardaşlar selam,

Benim de sütun seçimleriyle ilgili 2 sorum olacak.
1) Bir tabloda başlıklar var fakat 1.başlık G sütununda, 2. Başlık M sütununda;
1.başlıktan 2.başlığa kadar seçim yaptırabilecek bir makroya ihtiyacım var.
Detay verecek olursam;
1.başlıktan(G'den), 2.başlığa kadar (M sütununundan bir önceki sütunu seçmesini istiyorum) H, I, J, K ve L sütunlarını seçmeli.

2)ActiveCell.Address komutu bulunulan hücrenin adresini $G$1 gibi gösteriyor, bunun sadece column'unu gösterecek (G, 7.columnda olduğu için 7) , Row 1. row'da olduğu için, 1 göstermesini sağlayabilecek bir komut var mı?
(column için ayrı, row için ayrı)

Syg,

Merhaba,

Sanırım aşağıdaki kod işinizi görür, dener misiniz? Kırmızı ile belirtilen sub ı siz kendinize göre ayarlayınız.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:G30]) Is Nothing Then Exit Sub
[B][COLOR=red]Sırala
[/COLOR][/B]Target.Next.Select
End Sub

 

[Necdet]

Merhaba,

1. sorunuz pek açık değil, belki örnek dosya eklerseniz daha iyi anlaşılabilir.

2. sorunuzda :

ActiveCell.Row --> o anki hücrenin satır numarasını
ActiveCell.Column --> o anki hücrenin sütun numarasını verir.