Kodda Sayfa Silmek

[Fuat Şirin]

Sub sayfa_adları()
On Error Resume Next
For i = 1 To 80
p = Worksheets.Count
Cells(1, 1).Value = Sheets(p).Name
Cells(i + 1, 1).Value = Sheets(p - i).Name
Next
Call düzelt
End Sub
Sub düzelt() 'liste sayfasında liste ve şablon isimli sayfaların adlarını siler
For i = 1 To 80
If Cells(i, 1).Value > "" Then
Cells(i, 1).Select
End If
Next
ActiveCell.Value = Empty
ActiveCell.Offset(-1, 0) = Empty
Call formül
End Sub

Kolay Gelsin Herkese

Bu kodlarda
İlk İki sayfayı listelemeyi
siliyor
bunu 3 4 . sayfa olrak çoğaltmak için ne yapmamız gerekir
çıkmadım içinden

 

[Fuat Şirin]

kodları tam olarak ekledim
birinci modulde sayfa adlarını liste adlı sayfaya alıyor
ikinisinde de liste ve şablon sayfasını liste sayfasından siliyor
istediğim mesela şablon yanına mesela şablon 2 eklicem onuda silmesi

 

[Fuat Şirin]

konu ile ilgilenirsek sevinirim

 

[Fuat Şirin]

sorun çözüldü ...