Periyodik olarak kopyalayıp özel yapıştırma

[bebar]

Merhaba,

Aşağıda bulunan resimde 1. adımda 9. satırda ve H-I sütunlarında bulunan formülleri belirlenen satıra kadar kopyalayıp ve 10. satırdan itibaren kopyaladığı yere kadar özel yapıştırmasını ve her adımdan sonra 1 sutun atlayarak belirlenen sütuna kadar aynı şekilde devam etmesini istiyorum.
Teşekkür ederim.

not: her adımda satır sayısı aynı olacak.

 

[bebar]

yardımcı olamazmısnız??

 

[Korhan Ayhan]

Deneyiniz...

100 değeri en kopyalanacak sütunu ifade etmektedir.

1000 değeri de formüllerin kopyalanacağı son satırı ifade etmektedir. Bu değerleri kendinize göre düzeltirsiniz.

Sub Formül_Kopyala()
    For X = 8 To 100 Step 3
        Range(Cells(9, X), Cells(9, X + 1)).Copy
        Range(Cells(10, X), Cells(1000, X + 1)).PasteSpecial xlPasteFormulas
    Next
    Application.CutCopyMode = False
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bebar]

hocam çok teşekkür ederim ama sanırım özel yapıştırıp değerleri kaldırmıyor yapmıyor.

Alakanız için tekrar teşekkür ederim.

 

[Korhan Ayhan]

Önerdiğim kod 9. satırdaki formülleri alt hücrelere kopyalar. Siz farklı bir işlem mi istiyordunuz?

 

[bebar]

hayır, 9. satırdan itibaren kopyaladıktan sonra 10. satırdan itibaren tekrar kopyalayıp özel yapıştırıp değerli ( formüllerden kurtarmak için dosya kasmasın diye) yapıyorum.

 

[Korhan Ayhan]

Aşağıdaki gibi kullanabilirsiniz.

Sub Formül_Kopyala()
    Application.ScreenUpdating = False
    For X = 8 To 100 Step 3
        Range(Cells(9, X), Cells(9, X + 1)).Copy
        Range(Cells(10, X), Cells(1000, X + 1)).PasteSpecial xlPasteFormulas
        Range(Cells(10, X), Cells(1000, X + 1)).Copy
        Range(Cells(10, X), Cells(1000, X + 1)).PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[bebar]

teşekkür ederim