Yazı Tipi ve Ölçüsü

[hacicemal]

Yazı Tipi ve Ã?lçüsü

Merhabalar başka bir dosyadan kopyaladığım verileri bir diğer sayfaya yapıştırmak istediğimde yazı tipi ve ölçüsünün aynı olması için özel yapıştır/değerleri menüsünü kulllnamak zorunda kalıyorum buda işlemlerimi yavaşlatıyor. dosyaya bir başka dosyadan girdiğim verilerin o dayadaki yazıtipi ve ölçüsünü otomatik alması için ne yapmalıyım?
Yardımlarınızı bekliyorum...

 

[Levent Menteşoğlu]

Neden değerleri seçiyorsunuz buna hiç gerek yok, copy-paste yaptığınızda biçimleri ve değerleri zaten beraber kopyalamış olursunuz.

 

[hacicemal]

Kopyaladığım sayfadaki font Aria 7 ölçek, Yapıştırdığım sayfadaki Font Times 10 ölçek. Yani bir başka dosyadan kopyaladığım verinin yapıştırdığım sayfadaki yazı tipi ve ölçüsünü almasını istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:494e1168be]Sub copy()
Sheets("sayfa1").[a1].copy
Sheets("sayfa2").[a1].PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
[/vb:1:494e1168be]

 

[hacicemal]

Tam olarak : Başka bir dosyadan kopyaladığım verileri bir diğer sayfaya(Dosyaya) yapıştırmak istediğimde yazı tipi ve ölçüsünün aynı olması için tam olarak ne yapmam gerekir.

 

[Levent Menteşoğlu]

Paste:=xlValues

Yukarıdaki kısmı kaldırın.

 

[hacicemal]

Hocam menfi müsbet herhangi bir sonuç alamadım....

 

[Ongun]

Sayın Leventm yazdığı kodu aşağıdaki gibi deneyin. Kolay gelsin.
Sayfa1`in Worksheet kısmına yazabilirsiniz.
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("sayfa1").[a1].Copy
Sheets("sayfa2").[a1].PasteSpecial
Application.CutCopyMode = False
End Sub

 

[hacicemal]

Verileri başka sayfadan değil bir başka dosyadan kopyalıyorum, formül yararlı olur mu?