Aktif Sütun'un verisiz son alt satırına gitmek..

[EKREM1661]

saygıdeğer arkadaşlar..selamlar..!

Aktif hücrede iken (seçili hücre), o hücrenin bulunduğu sütunun sonuna (ilk boş bücreye) gitmek..

Sayın Cost_Control'dan aldığım aşağıdaki kodu;

Sub SON_HÜCRE()
Cells(65536, ActiveCell.Column).End(3).Offset(1, 0).Select
End Sub

aşağıda izah ettiğim şekilde uyarlamak istedim, fakat sağlıklı olmadı..

son hücreye gitmek derken diğer sütunlara da bakacak, yani hücrenin ait olduğu sütunda boş hücreler olsa bile, diğer sütunların en fazla hangisinde dolu hücre varsa, hizasından itibaren bir alt hücreye gitmesi lazım..

 

[ileriexcel]

Sub test()
Range("a1").Select
ActiveCell.SpecialCells(xlLastCell).Offset(1, 0).Select
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub SON_HÜCREYİ_SEÇ()
    Son_Hücre = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row
    Aktif_Sütun = ActiveCell.Column
    Cells(Son_Hücre, Aktif_Sütun).Select
End Sub

 

[kombo]

Bu konu ile ilgili bir soruda benim olacak. (Daha doğrusu benzer)
"Eğer aktif hücre Z kolonunda ise başka bir komutu çalıştırsın."
şeklinin makro lisanında yazılımı nasıldır?
Yani aktif hücre Z kolonunda ise diğer IF lı satıra geçsin değilse işlem yapmasın.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz. Kodda kullanılan 26 değeri Z sütununu ifade etmektedir.

If ActiveCell.Column = 26 Then GoTo Devam

 

[kombo]

Teşekkür ederim Sn. COST_CONTROL

 

[kombo]

Kod mantığını fazla bilmediğim için:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 26 Then GoTo devam:
devam:
If ActiveCell.Value = 5 Then
Range("a1").Select
End If
End Sub

Bu yazılım doğru mu?

 

[Korhan Ayhan]

Selamlar,

Sn. kombo,

Tam olarak ne yapmak istediğinizi belirtirseniz doğru kodlamayı önerebiliriz.

 

[kombo]

Kodlardan da nisbeten anlaşılacağı gibi, Z sütununda aktif hücre 5 ise aynı sayfanın A1 hücresine gitmek istiyorum. Fare ile veya klavye ile Z sütununda gezerken 5 değerine tıklayınca A1 hücresine gitsin. Sayfa içinde Köprü yapmak gibi. Kod bu haliyle çalışıyor ama mantık doğrumu bilmiyorum. GOTO devam mantığı ile Bana sanki her iki IF değerini görüyor gibi geldi.

Çalışıyor dedim ama çalışmıyormu kodu yanlış sayfaya yazmışım.

 

[Korhan Ayhan]

Selamlar,

Kodu aşağıdaki gibi kısaltarak kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column = 26 And ActiveCell = 5 Then [A1].Select
End Sub

 

[kombo]

Sn COST_CONTROL

İlginize teşekkür ederim. Şimdi oldu.

 

[waytooraider]

Sub SON_HÜCREYİ_SEÇ()
Son_Hücre = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row
Aktif_Sütun = ActiveCell.Column
Cells(Son_Hücre, Aktif_Sütun).Select
End Sub

Formülü yapıştırmak için boş olan son hücreye kadar seçim yapabilir mi?

Saygılarımla.

 

[turanb]

Merhaba Korhan bey

B sütunundaki dolu hücrelerin en sonundaki boş hücreye geçmek için makro lazım.

yardımcı olabilir misiniz.

Tşk

 

[ZorBey_]

Merhaba İyi Çalışmalar
Sayın turanb

Sayfanın Kod Bölümüne
Bir Butona Atayın


Sub Hücre()
Range("B65536").End(xlUp).Offset(0, 0).Select
SendKeys "{DOWN}", True
End Sub

 

[turanb]

Çok Teşekkür ederim Sayın asr35

İşime yaradı.

 

[ZorBey_]

Sayın
turanb
Bu Dosya Daha Kullanışlı
Dosyayı İncelermisiniz.

 

[turanb]

Sayın asr35 teşekkür ederim.

başa dönmeyi aynen yapmıştım o kolaydı. Ama sütundaki dolu hücrelerin sonuna gitmeyi yapamadım. Sizin gönderdiğinizi uyguladım oldu.

Son eklediğiniz örnek sayfa da benim yaptığımızın hemen hemen aynısı.


Bu kod olayını çok öğrenmek istiyorum. Vatan bilgisayarda tesadüfen bir kitap buldum.Cenk İltir yazmış Pusula yayınları sanırım.
Kitap başlangıçta anlaşılır gibi geldi fakat ilerledikçe (100.sayfadayım) karmaşıklaşmaya başladı. Sanki vba yı bilen birine anlatılmış gibi.

Bildiğiniz veya tavsiye edebileceğiniz göresel eğitim cd si veya kitabı varmıdır. (bilmeyen birine anlatılan)

 

[kan_kirmizi]

Konuyu tekrar hortlatıyorum arkadaşlar. Aynı kodlar banada lazım. Ancak sayfa1 de a1'den atıyorum a10'a kadar yada alt satılarda değer girilen bir tablom var. Bu tabloyu doldurduğumda kaydet diye bir buton koyup yukarıda yazılan kodları butona nasıl bağlayabilirim. Örneğin sayfa1'de kaynak hücre a1, hedef hücre sayfa 2'de a1 ancak sayfa1 de a3'e kaynak, sayfa 2'de b1 hedef gibi.