Find komutu ile bulduğum adresi Sort komutuna entegre etmek hk.

[mumugul]

Merhaba,

Find komutu ile bulduğum adresi Sort komutundaki adreslere nasıl entegre edebilirim.
Yani aşağıdaki durumda "A2:E" ve "A" ve "A2" adresleri Find komutundan gelen sonuç ile nasıl kodlanmalı, yardımcı olur musunuz?

Saygılarımla...

Set BUL = Worksheets("SAYFA1").Rows(1).Find("ANKARA", , xlValues, xlWhole)

Worksheets("SAYFA1").Range("A2:E" & Cells(Rows.Count, "A").End(3).Row).Sort key1:=Range("A2"), order1:=xlAscending

 

[Ömer]

Merhaba,

Sorunuzu net değil. İstediğiniz bu mu?

Dim BUL As Range, s As Long, son As Long, S1 As Worksheet

Set S1 = Sheets("SAYFA1")
son = S1.Cells(Rows.Count, "A").End(3).Row

Set BUL = S1.Rows(1).Find("ANKARA", , xlValues, xlWhole)
If Not BUL Is Nothing Then
    s = BUL.Column
End If

S1.Range(S1.Cells(2, s), S1.Cells(son, "E")).Sort key1:=S1.Cells(2, s), order1:=xlAscending

 

[mumugul]

Merhaba,

Find ile bulunan sütun dahil +4 sütunu sıralamasını istiyorum.

 

[Ömer]

"E"

yazılan bölüme

s+4

yazarak deneyin.

Eğer son değeri de find sütununa göre bulunacaksa;

son = S1.Cells(Rows.Count, "A").End(3).Row

Kodunu End If satırından sonra yazarak,

"A" yerine s yazarak deneyin.

.

 

[mumugul]

Teşekkürler...