Yapıştır Makrosu

[uKiGS]

Merhabalar,

Yeni yapmakta olduğum excel için bir yapıştır makrosu aramaktayım.

Webden aldığım metni C6 hücresinden itibaren "Hedef Biçimlendirmesiyle Eşleştir "şeklinde yapıştırmasını istiyorum. Örnek bir çalışma dosyası şu an için yok. Bu makroyu halledebilirsem kafamda bir plan var ona göre yapacağım.

Yardımlarınız için şimdiden teşekkürler.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub yapıstır()
[C6].PasteSpecial
End Sub

 

[uKiGS]

İlginiz için teşekkürler öncelikle. Bu vermiş olduğunuz kodda yapıştırmayı normal şekilde yapıyor. Benim istediğim Hedef Biçimlendirmesiyle Eşleştir seçenekli yapıştırma.

 

[uKiGS]

formatı bozuyor ama bu da işimi gördü. Çok teşekkür ederim.

 

[Muzaffer Ali]

Şöyle de olabilir.

Sub yapıstır()
[C6].PasteSpecial xlPasteValues
End Sub

 

[uKiGS]

Teşekkür ederim yardımlarınız için her iki güzide arkadaşa da

 

[uKiGS]

Peki ben sayfa2 ye makroyu koyup sayfa 3 de belirlediğim alana yapıştırmak için ne yapmam lazım ?

Sub yapıstır()
Sheets("Sayfa3").Range[C6].PasteSpecial xlPasteValues
End Sub

Bunu yapıyorum ama yanlış yapıyorum sanırım ?

 

[uKiGS]

Sub yapıstır() [C6].PasteSpecial xlPasteValues End Sub

Sizin verdiğiniz örnekten yola çıkarak bir de bunu denedim ama olmadı ne yazık ki





yardımcı olursanız sevinirim.

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

On Error Resume Next
Application.ScreenUpdating = False
Sayfa3.[C6].PasteSpecial

 

[uKiGS]

Dediğinizi yaptım ama bunda da olmadı. Kopyaladığım veri webden kopyaladığım bir veri bu sebepten dolayı olabilir mi?

 

[Orion1]

Dediğinizi yaptım ama bunda da olmadı. Kopyaladığım veri webden kopyaladığım bir veri bu sebepten dolayı olabilir mi?

Muhtemelen.

 

[uKiGS]

Muhtemelen.

Çözüm için bir öneriniz olur mu sayın ustam

 

[Orion1]

Çözüm için bir öneriniz olur mu sayın ustam

Maalesef yok.

 

[uKiGS]

Maalesef yok.

Sağlık olsun o zaman elle kopyala yapıştır yapmaya devam

 

[Orion1]

Belki api ile olur.
Elinde api olan arkadaşlar varsa yazabilirler.

 

[Orion1]

Böyle oldu.
A1 hücresine yapıştırıyor.

Range("A1").Select
ActiveSheet.Paste

 

[uKiGS]

Böyle oldu.
A1 hücresine yapıştırıyor.

Range("A1").Select
ActiveSheet.Paste

Evet bu kod ile yapıştırıyor fakat siteyi olduğu gibi yapıştırıyor. Benim istediğim "Hedef Biçimlendirmesiyle Eşleştir" şeklinde yapıştırması. Böyle yapıştırdığında benim formüllerimi algılamıyor o zaman

 

[Orion1]

Kopyalanacak yeri seçince olmuyormu.

 

[uKiGS]

Kopyalanacak şeyi seçtiğimde otomatik olarak aynı sitede olanı birebir kopyalıyor. Benim istediğim siteyi kopyaladığında Hedef Biçimlendirmesiyle eşleştir yaparsa o zaman formüllerim bozulmuyor benim.

 

[Orion1]

O range sınıfın özelliği.Sizinki Excel üzerindeki range den değil,başka bir yerden geliyor.