Soldan Sağa Doğru Dolu Olan En Son Sütunu Bulmak

[baydeniro]

Merhaba Arkadaşlar,

Aşağıdaki kod ile yukarıdan aşağıya doğru DOLU olan en son satır bulunabilmektedir. Acaba Soldan Sağa Doğru Dolu Olan En Son (en sağdaki) sütunu bulmak mümkün mü ?

sonsatir = sh.Cells(65536, 1).End(xlUp).Row

 

[Haluk]

Örnek olarak, aktif sayfada 5. satırdaki en son dolu hücrenin sütun numarası için;

Sub Test()
    LastCol = Cells(5, Columns.Count).End(xlToLeft).Column
    MsgBox LastCol
End Sub

.

 

[Ömer BARAN]

Merhaba.
-- Konu açılış mesajındaki; "yukarıdan aşağıya doğru DOLU olan en son satır" ibaresinin,
"aşağıdan yukarı doğru DOLU olan ilk satır" olması gerekiyor, sanıyorum yanlış ifade edildi.
Zira verilen kod satırı " ... 65536 .... xlUp " şeklinde.

-- Ayrıca, Ms.Excel versiyonuna göre son satır değişebileceğinden 65536 yerine Rows.Count yazılmasının daha doğru olacağını belirteyim.

Kolay gelsin.
.

 

[baydeniro]

Sayın Haluk üstadım ve Değerli Ömer Baran üstadım, yardımlarınız ve katkılarınız için çok çok teşekkür ediyorum. İyi ki varsınız. Bu kod da katkıda bulunduğunuz diğer kodlar gibi çok işimize yarayacak.

Bu vesile ile 2019 yılının hepimiz için sağlıklı, huzurlu, kazançlı bir yıl olmasını dilerim. Sağlıcakla kalın.

 

[baydeniro]

Aklıma bir fikir daha geldi sizlere danışmak istedim. LASTROW ve LASTCOLUMN u kullanarak adres üretmek mümkün olur mu acaba ? yani şöyle gibi :

WorksheetFunction.Address(sonsatir, LastCol)
böyle denedim ama olmadı maalesef !

 

[Orion1]

deneyiniz.

msgbox cells(lastrow,lastcolumn).address

 

[baydeniro]

Üstad Orion1 çok çok teşekkür ediyorum, harikulade oldu.

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[baydeniro]

Üstad bir yardımınız daha rica edebilir miyim ! aşağıdaki kodu ALANI SEÇ (Selcet) için kullanmak isteseydik nasıl olması gerekirdi !

sh.Select = "$A$10:" & Cells(LastRow, LastCol).Address

 

[Orion1]

deneyiniz.

sh.Select
Range("$A$10:" & Cells(LastRow, LastCol).Address).Select

 

[baydeniro]

Üstad muhteşemsiniz, çok teşekkür ediyorum. Allah sizlere zeval vermesin. Sağlıcakla kalın

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[Orion1]

Alternatif.
Bu daha iyi.

sh.Select
Range(Cells(10, "A"), Cells(Lastrow, Lastcol)).Select

 

[baydeniro]

evet üstad haklısın, çok teşekkürler

 

[Orion1]

İyi çalışmalar.

 

[euphrates55]

sayın orion https://www.excel.web.tr/threads/hu...oere-yazi-tipi-ve-boyutunu-degistirme.111124/
bu konunun çıkarı var mı? fikriniz var mı? hücrenin değerine göre yazı fontu büyüklüğü değişir mi? run sub a basmadan.

edit: yanlış yere yazdım silemiyorum