en son dolu hücreyi seçtirmek

[olymposss]

arkadaşlar iyi günler

a1:a65536 arasındaki hücrelere yukarıdan aşağıya sıra ile veri giriyorum. benim istediğim bir commandbuttonla en son yazılı dolu hücreyi seçtirmek. teşekkürler
saygılar:yardim:

 

[Levent Menteşoğlu]

Aşağıdaki kodu kullanın.

[a65536].end(3).select

 

[olymposss]

sn hocam şu şekilde denedim ama m1 deki veriyi aktif hücreye kaydetmedi.

On Error GoTo 10
sut = [a1:iv1].Find(T1).Column 't1 deki satırı seç
sat = [a65536].End(3).Row 'a sütunundaki dolu olan en son hücreyi seç
Cells(sat, sut).Select 'kesiştikleri yerdeki hücre seçilir
ActiveCell.Value = M1.Value 'seçili hücreye m1 deki değer yazılır.

yanlışım varsa düzeltirmisiniz. çünkü m1 deki değeri aktif hücreye yazmıyor.
teşekkürler:yardim:

 

[olymposss]

yardım edecek varmı?

:???: :???: :yardim:

 

[Levent Menteşoğlu]

yanlışım varsa düzeltirmisiniz. çünkü m1 deki değeri aktif hücreye yazmıyor.
teşekkürler:yardim:

Yanlışınız olup olmadığını söylemek için ne yapmak istediğinizi anlamamız gerekir. Kodla ne yapmak istediğinizi anlatırmısınız.

 

[kombo]

Aktif hücreye başka hücre değerini yazmak için:

ActiveCell.Value = Range("m1").Value

 

[olymposss]

aşağıdaki formülü;

On Error GoTo 10
sut = [a1:iv1].Find(T1).Column 't1 deki satırı seç
sat = [a65536].End(3).Row 'a sütunundaki dolu olan en son hücreyi seç
Cells(sat, sut).Select 'kesiştikleri yerdeki hücre seçilir
ActiveCell.Value = M1.Value 'seçili hücreye m1 deki değer yazılır.

yanlışım varsa düzeltirmisiniz. çünkü m1 deki değeri aktif hücreye yazmıyor.
teşekkürler:yardim:

t1 deki değeri sut olarak a1:iv1 arasında arıyor
sat ise a1:a65536 içinde dolu olan en son hücreyi buluyor
kesiştikleri yere m1 de yazılı değeri yapıştırıyor

sonuç olarak,
sat = [a65536].End(3).Row kodu a1:a65536 arasında dolu olan en son hücreyi seçmiyor.
sut değeri buluyor, sat bulmuyor
kodumu kontrol edermisiniz?
teşekkürler:yardim:

 

[Levent Menteşoğlu]

sat = [a65536].End(3).Row kodu a1:a65536 arasında dolu olan en son hücreyi seçmiyor.
sut değeri buluyor, sat bulmuyor
kodumu kontrol edermisiniz?

Kodda herhangi bir hata yok, satır değeri mutlaka bulunuyordur ama bu sizin istediğiniz hücre değildir. Muhtemel sebepler A sütununda alt sıralarda bir veri vardır ve bu hücre bulunuyordur, hücrede bulunan bir formül veya space tuşu ile verilen bir boşlukta veri olarak algılanır. Birde A sütunu yerine [b65536] olarak B sütununda deneyin.

 

[olymposss]

bu kodu kullanınca sadece o hücreyi seçiyor

[a65536].End(3).Row

bu kod a sütunundaki son dolu hücreyi seçiyor. ancak istediğim en son dolu satırı olduğu gibi seçmek. çünkü satırda karşısına geçen sütun ile kesişmesi gerekiyor
On Error GoTo 10
sut = [a1:iv1].Find(T2).Column
sat = [a2:a65536].Find(ComboBox1).Row
Cells(sat, sut).Select
ActiveCell.Value = M2.Value
bu kodda ise sat combobox1 deki satırı komple seçiyor.istediğim sat aynen bunun gibi olacak ancak (yani bu işe yarayacak) a sütunundaki en son dolu satırı seçecek.
kusura bakmayın sizi meşgul ediyorum.
iyi çalışmalar teşekkürler
:yardim:

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde tam olarak ne yapmak istediğiniz açıklarsanız yardım almanız kolaylaşacaktır.

 

[Mahmut Kök]

[a65536].End(3).Select
a = ActiveCell.Row
Rows(a).Select

bu kod son dolu satırı seçtiriyor.

Yani bu şekilde sadece hücreyi değil de, seçtiğiniz hücrenin bulunduğu satırı seçer. İstediğiniz böyle bir şey mi, gerçi tam anladığımı da sanmıyorum..