Aktif Satırdaki En Son Dolu Sütunu Bulmak

[ahmed_ummu]

Merhaba arkadaşlar.

Aktif satırın en son dolu sütununu nasıl bulabilirim. Çok örnek buldum ama hepsi hata veriyor. Yardımcı olursanız sevinirim.

 

[halit3]

Hata veren kodu buraya ekliyebilirmisiniz.

 

[ahmed_ummu]

Hata veren kodu buraya ekliyebilirmisiniz.

i = ActiveSheet.UsedRange.Columns.Count
Activecell.Offset(0,i).Select
'------------------------------------------------
Set s1= Worksheets("veri")
iSonSutun = s1.Cells(iSatir, s1.Columns.Count).End(xlToLeft)
ActiveCell.Offset(0, iSonSutun).Select

 

[Muzaffer Ali]

iSonSutun ve iSatir yerine sanki SonSutun ve Satir olması gerekiyor.

 

[ahmed_ummu]

iSonSutun ve iSatir yerine sanki SonSutun ve Satir olması gerekiyor.

Hata verdi yine.

 

[halit3]

bunu dene

sutun = ActiveWindow.RangeSelection.Column
Set s1 = Worksheets("veri")
sonsat = s1.Cells(Rows.Count, sutun).End(xlUp).Row
s1.Cells(sonsat, sutun).Select

 

[ahmed_ummu]

bunu dene

sutun = ActiveWindow.RangeSelection.Column
Set s1 = Worksheets("veri")
sonsat = s1.Cells(Rows.Count, sutun).End(xlUp).Row
s1.Cells(sonsat, sutun).Select

Resimde ki gibi hata verdi.


Aşağıdaki kod ile de aralarda boş hücreler var ilk boş hücreyi seçiyor.

'Do While Not IsEmpty(ActiveCell)
'ActiveCell.Offset(0, 1).Select
'Loop

 

[ahmed_ummu]

Yapacağım işlem aktif satırın 117 sağıdaki hücreden başlıyor. Aşağıdaki kod ile oldu.

ActiveCell.Offset(0, 117).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop

İlginize teşekkürler arkadaşlar.

 

[Korhan Ayhan]

Deneyiniz.

Bu kod aktif satırda sağa doğru en son dolu hücreyi seçer.

Sub Test()
    Cells(ActiveCell.Row, Columns.Count).End(1).Select
End Sub

 

[halit3]

Resimde ki gibi hata verdi.


Aşağıdaki kod ile de aralarda boş hücreler var ilk boş hücreyi seçiyor.

'Do While Not IsEmpty(ActiveCell)
'ActiveCell.Offset(0, 1).Select
'Loop

resimdeki kod da eksiklik var benim yazdığım kodun bir bölümü eksik tekrar kontrol edermisiniz.

 

[ahmed_ummu]

resimdeki kod da eksiklik var benim yazdığım kodun bir bölümü eksik tekrar kontrol edermisiniz.

Halit teşekkürler çözüldü. Bir de Listbox1 deki verilerden ilk sıradaki veriyi seçersem aktif satrırdaki "DO" hücresini, ikinci sıradaki veriyi seçersem "DS" hücresini, üçüncü veriyi seçersem "DW" hücresini seçmesini istiyorum. aşağıdaki kodlar ile bir hata vermiyor ama seçimi de yapmıyor. Bi bakabilir misiniz.

Select Case ListBox1.Value
Case Is = ListBox1.ListIndex = 0
Range("DO").Select

Case Is = ListBox1.ListIndex = 1
Range("DS").Select

Case Is = ListBox1.ListIndex = 2
Range("DW").Select
End Select

 

[halit3]

kodları eksik yazıyorsun
sutun değerlerini yazıyorsun ama satır değerlerini yazmıyorsun

böyle olabilir

Select Case Val(ListBox1.ListIndex)
Case 0
Range("DO1").Select
Case 1
Range("DS1").Select
Case 2
Range("DW1").Select
End Select

 

[ahmed_ummu]

kodları eksik yazıyorsun
sutun değerlerini yazıyorsun ama satır değerlerini yazmıyorsun

böyle olabilir

Select Case Val(ListBox1.ListIndex)
Case 0
Range("DO1").Select
Case 1
Range("DS1").Select
Case 2
Range("DW1").Select
End Select

Teşekkürler Halit bey, düzeldi.