Hata ne olabilir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

    Range(Range("D1").Text).Copy
    Range(Range("D2").Text).PasteSpecial xlPasteValues

yukarıdaki iki satır, bulunduğu sayfada D1 hücresinde yazılı bölgeyi, D2 hücresinde yazılı farklı sayfadaki belli bölgeye yapıştırmak için kullandığım makro parçasıdır.
Bir sebepten dolayı 1004 hatası veriyor. Neden olabilir?
Saygılarımla

 

[Necdet]

Selam,

Baya uzatmışsınız.

    Range("D1").Copy
    Range("D2").PasteSpecial xlPasteValues

 

[Muzaffer Ali]

Ben soruyu farklı anladım. Anladığım şekli ile aşağıdaki kodları yazdım.
Deneyin bakalım istediğiniz çözüme ulaşacak mısınız?

Sub KopyalaYapistir()
    Dim SayfaAdi As String
    Dim HucreAdresi As String
    
    Range("D1").Copy
    
    SayfaAdi = "Sayfa2" 'Hangi sayfaya yapıştırılacağını buraya yazın
    HucreAdresi = Range("D2").Text ' D2 hücresinde belirtilen hücre adresine yazılacak
    'Benim "D2" hücremde "A3" yazıyor.
    
    Worksheets(SayfaAdi).Range(HucreAdresi).PasteSpecial xlPasteValues
    
    'Sonuç "Sayfa2" adlı sayfanın "A3" hücresine yapıştırılacak
End Sub

 

[Necdet]

Tekrar Merhaba,

Sayın Dalgalıkur uyarınca soruyu yanlış anladığımı anladım.

Sanırım aşağıdaki kod işinize yarar. D1 hücresinin içeriği A5 gibi bir değerse, aşağıdaki kod A5 hücresini istediğiniz yere kopyalar.

Sub Kopyala()

    Dim Hcr As Range
    
    Set Hcr = Range(Range("D1").Text)
    
    Hcr.Copy
    
    Range("D2").PasteSpecial xlPasteValues
    
End Sub

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Hepinizin ilgilerine teşekkür ederim.
D1 hücresinde Sayfa1!F6:F20
D2 hücresinde Sayfa2!M6:M20
adresleri var. Yapmak istediğim D1 hücresinde belirtilen bölgeyi D2 hücresinde belirtilen bölgeye kopyalamak. Üstelik çalışan bir makro parçası bu. Sizin çalışmaları da denedim her seferinde
Run-time error '1004':
Application-defined or object-defined error
mesajı verip duruyor. Belli ki sevmediği bir şey var.
Bu vesile ile hepimizin Ramazan ayı mübarek olsun, Allah her yıllara sağ eylesin.
Saygılarımla

 

[Necdet]

Merhaba,

Açıklamayı ilk mesajda daha kapsamlı anlatsaydınız, 2. yanıtta biterdi, uzamazdı.
İlk önerdiğim mesajdaki mantık yine geçerli.

Sub Kopyala()

    Dim Rng1    As Range, _
        Rng2    As Range
        
    Set Rng1 = Range(Range("D1").Text)
    Set Rng2 = Range(Range("D2").Text)
    
    Rng1.Copy
    
    Rng2.PasteSpecial xlPasteValues
    
    Set Rng1 = Nothing
    Set Rng2 = Nothing
    
End Sub

 

[Tevfik_Kursun]

Haklısınız Sayın Necdet Hocam,
İlginize çok teşekkür ederim.
Makro çalıştı.
Saygılarımla