makro çakışması mı ?

[önder34]

Aynı excel sayfasında kayan yazı ve ünvana göre sıralama makrosu var ama kayan yazı makrosu çalışıyorken sıralama çalışmıyor kayan yazı 2 . satırda ve şu şekilde:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Single
Dim ilk, son, veri As String
Do While (True)
DoEvents
ilk = Left(Cells(2, 2), 1)
son = Mid(Cells(2, 2).Value, 2, Len(Cells(2, 2).Value) - 1)
Cells(2, 2).Value = son + ilk
For i = 1 To 12000000
Next i
veri = Cells(2, 2).Value
Loop
End Sub

sıralama makrosuda 5. satırda başlıyor 90. satır arası

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [K5:K90]) Is Nothing Then Exit Sub
Application.Goto Reference:="ana"
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Key2:=Range("B5") _
, Order2:=xlAscending, Key3:=Range("C5"), Order3:=xlAscending
Target.Select
End Sub



hata nerden kaynaklanıyor olabilir bilgisi olan var mı acaba

 

[önder34]

arkdaşlar bu konuda yardımcı olabilecek kimse yok mu ?

 

[usubaykan]

Merhaba;

Hata aldığınız makro sayfasını ekleyebilirmisiniz?

 

[önder34]

ana sayfada en son satırda deneme yaparsanız . görebilirsiniz. k.sütunua gelince nokta koyarak entayın sıralama yapması gerekir.

 

[usubaykan]

Merhaba;
Dosyanız tekrar inceler misiniz?

 

[önder34]

Değişen birşey yok sıralama yine çalışmıyor ?