Sıralama kodu çalışmıyor

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın İZİN sayfasındaki butona bastığımda ARŞİV sayfasında sıralama olmuyor ve kod hata veriyor.
ARŞİV sayfasına geçip butona bastığımda sıralama oluyor.

Yapmak istediğim ARŞİV sayfasına geçmeden butona bastığımda ARŞİV sayfasının sıralamasını istiyorum.

Bir türlü çözemedim. Yardımcı olur musunuz?

 

[Ömer BARAN]

Merhaba.
Kırmızı kısmı ekleyin.

Sheets("ARŞİV").Range("B2:K" & son1).Sort key1:=Sheets("ARŞİV").[E2]

 

[Haluk]

Aşağıdaki satırı eskisiyle değiştirin ....

Sheets("ARŞİV").Range("B2:K" & son1).Sort key1:=[ARŞİV!E2]

Not: Cevabı gönderirken sayfayı yenilemediğim için Ömer Beyin cevabını görmemiştim.

.

 

[ASLAN7410]

Sayın Haluk Bey, Allah razı olsun, çok teşekkür ediyorum, çok işime yaradı.

Hayırlı geceler diliyorum.

 

[Haluk]

Estağfurullah..... Ömer Beyin de eline sağlık.

.

 

[ASLAN7410]

Sayın Ömer Bey, sizin mesajınızı yeni gördüm, size de çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

 

[Ömer BARAN]

Önemli olan ihtiyacın görülmesi.
Kolay gelsin.