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

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
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..
 
Katılım
31 Ocak 2007
Mesajlar
228
Excel Vers. ve Dili
office xp tr
Sub test()
Range("a1").Select
ActiveCell.SpecialCells(xlLastCell).Offset(1, 0).Select
End Sub
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,315
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
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
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,315
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
If ActiveCell.Column = 26 Then GoTo Devam
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Teşekkür ederim Sn. COST_CONTROL
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,315
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Sn. kombo,

Tam olarak ne yapmak istediğinizi belirtirseniz doğru kodlamayı önerebiliriz.
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
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.:oops:
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,315
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column = 26 And ActiveCell = 5 Then [A1].Select
End Sub
 
Katılım
17 Şubat 2006
Mesajlar
981
Excel Vers. ve Dili
M.Office Excel 2003 Tr.
Sn COST_CONTROL

İlginize teşekkür ederim. Şimdi oldu.
 
Katılım
22 Mayıs 2007
Mesajlar
178
Excel Vers. ve Dili
2016 English
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.
 
Katılım
18 Mart 2012
Mesajlar
440
Excel Vers. ve Dili
2013
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_

Destek Ekibi
Destek Ekibi
Katılım
14 Mayıs 2011
Mesajlar
2,185
Excel Vers. ve Dili
Excel 2003 Türkçe
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
 
Katılım
18 Mart 2012
Mesajlar
440
Excel Vers. ve Dili
2013
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)
 
Katılım
12 Nisan 2010
Mesajlar
17
Excel Vers. ve Dili
Office 2007 Türkçe
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.
 
Üst