Mrb. arkadaşlar
aşağıdaki kodda eksik olan nedir acaba
run-time '9':
subscript out of range
diye bir hata veriyor, gerçi işlem yapıyor ama işlem sonunda hata veriyor
aşağıdaki kodda eksik olan nedir acaba
run-time '9':
subscript out of range
diye bir hata veriyor, gerçi işlem yapıyor ama işlem sonunda hata veriyor
Kod:
Sub sutunlar()
For i = 1 To Worksheets.Count
SAYFA = Worksheets(i).Name
Sheets(SAYFA).Select
SAG = Right(SAYFA, 4) 'Sağdan 4 harfi gösterir
SOL = Len(SAYFA) - 4 'Karakter sayısını gösterir
SON = Left(SAYFA, SOL) 'Soldan 2 harfi gösterir
'--------------------------------------------------------------
If SAG = "MSHR" Then
Sheets(SON & "MSHR").Select
Columns("D:H").Select
Selection.Cut
Sheets(SON & "UNIT").Select
Range("I1").Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Sheets(SON & "MSHR").Delete
Else
End If
Next i
End Sub
Ekli dosyalar
-
442 KB Görüntüleme: 17
Son düzenleme: