sayfalardan belirli bir alanı silme

[unutkan518]

Merhaba

Bir excel dosyamda 1000 lerce sayfa var. Yapmak istediğim tüm sayfalar için sırayla
önce kopyala değer yapıştır yapmak
sonra ilgili sayfanın Q1 den son sutun ve satıra kadar silme işlemi yapmak

bu şekilde sırayla tüm sayfalarda işlem yapmak için yardımcı olabilir misiniz.

 

[Ömer]

Merhaba,

Deneyiniz.

Sub deneme()
    
    Dim i As Integer
    
    Application.ScreenUpdating = False
    
    For i = 1 To Worksheets.Count
        With Sheets(i)
            .Cells.Copy
            .Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
            .Range(.Cells(1, "Q"), .Cells(Rows.Count, Columns.Count)).Clear
        End With
    Next i
    
    [A1].Select
    Application.CutCopyMode = False
    
End Sub

 

[unutkan518]

geri dönüşünüz için teşekkür ederim.
kopyala değer yapıştır yapıyor
fakat silme işleminde 1. satırı siliyor
silinmesi gereken alan Q1 den başlayıp aşağıya doğru tüm satırlar ve sağa doğru tüm sutün verileri olacak değiştirmek mümkün mü acaba.

 

[Ömer]

#2 numaralı kodları güncelledim, tekrar dener misiniz.

 

[unutkan518]

yardımınız için çok teşekkür ederim. Sorunsuz çalışıyor.