Soru Gizli Sütunlarda Find Komutu

[berkem13]

Merhabalar, bu forumdaki üstatlar sayesinde projemin son aşamasına geldim ancak projemde kopyalanacak alanların gözükmemesini istediğinden ilgili hücreyi gizlediğimde hata alıyorum . Kod ve gizlediğim sütun aşağıdaki gibidir. Sütunu gizlemediğim vakit, "x" değer alabiliyor ancak sütunu gizlediğimde "x" Nothing şeklinde gözüküyor ve makro çalışmıyor. Şimdiden çok teşekkür ederim.

'
' FaturasıKesilmeyenNP Makro
    
    ' Müşteri Türü ve Dosya Yolu Belirleme
    Dim MusteriTuru As Variant
    MusteriTuru = Worksheets("Sabitler").Range("B6")
    Dim DosyaYolu As Variant
    If MusteriTuru = 1 Then
    DosyaYolu = ActiveWorkbook.Path & "\Nakliyeciler\" & Worksheets("Özet").Range("C4") & ".xlsx"
    ElseIf MusteriTuru = 2 Then
    DosyaYolu = ActiveWorkbook.Path & "\Petrolcüler\" & Worksheets("Özet").Range("C4") & ".xlsx"
    End If
    Set x = [R42:R59].Find("*", LookIn:=xlValues, SearchDirection:=xlPrevious)
    Range("Q42:AF" & x.Row).Select
    Selection.Copy
    Workbooks.Open DosyaYolu
    Worksheets("Detay").Select
    Application.Goto Reference:="R6000C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.CutCopyMode = False
    Worksheets("Özet").Range("B43").Select

End Sub

 

[Tevfik_Kursun]

Merhaba,
Makronuzu kod içindeki gibi düzenlerseniz istediğiniz işlemi yapar ve dışarıdan da görülmez diye düşünüyorum.

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    gizleneni aç
    ...
    makronuz
    ...
    gizleneni kapa
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

İyi çalışmalar