En Son satırı seç

Katılım
22 Mart 2005
Mesajlar
307
Arkadaşlar Merhaba:

a1:H kolonları arasında bilgiler mevcut H kolonunda sayı belirtmedim çünkü belli olmuyor değişebiliyor. A:H arasındaki en son satırı nasıl seçebilirim.
 
T

TRABLUS

Misafir
Makro istemişsin ama belki işine yarar, ctrl + end tuşları seni H sütununun en son satırına götürür. :?
 
Katılım
22 Mart 2005
Mesajlar
307
Teşekkür ederim de bunu makro kodları içinde kullanmayı düşünüyorum.
Aşağıdaki kodlar ile en son hücreyi seçebiliyorum fakat satırı seçmem lazım. A:H sütununda bilgiler standart fakat bazen en sün bilgi B sütunundada H sütünunda da bitebiliyor en son nerde bittiyse o satır seçili olmalı..

Sub ensonhucreyisec()
Dim sonsatir, sonsutun As Integer
sonsatir = ActiveSheet.UsedRange.Row - 1 + _
ActiveSheet.UsedRange.Rows.Count
sonsutun = ActiveSheet.UsedRange.Column - 1 + _
ActiveSheet.UsedRange.Columns.Count
Cells(sonsatir, sonsutun).Select
End Sub
 
Katılım
22 Mart 2005
Mesajlar
307
Teşekkür ederim Faruksir ama ben en son hücreyi değil satırı seçmeliyim.

Yani sol tarafta 1,2,3 satırları varya o satır komple seçili olmalı
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
rows(sonsatir).select
 
Katılım
24 Ağustos 2005
Mesajlar
34
ben böyle bi durumda "makro kaydedi" açıyorum ne yapmam gerekiyosa excel de kendim yapıyorum. makro kaydedi durdurup, düzenleye griyorum ve bütün VB kodlarını alıyorum, sen de tam olarak ne yapmak istiyosan bu yöntemi deneyebilirsin. kolay gelsin
 
Katılım
22 Mart 2005
Mesajlar
307
Sayın Raider;

aradığım bu rows işlemi ama bunu kod içinde nasıl kullanabilirim.

(sonsatir'a) ne demeliyim?

rows(sonsatir).select
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Kod:
Dim NoH As Long
NoH = Range("H65536").Cells.End(xlUp).Row
Rows(NoH).Select
 
Katılım
22 Mart 2005
Mesajlar
307
Sayın Raider;

Dim NoH As Long
NoH = Range("H65536").Cells.End(xlUp).Row
Rows(NoH).Select

kodlar ile işlem yapabiliyorum yanlız bu kod H sütununu baz alıyor.
Benim en son bilgi bitişi a,b,c, ----h herhangi birinde olabilir o açından en son hangi hücrede görüyorsa o satırı komple seçmeli..
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Sadece bunu kullanın o zaman;

Rows(ActiveSheet.UsedRange.Rows.Count).Select

Not:
balca' Alıntı:
Arkadaşlar Merhaba:

a1:H kolonları arasında bilgiler mevcut H kolonunda sayı belirtmedim çünkü belli olmuyor değişebiliyor. A:H arasındaki en son satırı nasıl seçebilirim.
Burada A:H aralığından bahsetmiştiniz....
 
Katılım
22 Mart 2005
Mesajlar
307
Sayın Raider;

Ne diyeyim şu mübarek günde ALLAH SİZDEN RAZI OLSUN!!!!

Aradığım buydu...
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
Rica ederim, o kadar abartılacak kadar bir şey değildi.

Allah sizden de razı olsun.
 
Üst