Birden fazla sayfalı excel dosyasında belli sütun aralığındaki formüllü hücreleri değere dönüştürme

[bery35]

Merhaba,
Aşağıda yazılmış olan kod çok faydalı. Ancak benim ihtiyacım biraz farklı. Benim isteğim tüm sayfalarda "belli sütun aralığının" değere dönüşmesi. Örneğin sadece A:F sütunları değere dönüşsün, diğer alanlar formüllü kalsın. Bu konuda yardımcı olabilirseniz minnettar kalırım.

Option Explicit


Sub Formula_Zapper_MkII()
    
    Dim sh As Worksheet, HidShts As New Collection
    For Each sh In ActiveWorkbook.Worksheets
        If Not sh.Visible Then
            HidShts.Add sh
            sh.Visible = xlSheetVisible
        End If
    Next sh
    
    Worksheets.Select
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Select
    Application.CutCopyMode = False
    
    For Each sh In HidShts
'        sh.Delete
        sh.Visible = xlSheetHidden
    Next sh
    
End Sub

 

[Ömer]

Merhaba,

Cells.Select

yerine aşağıdaki satırı yazarak deneyiniz.

[A:F].Select

 

[bery35]

Ömer Bey merhaba,

Teşekkür ederim sorunum çözüldü.