Belirli Hücreler İçin Özel Yapıştır

[wenes]

Merhabalar.

İnternet sayfasından kopyaladığım metinleri Sayfa1'deki F3, F7, F11, F17 ve F20 hücrelerine CTRL + V ile yapıştırdığımda özel yapıştır ile metin türünde yapıştırılmasını istiyorum. Birtakım makrolar buldum fakat tam istediğime ulaşamadım.

Yardımlarınız için teşekkür ederim.

 

[anemis]

Ne tür bir içerik kopyalıyorsunuz? Excel e normal yapıştırın nasıl geldiği önemli değil. Sonra excel de yapıştırdığınız hücreleri seçin ve kopyalayın.
Yapıştırmak istediğiniz bölüme gidip sağ tık - özel yapıştır ı seçin

 

[wenes]

Ne tür bir içerik kopyalıyorsunuz? Excel e normal yapıştırın nasıl geldiği önemli değil. Sonra excel de yapıştırdığınız hücreleri seçin ve kopyalayın.
Yapıştırmak istediğiniz bölüme gidip sağ tık - özel yapıştır ı seçin

İnternetten sorgu sonuçlarını kopyalıyorum. Her seferinde sağ tık - özel yapıştır yapmamak için böyle bir makro bizlere gerekli. Zira gün içinde çok fazla yapılıyor.

 

[wenes]

Konu günceldir. Hücreye CTRL + V ile veriyi yapıştırdığımda "metin" şeklinde yapıştırılmasını istiyorum.

 

[ridvanucok]

Merhabalar.

İnternet sayfasından kopyaladığım metinleri Sayfa1'deki F3, F7, F11, F17 ve F20 hücrelerine CTRL + V ile yapıştırdığımda özel yapıştır ile metin türünde yapıştırılmasını istiyorum. Birtakım makrolar buldum fakat tam istediğime ulaşamadım.

Yardımlarınız için teşekkür ederim.

Merhaba,

Sadece belirtilen hücreler için ise aşağıdaki makroyu;

Sub OzelYapistirHucre()
'
' OzelYapistirHucre Macro
' F3,F7,F11,F17 ve F20 hücrelerini özel yapıştırır.
'

'
ActiveCell.Offset(2, 5).Range("A1").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(4, 0).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(4, 0).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(6, 0).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(3, 0).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(-19, -5).Range("A1").Select
End Sub

Tüm sayfaya özel yapıştır kullanmak istiyor isen aşağıdaki makroyu kullanabilirsin.

Sub ozelyapistir()
'
' ozelyapistir Macro
' Tüm hücreleri özel yapıştır ile yapıştırır.
'

'
ActiveCell.Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[wenes]

Merhaba,

Sadece belirtilen hücreler için ise aşağıdaki makroyu;




Tüm sayfaya özel yapıştır kullanmak istiyor isen aşağıdaki makroyu kullanabilirsin.

Teşekkürler hocam. Makroyu uyguladım fakat web sitesinden kopyaladığım içerik, hücreye yapıştırıldığında halen biçimlendirmesini koruyor.

CTRL + V ile direk alttaki gibi yapıştırılmasını istiyorum. Acaba kodu yanlış mı uyguladım?

 

[ridvanucok]

Alt + F11 kombinasyonunu kullanarak VBA alanına yerleştirdikten sonra Developer / Geliştirici menüsünden Makro'lardan çalıştırmanız gerekmekte. Yani işlemi yaptığınızda makroyu çalıştırdığınızda problem çözümlenmiş olacaktır.

 

[wenes]

Teşekkürler hocam elinize sağlık, istifade ediyoruz.