Son Dolu Satır - Son Dolu Sütun ve Yazdırma Alanı Belirleme Örnekleri

[euphrates55]

Kendimce yine bu siteden üstatların uğraşlarından yola çıkarak ve sağdan soldan az biraz araştırma yaparak sıkça lazım olduğunu düşündüğüm "son" ile başlayan dolu satır sütun gibi kodları bir araya getirmeye çalıştım. yanlışlarım varsa affola.

Sub son_dolu_satır1()
'sayfa içerisinde "m2" hücresi ile "m2" hücresinden sonra veri olan en son sütun
'ile veri olan en alt satırın olduğu alanı yazdırma alanı seçer.
Dim SonSutun As Long, SonSatir As Long
Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, _
               SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Select
End Sub

Sub son_dolu_satir2()
'sayfada en altta girilen satırı bulup seçer.
    Cells.Find("*", , , , xlByRows, xlPrevious).Select
End Sub

Sub son_satir_gercek()
'Sayfadaki veri içeren son satırı bulur.ilk örnekten bazı durumlarda yavaş çalışır. sütun belirlemenize gerek yok
Cells.Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Select
End Sub

Sub Son_Sat_Bul_msj()
'sayfada en altta girilen satır numarasını bularak mesaj verir.
    MsgBox Cells.Find("*", , , , xlByRows, xlPrevious).Row
End Sub

Sub son_dolu_sutun1()
'sayfada en altta girilen satırı bulup seçer.
    Cells.Find("*", , , , xlByColumns, xlPrevious).Select
End Sub

Sub son_dolu_sutun2()
'sayfa içerisinde "m2" hücresi ile "m2" hücresinden sonra veri olan en son sütun
'ile bulduğu bu sütundaki veri olan en alt satırın olduğu hücrenin kesişimini seçer.
Dim SonSutun As Long, SonSatir As Long
Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, _
               SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Select
End Sub

Sub birinci_sut_son_dolu_hcr()
'1. sütundaki son dolu hücre
Cells(Rows.Count, 1).End(xlUp).Select
End Sub

Sub A_sutunundaki_son_dolu_hucre()
'istenilen sütundaki son dolu hücreyi verir.
'bu kodda "A" sütunu seçilmiş olup istenen sütuna göre değiştiriniz.
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row 'A sütununun son dolu satırı
Cells(SonSat, "A").Select
End Sub

Sub istenen_satirdaki_son_dolu_satir_msj()
'sorgulanan satır ile son veri girişi yapılmış sütunun kesişimini seçer.
'sütun sayısını ve adresini mesaj olarak gösterir.
'bu kodda 5. satır seçilmiştir.
    MsgBox "Sütun Kodu ; " & Cells(5, Columns.Count).End(1).Column & Chr(10) & _
           "Hücre adresi ; " & Cells(5, Columns.Count).End(1).Address
End Sub

Sub aktif_hucre_son_dolu_hucre_alan()
'seçili (aktif) hücreden itibaren aşağıya doğru son dolu hücreyi bulur ve bu aralığı seçer.
Dim i As Long
i = ActiveSheet.Cells(Rows.Count, Selection.Column).End(xlUp).Row
Range(Cells(Selection.Row, Selection.Column), Cells(i, Selection.Column)).Select
End Sub

Sub istenen_satirdaki_sat_sut_kesisim()
'dikkat işlem gören son hücreye göre
'sorgulanan satır ile son veri girişi yapılmış sütunun kesişimini seçer.
'bu kodda 5. satır seçilmiştir.
Sutun = ActiveCell.SpecialCells(xlLastCell).Column
Cells(5, Sutun).Select
End Sub

Sub sod_dolu_hcr()
'A sütununda son dolu hücre
Range("A65536").End(xlUp).Select
End Sub

Sub islem_goren_son_hucrenin_sutunu()
'dolu değilde son işlem görmüş sütundaki son hücreyi seçer
Cells(1, 1).SpecialCells(xlCellTypeLastCell).Select
End Sub

Sub yazdirma_alani()
'sayfa içerisinde "m2" hücresi ile "m2" hücresinden sonra veri olan en son sütun
'ile veri olan en alt satırın olduğu alanı yazdırma alanı seçer.
Dim SonSutun As Long, SonSatir As Long
SonSutun = Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, _
               SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False).Column
              
SonSatir = Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, _
               SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
              
ActiveSheet.PageSetup.PrintArea = "$m$2" & ":" & Cells(SonSatir, SonSutun).Address
End Sub