Makro Kodlama

[recepkull]

Arkadaşlar bir sayfadan başka bir sayfaya hücreleri makro ile kopyaladığım zaman o hücrelerin formüllerini de kopyalıyor. Bunun olmasını istemiyorum sadece hücrede formül ile çıkan sonucu kopyalasın formülü kopyalamasın istiyorum bunu nasıl yapabilirim.

ÖRNEK :

Sayfa1 de A1 hücresinde şöyle bir formül olduğunu düşünün =B1+B2

ben bu A1 hücresini sayfa2 de A1 hücresine makro ile kaydetmek istediğimde A1 hücresindeki formülü kopyalayıp sayfa2 deki A1 hücresine yapıştırıyor. Oysa benim yapmak istediğim B1+B2 nin sonucu neyse sadece o sonucu kopyalasın formülü kopyalamasın. Bunu nasıl yapabilirim ?

 

[Orion1]

Sayfa1 deki a1 hücresini kopyalayıp sayfa2 ye a1 hücresine sadece değerleri ve sayı biçimlerini yapıştırıyor

Sub yapistir59()
Sheets("Sayfa1").Range("A1").Copy
Sheets("Sayfa2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi düşünebilirsiniz.

Sheets("[B][COLOR="Red"]Sayfa1[/COLOR][/B]").[A1].Copy: Sheets("[B][COLOR="Blue"]Sayfa2[/COLOR][/B]").[A1].PasteSpecial Paste:=xlPasteValues

 

[recepkull]

Teşekkür ederim çok işime yaradı.

 

[Orion1]

Teşekkür ederim çok işime yaradı.

Rica ederim.
İyi çalışmalar.