Kapali Dosyada Dizisel Kopyalama

[baydeniro]

Merhaba arkadaşlar. Kapalı bir dosyada açık olan satırlara dizisel kopyalama nasıl yapılır ? Ekteki dosyanın DATA sayfasındaki D3:G3 satırındaki bilgileri D5:G5, D7:G7 .... olarak kopyalamak istiyorum. Ancak çift numaralı (4-6-8 ... ) satırlar korumalı olduğundan yapamıyorum.

Sayfa Unprotect parolası : 1

 

[Ferhat Pazarçevirdi]

Sorunuzu tam olarak anlayamadım.

Siz başka (farkl&#305 bir dosyadan, kapalı durumda olan bu dosyaya ulaşıp, D3:G3 aralığını, bahsettiğiniz diğer aralıklara kopyalamak mı istiyorsunuz?

Yoksa, bütün bahsettiğiniz işlemlerin, bu kitap içerisine yerleştirilecek kodlarla yapılmasını mı? (Yani başka bir çalışma kitabı olmadan, bu dosya açıkken)

 

[baydeniro]

Evet fpc, başka bir dosya olmaksızın işlemin sadece bu dosya olması gerekiyor.

 

[Ferhat Pazarçevirdi]

Aşağıdaki kodu kullanın.

 Sub Kopyala()
Dim sh As Worksheet
Dim i%, j%, son%
Set sh = Sheets("Data")
son = sh.Cells(65536, 1).End(xlUp).Row
For i = 5 To son Step 2
    For j = 4 To 7
        sh.Cells(i, j) = sh.Cells(3, j)
    Next j
Next i
Set sh = Nothing
End Sub

 

[baydeniro]

Çok Teşekkürler

Sayın fpc çok çok teşekkürler. Tam istediğim gibi olmuş. Elleriniz dert görmesin. Sağlıcakla kalın.