• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Run-time-error '1004': Range sınıfının PasteSpecial yöntemi başarısız hatası

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
mert25

mert25

Gold Üye
Katılım
25 Ağu 2022
Mesajlar
361
Çözümler
2
Aldığı beğeni
67
Excel V
Office 2016 TR
Gold Bitiş
14 Eylül 2025
Konu Sahibi
Merhabalar

İnternette bulduğum aşağıdaki kod ile bir web sayfasından kopyaladığım verileri (ctrl + shift + z kısayolu ile) excel sayfasına değer olarak yapıştırabiliyordum. Fakat şimdi
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
veriyor. Eğer excel sayfasından bir veri kopyalarsam bunda hata vermiyor fakat web sayfasından kopyaladığım veride bu hatayı veriyor. Çözümü ne olabilir?

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Tarihe göre sırala Oylara göre sırala
Pratik olarak başka bir hücreye yapıştırıp oradan kopyalayıp veri olarak yapıştırma işlemi yapabiliriz.
Bunun için hücre yapıştırma özelliği değil de sayfa yapıştırma özelliğini kullanabiliriz.
Bu şekilde deneyiniz:

Dim ss1 As Worksheet, gecici1 As Range, hedef1 As Range

Set ss1 = ActiveSheet: Set gecici1 = ss1.Range("CC1"): Set hedef1 = Selection
ss1.Paste gecici1: gecici1.Copy
hedef1.PasteSpecial xlPasteValues, xlNone, False, False
gecici1.Clear
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Konu Sahibi
Ümit Bakacak' Alıntı:
Pratik olarak başka bir hücreye yapıştırıp oradan kopyalayıp veri olarak yapıştırma işlemi yapabiliriz.
Bunun için hücre yapıştırma özelliği değil de sayfa yapıştırma özelliğini kullanabiliriz.
Bu şekilde deneyiniz:

Dim ss1 As Worksheet, gecici1 As Range, hedef1 As Range

Set ss1 = ActiveSheet: Set gecici1 = ss1.Range("CC1"): Set hedef1 = Selection
ss1.Paste gecici1: gecici1.Copy
hedef1.PasteSpecial xlPasteValues, xlNone, False, False
gecici1.Clear
Genişletmek için tıkla...

Cevap için teşekkür ederim fakat bu şekilde yine iki işlem yapmış olacağım, diğer türlü tek işlemde halledebiliyordum. Daha önce çalışan kod ne oldu da çalışmamaya başladı onu anlayamadım.
 
Olumlu oy 0 Negatif oyla
Siz iki işlem yapmayacaksınız. Bütün işi kodlar yapacak. Siz web sayfasından veriyi kopyaladıktan sonra Excel sayfasında makroyu çalıştıracaksınız. Hepsi bu kadar.
 
Olumlu oy 0 Negatif oyla
Deneyiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Olumlu oy 0 Negatif oyla
Olumlu oy 0 Negatif oyla
Konu Sahibi
Cevaplar için teşekkür ederim. Elinize emeğinize sağlık.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst