Satır ekleme ve sıralalama

[rtk19641990]

f = Mid(sen, 4, 1)
f = Mid(sen, 4, 2)
bu ne yapıyor?

 

[rtk19641990]

Yardım lütfen

 

[apocalyt]

şunu deneyiniz..

Sub ayır()
For Z = [a10000].End(3).Row To p + 3 Step -1
If Cells(Z, "C") = "TRHBTR2A" Or Cells(Z, "C") = "PAMUTRIS" Then
Rows(Z + 1).Insert
Rows(Z + 2).Insert
Range("a1:h1").Copy
Range("a" & Z + 2).PasteSpecial
Rows(Z + 1).Interior.Color = vbYellow
Rows(Z + 2).Interior.Color = vbYellow
Range("a" & 2 & ":" & "h" & Z).Sort key1:=Range("h" & 2), order1:=xlDescending
Range("a" & Z + 3 & ":" & "h" & [a10000].End(3).Row).Sort key1:=Range("h" & Z + 3), order1:=xlDescending
GoTo j
End If
Next Z
j:
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

[rtk19641990]

Çok teşeklür ederim.