incsoft
Yeni Üye
- Katılım
- 28 Ocak 2019
- Mesajlar
- 234
- En iyi yanıt
- 0
- Puanları
- 18
- Yaş
- 43
- Konum
- Ankara
- Ad Soyad
- Ufuk İNCE
- Office Vers.
- Office 2019 Professional
Sub cogalt()
tespit = InputBox("Gün", "Tespit")
For i = Application.Sheets.Count To tespit + Application.Sheets.Count - 1
Sheets(Application.Sheets.Count).Select
Sheets(Application.Sheets.Count).Copy Before:=Sheets(1)
Sheets(1).Name = i + 1
Sheets(1).Range("P1") = Sheets("1").Range("P1") + Application.Sheets.Count - 1
Next i
For j = 1 To Application.Sheets.Count
If Sheets(CStr(j)).Name <> "" Then
Sheets(CStr(j)).Select
Sheets(CStr(j)).Move Before:=Sheets(j)
End If
Next j
Sheets(1).Select
End Sub
Bu şekilde dosyamda kullandığım bir macro var arkadaşlar ancak sayfanın içerisine sayısal isimler harici isimler girince aşağıdaki hatayı veriyor. Sadece 1-2-3...31.. vb.. sayısal olanlarda sorunsuz çalışıyor. Dosyada isimli sayfalar olduğunda hata vermemesi için nasıl bir kod değişikliği yapmamız gerekir?
tespit = InputBox("Gün", "Tespit")
For i = Application.Sheets.Count To tespit + Application.Sheets.Count - 1
Sheets(Application.Sheets.Count).Select
Sheets(Application.Sheets.Count).Copy Before:=Sheets(1)
Sheets(1).Name = i + 1
Sheets(1).Range("P1") = Sheets("1").Range("P1") + Application.Sheets.Count - 1
Next i
For j = 1 To Application.Sheets.Count
If Sheets(CStr(j)).Name <> "" Then
Sheets(CStr(j)).Select
Sheets(CStr(j)).Move Before:=Sheets(j)
End If
Next j
Sheets(1).Select
End Sub
Bu şekilde dosyamda kullandığım bir macro var arkadaşlar ancak sayfanın içerisine sayısal isimler harici isimler girince aşağıdaki hatayı veriyor. Sadece 1-2-3...31.. vb.. sayısal olanlarda sorunsuz çalışıyor. Dosyada isimli sayfalar olduğunda hata vermemesi için nasıl bir kod değişikliği yapmamız gerekir?