Çözüldü AÇIKLAMA İÇİNDEKİ METİNLERİ HÜCREYE AKTARMA

[HOROZKENTLİ96]

İyi günler.

Elimde binlerce satır açıklama var ve bunları düzenleyerek içine yeni veriler girmek aşırı zaman kaybettiriyor.

Bu açıklama içindeki metinleri boş hücreye nasıl aktarabilirim.

Biraz araştırdım ama bir şeyler bulamadım.

Nasıl bir yol izleyebilirim. Şimdiden teşekkür ederim

 

[hasankardas]

İyi günler,
Örnek metin koyarsanız bir yöntemi vardır mutlaka..

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod seçili olan hücrelerin açıklamasını aynı satır hizasında A sütununa yazar.

Kodu herhangi bir modüle kopyalayarak çalıştırınız.

Sub Test()
    Dim Bak As Range
    For Each Bak In Selection
        If Not Bak.Comment Is Nothing Then
            Cells(Bak.Row, "A") = Replace(Replace(Bak.Comment.Text, Bak.Comment.Author & ":", ""), Chr(10), "")
        End If
    Next
End Sub

Farklı bir sütuna yazmak için "A" yı değiştirebilirsiniz.

 

[HOROZKENTLİ96]

İyi günler,
Örnek metin koyarsanız bir yöntemi vardır mutlaka..

Dosyayı şuan yükleyemedim link olarak paylaşıyorum kusura bakmayın.
https://products.aspose.app/cells/tr/viewer/view?FolderName=e4c8366d-1259-44ab-b166-9c50513a36ab&FileName=Kitap1.xlsx&Uid=cefc8d3e-4f84-4f04-ad64-a200325fd84d.xlsx

 

[HOROZKENTLİ96]

Merhaba.
Aşağıdaki kod seçili olan hücrelerin açıklamasını aynı satır hizasında A sütununa yazar.

Kodu herhangi bir modüle kopyalayarak çalıştırınız.

Sub Test()
    Dim Bak As Range
    For Each Bak In Selection
        If Not Bak.Comment Is Nothing Then
            Cells(Bak.Row, "A") = Replace(Replace(Bak.Comment.Text, Bak.Comment.Author & ":", ""), Chr(10), "")
        End If
    Next
End Sub

Farklı bir sütuna yazmak için "A" yı değiştirebilirsiniz.

Muzaffer Bey sorunsuz çalıştı.
Değerli zamanınızı ayırdığınız için teşekkür ederim.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.