Kopyala Yapıştır Hata !?

[ERRİC]

Selamlar ; Kopyala yapıştır dediğimiz de kutucuk içinde metin şeklinde geliyor , ekte ekran görüntüsü ve dosya var nasıl kopyala yapıştır yapabilir veya excel yapıştırırken normal şekilde dökülmesini sağlayabiliriz

 

[Muzaffer Ali]

Merhaba.
Sağ tıklatıp "Özel Yapıştır" tıklatın, açılan penceredeki seçenekleri deneyin.

 

[ERRİC]

Hocam yapamadım olmuyor excele bu hali ile "Örnek" aldıktan sonra düzeltilebilir mi

 

[Muzaffer Ali]

Aşağıdaki kodu bir modüle kopyalayın. Verilerin olduğu sayfa aktifken kodları çalıştırın.

Başlıkları da siz ayarlarsınız.
18 yatay eksende nesne sayısını temsil ediyor. Eğer yatay eksende nesne sayısı değişirse bu rakamı ona göre değiştirmelisiniz.

Sub Test()
    Dim txt As OLEObject
    Dim syf As Worksheet
    Dim syfYeni As Worksheet
    Dim Kolon As Integer
    Dim Satir As Integer
    Satir = 1
    Set syf = ActiveSheet
    Set syfYeni = Worksheets.Add
    For Each txt In syf.OLEObjects
        If txt.progID Like "*HTML:Text*" Then
            Kolon = 1 + Kolon
            syfYeni.Cells(Satir, Kolon).Value = txt.Object.Value
            If Kolon = 18 Then
                Kolon = 0
                Satir = 1 + Satir
            End If
        End If
    Next
End Sub

 

[ERRİC]

Teşekkürler Sayın "Dalgalıkur" elinize sağlık ;

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.