Gizli sekme ve sütun sorunu

[bthn35]

Merhaba,
Kullandığım makro'da Q22 ile Q28 arasından veri kopyalamak istiyorum ancak Q23-Q25 arası gizli yaptığımda kopyalamıyor ayrıca TANIM_ISIMLER isimli bir gizli sekme'ye de kopyaladığım veriyi yapıştıramıyorum. Bu 2 gizli gizli işlem için nasıl bir kod kullanmalıyım?

Sub TANIMLA_ISIMLER2()
    Range("Q22:Q28").Select
    Selection.Copy
    Sheets("TANIM_ISIMLER").Select
    Application.Goto Reference:="R5000C1"
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    Sheets("GELEN-GIDEN").Select
    Range("Q16:Q21").Select
    Selection.ClearContents
    Range("Q6").Select
End Sub

 

[Muzaffer Ali]

Merhaba.
Kopyalamak yada yapıştırmak için hücre-sayfa seçmeye gerek yok.
Gizli olan sayfa zaten gizli olduğu için seçilemez.
Aşağıdaki kodu deneyin.

Sub TANIMLA_ISIMLER2()
    Dim SonSatir As Long
    Range("Q22:Q28").Copy
    SonSatir = Sheets("TANIM_ISIMLER").Cells(Rows.Count, "A").End(xlUp).Row
    Sheets("TANIM_ISIMLER").Range("A" & SonSatir + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("GELEN-GIDEN").Range("Q16:Q21").ClearContents
End Sub

 

[bthn35]

Oldu, çok teşekkür ederim