Worksheets.delete komutunda problem

[Marco]

Arkadaşlar

Ekteki macrocuk, çalışma kitabında kaç sayfa olsun diye soruyor cevap mevcut sayfa sayısından çoksa işlemi düzgün yapıyor ama az ise sayfa silerek sayıyı istenen değere getiremiyor. Kod neden hata veriyor. Kullanmam gereken yöntem nedir?

 

[Levent Menteşoğlu]

Yazmış olduğunuz kodda gerekli düzeltmeyi yaptım. Kodu aşağıdaki ile değiştirin.

[vb:1:f16e3715f3]Sub sayfaekle()
Dim i, m, k As Integer
k = InputBox("Çalışma kitabı kaç sayfa olsun?")
m = Worksheets.Count
If k > m Then
For i = m To k - 1
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
Worksheets(i + 1).Name = i + 1
Next i
ElseIf k < m Then
For i = m To k + 1 Step -1
Application.DisplayAlerts = False
Worksheets(i).Delete
Next i
Else
End If
Worksheets(1).Select
End Sub[/vb:1:f16e3715f3]

 

[Marco]

Sn : Leventm

Teşekkür ederim. Döngüde büyükten küçüğe step -1 ile gitme mantığını şu an itibariyle sizden öğrenmiş bulunuyorum.

 

[danersin]

step +1 olduğu müddetce belirtmenize gerek yok. onun dışında
step + x şeklinde x pozitif veya negatif bir tamsayı olacak şekilde kullanabilirsiniz.