Silinmeyen sayfalar ve çalışma kitapları

[serif_007]

Herkese merhabalar.

Makro ile oluşturduğum arıza kayıt ve takip tablom var. VBA'ya girdiğimde farkettim benim çalışma kitabımda görünmeyen sayfalar ve bir çalışma kitabı daha mevcut. Bunları hiçbir şekilde görüntüleyemiyorum ve hiçbir şekilde silemiyorum. Bu konuda yardımlarınıza ihtiyacım var. Resimdeki Sayfa10(GÜNLÜK RAPOR) , Sayfa6(ADMİN), Sayfa7(Veriler), Sayfa8(GÜNCEL ARIZALAR) ve Sayfa9(SONUÇLANAN ARIZALAR) sayfaları benim oluşturduklarım. Diğerlerini silmem lazım fakat remove pasif durumda.

 

[Trilenium]

Çünkü o sayfalar gizlidir.

VBA Sayfanın özelliklerine gelin ve Visible kısmını -1xlsheetvisible seçin

 

[Korhan Ayhan]

Bence dosyanızda bozulma oluşmuş. Acilen verilerinizi YENİ temiz bir excel dosyasına taşımanızı tavsiye ederim.

 

[serif_007]

Bence dosyanızda bozulma oluşmuş. Acilen verilerinizi YENİ temiz bir excel dosyasına taşımanızı tavsiye ederim.

Korhan bey merhaba.

Private Sub CommandButton18_Click()
Sheets("GÜNLÜK RAPOR").Select
    Set HucreAraligi = Nothing
   ' Set HucreAraligi = ActiveSheet.UsedRange.Cells
    Sheets("GÜNLÜK RAPOR").Range("A1:G8").Select
   Set HucreAraligi = Selection
    With Application
            .ScreenUpdating = False
            .EnableEvents = False
        End With
    Set Kitap = Workbooks.Add(xlWBATWorksheet)
HucreAraligi.Copy
        With Kitap.Sheets(1)
            .Cells(1).PasteSpecial Paste:=8
            .Cells(1).PasteSpecial Paste:=xlPasteValues
            .Cells(1).PasteSpecial Paste:=xlPasteFormats
            .Cells(1).Select
        Application.CutCopyMode = False
        End With
yol = "C:\Users\yuktevzi\Desktop\"
isim = "GÜNLÜK ARIZA TAKİBİ" & ".xlsx"
        With Kitap
            .SaveAs Filename:=yol & isim, FileFormat:= _
            xlOpenXMLWorkbook, CreateBackup:=False
            .Close SaveChanges:=False
        End With
        With Application
            .ScreenUpdating = True
            .EnableEvents = True
        End With
Sheets("GÜNCEL ARIZALAR").Select

End Sub

ne olduysa bunu yaptıktan sonra oldu. Bir sayfadaki verileri sadece değer olarak masaüstüne çıkarmak için kullanıyordum.

 

[Korhan Ayhan]

Bazen dosyalarda yapısal bozukluk oluşabiliyor..

Buna neyin sebep olduğunu açıkçası bende bilmiyorum. Paylaştığınız kodda bir anormallik görünmüyor. Ama bu sebep olmuyor diyemem..

 

[serif_007]

anlıyorum peki çok teşekkür ederim. Neyse ki dosyadan her çıkış yaparken günün tarihi ile yedek aldırıyordum eski yedekten geri çıkaracağız yenisini yapana kadar