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?
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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.