Soru Vba da yorum satırı (Yani tek tırnak)

[mehoaga]

Arkadaşlar;
Excel vba da makro ile yazılmış verilerimiz var misal bunların tümünü yorum satırına almak için ne yapmamız gerekiyor. Vba da bununla ilgili bir kısa yol varmıdır acaba. Konu hakkında bilgilerinizi rica ederim.

 

[Muzaffer Ali]

Merhaba.
Module1'deki kodlara işlem yapar.

Sub TumKodlariYorumSatirinaCevir()
    Dim vbComp As Object
    Dim vbMod As Object
    Dim Bak As Long
    Dim Satir As String
    Set vbComp = ThisWorkbook.VBProject.VBComponents("Module1")
    Set vbMod = vbComp.CodeModule
    For Bak = 1 To vbMod.CountOfLines
        Satir = vbMod.Lines(Bak, 1)
        vbMod.ReplaceLine Bak, "'" & Satir
    Next
End Sub

Sub TumYorumSatirlariniGeriCevir()
    Dim vbComp As Object
    Dim vbMod As Object
    Dim Bak As Long
    Dim Satir As String
    Set vbComp = ThisWorkbook.VBProject.VBComponents("Module1")
    Set vbMod = vbComp.CodeModule
    For Bak = 1 To vbMod.CountOfLines
        Satir = vbMod.Lines(Bak, 1)
        If Left(Satir, 1) = "'" Then
            vbMod.ReplaceLine Bak, Mid(Satir, 2)
        End If
    Next
End Sub

 

[mehoaga]

Muzaffer ali bey değerli yanıtınız için çok tşk ediyorum. Ellerinize kollarınıza sağlık. Bu verdiğiniz makro kodlarını denerim çalışıyor veya olmadı diye dönüş yaparım.

 

[volki_112]

Arkadaşlar;
Excel vba da makro ile yazılmış verilerimiz var misal bunların tümünü yorum satırına almak için ne yapmamız gerekiyor. Vba da bununla ilgili bir kısa yol varmıdır acaba. Konu hakkında bilgilerinizi rica ederim.

Bunu izleyiniz

 

[mehoaga]

Bunu izleyiniz

volki_112 kardeşim yanıtınız için Çok ama çok tşk ederim video olayı gayet güzel anlatıyor. Sağolasın varolasın. selametle kalınız.