Toplu veri kopyalama için kod

[ferhatgurbuz]

"Gündem" sayfasındaki B7:N25 hücrelerindeki verileri bir buton yardımı ile "DATA" sayfasına ama sayfasın son dolu hücresinden sonra taşımak istiyorum
Kolay gelsin

 

[mancubus]

Data'da A sütununun altına kopyalanacağı varsayımı ile:

Worksheets("Gündem").Range("B7:N25").Copy _
Destination:=Worksheets("DATA").Range("A65536").End(xlUp).Offset(1,0)

 

[ferhatgurbuz]

Offset (1;0) bir üzerinde hata veriyor

Data sayfasının B3 hücresinden itibaren kopyalama yapmasını istiorum. Aceba gündem sayfasındaki F 7 ile N7 arasındaki hücrelerde formül va o yüzden olabilir mi eğer formülü kopyalamaz ise sadece değer olarak yapıştırsın eğer mümkün se

 

[mancubus]

sadece değerleri kopyalamak istiyorsanız:

Sub kopyala()

Dim bura As Range, buraya As Range

Set bura = Worksheets("Gündem").Range("B7:N25")
Set buraya = Worksheets("DATA").Range("A65536").End(xlUp).Offset(1, 0)

bura.Copy
buraya.PasteSpecial Paste:=xlValues

Set bura = Nothing
Set buraya = Nothing

End Sub

not: aslında forumda koyala yapıştır ile ilgili yüzlerce örnek var. akla gelebilecek bir çok olasılığın cevabını rahatlıkla bulabilirsiniz. arama fonksiyonunu etkin kullanmayı da ihmal etmeyelim.

 

[ferhatgurbuz]

Hocam ellerine sağlık. Bu kod işime yarıyor ama birde şöyle birşey yapabilir miyiz.
E sutununu kıyaslayıp kopyalama yapsa. Yani E7 ile E25 arasındaki satırlardan sadece dolu olanları kopyalasa olur mu.

 

[mancubus]

Sub c()

Dim ws As Worksheet
Dim buraya As Range

Application.ScreenUpdating = False

Set ws = Worksheets("Gündem")
  
With ws
    For i = 7 To 25
        Set buraya = Worksheets("DATA").Range("A65536").End(xlUp).Offset(1, 0)
        If .Range("E" & i) <> "" Then
            .Range("B" & i & ":N" & i).Copy
            buraya.PasteSpecial Paste:=xlValues
        End If
    Next
    Application.CutCopyMode = False
End With

Set ws = Nothing
Set buraya = Nothing

Application.ScreenUpdating = True

End Sub

 

[ferhatgurbuz]

teşekkür ederim. kolay gelsin.