Son Dolu Satır

[alirizapekbilir]

Son dolu Hücreyi sütun bazında bulabiliyorum ama satır bazında son dolu hücreyi nasıl bulabilirim. Şimdiden teşekkürler


Sütunda kullandığım makro
Public Sub SonDolu()
Range("B" & [B65536].End(3).Row).Select
End Sub

 

[Ömer]

Merhaba,

Satır bazından kastınız nedir? Eğer sayfadaki son girilen satır numarasını bulmak istiyorsanız;

Sub Son_Sat_Bul()
    MsgBox Cells.Find("*", , , , xlByRows, xlPrevious).Row
End Sub

.

 

[alirizapekbilir]

Merhaba,

Satır bazından kastınız nedir? Eğer sayfadaki son girilen satır numarasını bulmak istiyorsanız;

Sub Son_Sat_Bul()
    MsgBox Cells.Find("*", , , , xlByRows, xlPrevious).Row
End Sub

.

Örnek olarak 5. satır yada 11. satır olarak ayarlayabilmeliyim.

 

[alirizapekbilir]

s

bu arada imlecin son dolu satıra gitmesini istiyorum hücre olarak.

 

[askm]

Sub Son_Sat_Bul()
    Cells.Find("*", , , , xlByRows, xlPrevious).Select
End Sub

 

[alirizapekbilir]

Sub Son_Sat_Bul()
    Cells.Find("*", , , , xlByRows, xlPrevious).Select
End Sub

Yanlış ifade ettim galiba benim istediğim bir satırın son dolu hücresi olacaktı. Örneğin 10. satırın son dolu hücresi. Kusura bakmayın.

 

[askm]

Sub son()
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

 

[alirizapekbilir]

Sub son()
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

Şöyle diyeyim o zaman yine eksik bilgi aktardım 5. satırın son dolu sütununu nasıl bulurum. Benim aslı derdim yataydaki son dolu hücre.

 

[askm]

Sub SonSutun()
Sutun = ActiveCell.SpecialCells(xlLastCell).Column
Cells(5, Sutun).Select


End Sub

 

[Korhan Ayhan]

Alternatif;

Sub Satırda_Son_Dolu_Hücre()
    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

 

[hakankilic]

Private Sub Worksheet_Activate()
Dim SonSat As Long
SonSat = Range("b" & Rows.Count).End(xlUp).Row + 1 'b sütununun son dolu satırı
Cells(SonSat, "b").Select
End Sub

 

[halit3]

Bir tanede ben ekleyim

Sub sonsatır_sonsütun()


Dim SütunAdı As String

If WorksheetFunction.CountA(Cells) > 0 Then

sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address

SütunAdıA = Split(sut, "$")(1)
SütunAdıS = Split(sut, "$")(2)
Range(sat).Interior.ColorIndex = xlNone
Range(sut).Select
Range(sut).Interior.ColorIndex = 6

MsgBox "En son dolu Sütun Alfabetik değer  :" & SütunAdıA & Chr(10) & Chr(10) & _
"En son dolu Sütun Sayısal değer  :" & SütunAdıS & Chr(10) & Chr(10) & _
"En son dolu Sütun Adresi  :" & sut, vbInformation, "En son dolu sütun"

Else
MsgBox "Hiç değer yok "
End If

End Sub

Ayrıca aşağıdaki linkide irdeleyiniz.
http://www.excel.web.tr/f48/son-dolu-sutunu-bulma-t86295.html

 

[tacettinsal]

Şöyle diyeyim o zaman yine eksik bilgi aktardım 5. satırın son dolu sütununu nasıl bulurum. Benim aslı derdim yataydaki son dolu hücre.

Biraz geç cevap gibi olacak ama şurada şöyle dursun.

Sub sondolusutun()

son = Cells(5, Columns.Count).End(xlToLeft).Select

End Sub

 

[mcetinkaya65]

Bir tanede ben ekleyim

Sub sonsatır_sonsütun()


Dim SütunAdı As String

If WorksheetFunction.CountA(Cells) > 0 Then

sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address

SütunAdıA = Split(sut, "$")(1)
SütunAdıS = Split(sut, "$")(2)
Range(sat).Interior.ColorIndex = xlNone
Range(sut).Select
Range(sut).Interior.ColorIndex = 6

MsgBox "En son dolu Sütun Alfabetik değer  :" & SütunAdıA & Chr(10) & Chr(10) & _
"En son dolu Sütun Sayısal değer  :" & SütunAdıS & Chr(10) & Chr(10) & _
"En son dolu Sütun Adresi  :" & sut, vbInformation, "En son dolu sütun"

Else
MsgBox "Hiç değer yok "
End If

End Sub

Ayrıca aşağıdaki linkide irdeleyiniz.
http://www.excel.web.tr/f48/son-dolu-sutunu-bulma-t86295.html

Selamünaleyküm;
Üstad bu makroyu öyle bir düzenleme yapalım ki, bizi Tablomdaki A stununda son dolu hücreye götürsün tekrar tıklayınca a1 hücresine tabiki mümkün ise
Saygılarımla...

 

[Korhan Ayhan]

Deneyiniz.

A sütununa veri girdikten sonra kodu bağladığınız butona ilk tıkladığınızda son hücreye gider. İkinci tıkladığınızda A1 hücresine gider.

Option Explicit

Sub Sona_Git()
    Dim Adres As String
    
    If WorksheetFunction.CountA(Range("A:A")) > 0 Then
        Adres = Range("A:A").Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address
        
        If ActiveCell.Address = Adres Then
            Range("A1").Select
        Else
            Range(Adres).Select
        End If
    End If
End Sub

 

[mcetinkaya65]

Option Explicit Sub Sona_Git() Dim Adres As String If WorksheetFunction.CountA(Range("A:A")) > 0 Then Adres = Range("A:A").Find(What:="*", After:=Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address If ActiveCell.Address = Adres Then Range("A1").Select Else Range(Adres).Select End If End If End Sub

Allah Razı olsun

 

[musaliha]

Merhaba
ben sayfamdaki a sütununda bulunan (son dolu satırın A:Z arasını) seçerek kopyalamak istiyorum.Yardımcı olabilirmisiniz

 

[Korhan Ayhan]

Merhaba,

Eğer A sütununda aralarda boş satırlarınız yoksa aşağıdaki komutu kullanabilirsiniz.

Range("A1").CurrentRegion.Copy

Eğer A sütununda aralarda boş satırların olma durumu varsa aşağıdaki komutu kullanabilirsiniz.

Range("A1:Z" & Cells(Rows.Count, 1).End(3).Row).Copy

 

[musaliha]

teşekkür ederim korhan bey ancak ben tüm dolu satırları değil , sadece dolu olan en son satırı kopyalamak istiyorum.son satırdaki bir hücre seçebiliyorum.ancak istreğim dolu olan en son satırdaki a:z arası hücreleri kopyalamak istiyorum,

 

[Korhan Ayhan]

Deneyiniz.

Cells(Rows.Count, 1).End(3).Resize(, 26).Copy