Makro'da Düzenleme

[1Al2Ver]

Merhaba,

PERFORMANS KAYIT PROGRAMI adlı çalışma kitabımda, aşağıdaki gibi bir kod kullanıyorum,

Sub sayfaları_gizle()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "VERİLER" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
End Sub

Kod, bu çalışma kitabı dışında, açık olan başka çalışma kitaplarındaki sayfaları da gizliyor,

Kod'un bu işlemi, sadece "PERFORMANS KAYIT PROGRAMI" isimli sayfada gerçekleştirmesini istiyorum,

NOT ; Çalışma kitabını C:\Belgelerim\PERFORMANS KAYIT PROGRAMI şeklinde kayıt ettim.

Teşekkür ederim.

 

[Ömer BARAN]

Aşağıdaki gibi deneyin.
.

Sub sayfaları_gizle()
For i = 1 To [COLOR="Red"]ThisWorkbook.[/COLOR]Worksheets.Count
    If [COLOR="red"]ThisWorkbook.[/COLOR]Worksheets(i).Name <> "VERİLER" Then
        [COLOR="red"]ThisWorkbook.[/COLOR]Sheets(i).Visible = xlVeryHidden
    End If
Next i
End Sub

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Hem çözüm, hem de öğreticiliğiniz için teşekkür ederim.

Saygılarımla.

 

[Ömer BARAN]

.
Estağfurullah.
Kolay gelsin.
.