Özel Yapıştırma Sorunu

[donjun]

Arkadaşlar şöyle bir sorum olacak,

S1.Range("c18").Copy Sheets(Sayfa).Cells(i, "x")

bu kod ile makroda bir hücredeki değeri farklı sayfalara aktarabiliyorum fakat hücrede formül oldugu zaman aktaramıyorum.bunun için alttaki kodu kullandım özel yapıştır yaptırdım fakat bu defada kaydederken önce kaydedecegi sayfayı açıyor kaydediyor daha sonra anasayfaya gidiyor.Bunun için nasıl bir yol kullanmalıyım acaba.Yardımlarınız için teşekküer ederim.

S1.Range("c18").Copy
Sheets(Sayfa).Cells(i, "x").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Ömer]

Merhaba,

Sorunuz anlaşılmıyor. Küçük bir örnek dosya ekleyerek ne yapmak istediğinizi detaylı açıklarmısınız.

.

 

[leumruk]

Merhaba,
Aşağıdaki gibi deneyin.

Application.ScreenUpdating = False
S1.Range("c18").Copy
Sheets(Sayfa).Cells(i, "x").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True

 

[donjun]

Sayın leumruk ilginiz ve aydınlatıcı bilginiz için çok teşekkür ederim.Sorunum çözülmüş oldu.