Son dolu sütunu bulma ?

[wexplorerx]

Sayın Hocalarım benim sorum şu

Sayfa1 deki Örneğin A sutunun son dolu satırını "Range("A6536").End (3).Row" satırıyla bulabiliyoruz.

Peki Sayfa 1 deki en son boş sutunu nasıl bulabiliriz teşekkürler

 

[Ömer]

Merhaba,

Linki inceleyiniz..

End Komutu

.

 

[halit3]

alternatif kod

Sub satır_sutun()
Sütun = 0
Satır = 0
For i = 1 To Rows.Count
deg1 = Worksheets(ActiveSheet.Name).Cells(i, Columns.Count).End(xlToLeft).Column
If Sütun > deg1 Then
Sütun = Sütun
Else
Sütun = deg1
End If
Next
For i = 1 To Columns.Count
deg2 = Worksheets(ActiveSheet.Name).Cells(Rows.Count, i).End(xlUp).Row
If Satır > deg2 Then
Satır = Satır
Else
Satır = deg2
End If
Next i
MsgBox "En son Satır " & Satır & Chr(10) & _
"En son Sütun " & Sütun & " Hücresi"
End Sub

 

[uzmanamele]

merhaba

alternatif olsun

Sub DipKöşe()
 MsgBox ActiveCell.SpecialCells(xlLastCell).Address & "köşesinde buluşalım"
End Sub

 

[uzmanamele]

merhaba

başka bir alternatif

Sub sonsatsut()
MsgBox "son sütun nosu: " & ActiveCell.SpecialCells(xlLastCell).Column
MsgBox "son satır nosu: " & ActiveCell.SpecialCells(xlLastCell).Row
End Sub

 

[halit3]

Süleyman beyin kodu güzel olmuş

 

[halit3]

aslında böylede kod var ama süleyman beyinkide ve bu kodda ekli form sayfasında hata veriyor

MsgBox "son sütun nosu: " & ActiveSheet.UsedRange.Columns.Count
MsgBox "son satır nosu: " & ActiveSheet.UsedRange.Rows.Count

sayfanın hepsini bloke ediyorum delete ile siliyorum kod hata veriyor ama 3 nolu mesajdaki kod hata vermiyor

bir sayfada birçok kayıt yapıp ve delete ile silindikten sonra sayfanın kendi yapısında bu kayıtları bir şekilde tutuyor ve son satır ve son sütun numaraları hatalı çıkıyor.

tek çözüm satırları ve sütünları silmek olarak görüküyor

 

[halit3]

bu kod en doğrusunu veriyor

Sub dolusonsatırsütun()
If WorksheetFunction.CountA(Cells) > 0 Then
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address
yer = Cells(sat, sut).Address
MsgBox "En son dolu Satır :" & LastRow & Chr(10) & Chr(10) & _
"En son dolu Sütun :" & LastColumn & Chr(10) & Chr(10) & _
"Kesişim noktasıi :" & yer, vbInformation, "En son dolu satır"
Else
MsgBox "Hiç değer yok "
End If
End Sub

 

[leumruk]

Merhaba,
Belirli bir satırdaki son boş hücreyi bulmak istiyorsanız aşağıdaki kodu kullanabilirsiniz.
Örneğin aşağıdaki kod 1. satırın son boş hücresini bulur.

Msgbox Cells(1,256).End(1).column + 1

ya da

MsgBox [IV1].End(1).Column + 1

 

[halit3]

buda başka bir kod

Sub sonsatır_sonsütun()
If WorksheetFunction.CountA(Cells) > 0 Then
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
sat = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address
sat1 = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address(False, False)
Kolans = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column
Kolanh = Split(sat, "$")(1)
LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address
sut1 = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address(False, False)
Kolans2 = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
Kolanh2 = Split(sut, "$")(1)

LastColumn = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
sut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address
sut1 = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Address(False, False)
Kolans2 = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
kesisimA = Cells(LastRow, LastColumn).Address(False, False)
kesisimS = Cells(LastRow, LastColumn).Column
kesisimk = Split(sut, "$")(1)
kesisimH = Split(sat, "$")(2)
MsgBox "Son dolu Satır :" & sat1 & Chr(10) & _
"Kolon no :" & Kolanh & Chr(10) & _
"Kolon Sırası no :" & Kolans & Chr(10) & _
"Satır no :" & LastRow & Chr(10) & Chr(10) & _
"Son dolu Sütun :" & sut1 & Chr(10) & _
"Kolon no :" & Kolanh2 & Chr(10) & _
"Kolon Sırası no :" & LastColumn & Chr(10) & _
"Satır no :" & Kolans2 & Chr(10) & Chr(10) & _
"Kesişim noktası :" & kesisimA & Chr(10) & _
"Kolon no :" & kesisimk & Chr(10) & _
"Kolon Sırası no :" & kesisimS & Chr(10) & _
"Satır no :" & kesisimH, vbInformation, "En son satır ve sütun"
Else
MsgBox "Hiç değer yok "
End If
End Sub

 

[baydeniro]

Kodlar için herkese çok teşekkürler