Makro ile Sıralama

[vivident]

Merhaba

Aşağıdaki kod ile sıralama yapıyorum. Problem yaşamıyorum. Lakin ben sıralama aralığını tüm "K" sutunda değil "K4:K13" arasında istiyorum

Range("K4:K13" & Rows.Count).End(3).Row yaptığımda 400 hatası alıyorum. Kodda nasıl bir değişiklik yapmalıyız

a = Range("K" & Rows.Count).End(3).Row
Range("J4:K13" & a).Sort Key1:=Range("K4"), Order1:=xlDescending

 

[Necdet]

Merhaba

Aşağıdaki kod ile sıralama yapıyorum. Problem yaşamıyorum. Lakin ben sıralama aralığını tüm "K" sutunda değil "K4:K13" arasında istiyorum

Range("K4:K13" & Rows.Count).End(3).Row yaptığımda 400 hatası alıyorum. Kodda nasıl bir değişiklik yapmalıyız

a = Range("K" & Rows.Count).End(3).Row
Range("J4:K13" & a).Sort Key1:=Range("K4"), Order1:=xlDescending

& Rows.Count ibaresini silin.

 

[vivident]

400 Hatası alıyorum

a = Range("K").End(3).Row
Range("J4:K13" & a).Sort Key1:=Range("K4"), Order1:=xlDescending

K sütunu yine komple alıyor. K14 hücresinde sayısal veri var. Onu da sıralıyor

a = Range("K4:K13").End(3).Row
Range("J4:K13" & a).Sort Key1:=Range("K4"), Order1:=xlDescending

 

[vivident]

Dosyam ektedir

 

[Ömer BARAN]

Merhaba.
Kırmızı olanları silerek kullanmanız lazım.

[COLOR="red"]a = Range("K4:K13").End(3).Row[/COLOR]
Range("J4:K13"[COLOR="red"] & a[/COLOR]).Sort Key1:=Range("K4"), Order1:=xlDescending