Not Defterindeki Satır Atlama Karakteri

[hakki83]

Merhaba

Hocalarımıza iki sorum vardır.
Önce önemli olanını sorayım.

Not defteri ortamında, yani bildiğimiz txt dosyasında,
enter tuşuna basıp satır atladığımız zaman, oluşan karakteri, kopyalama imkanımız var mıdır?

Amacım VBA kod sayfaları tarafındaki entere basarak oluşan boş satırları yok etmek.
——
Diğer sorum da şudur:

Örnek dosyada birkaç deneme yaptım

Klavyede rastgele
ALT + 1287 yazdım, bir karakter çıktı.
ALT + 250 yazdım, başka bir karakter
183 ve 7 ile başka karakterler çıktı.

Sorum şudur:
ALT tuşuyla beraber yazılarak çıkacak karakterlerin bir listesi, ya da bir web sayfası vs var mıdır?

 

[Korhan Ayhan]

İnceleyiniz.

https://www.excel.web.tr/threads/klavyenin-gizli-karekterleri.71156/

 

[hakki83]

Korhan hocam sağ olunuz, inceliyorum. Fakat bir sorum var, olumsuz da olsa cevabınızı bekliyorum.

Diyelim ki bir dosyada VBA’da onlarca kod grubunuz var

Ve her kod satırının arasında (düzensiz entere basıldığı için) çok fazla düzensiz boşluklar var.


Bu boş satırları manuel silme dışında topluca silme yöntemi var mıdır?

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Delete_Blank_Line_Module()
    Dim X As Long, Line_Text As Variant
    
    With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
        For X = .Countoflines To 1 Step -1
            Line_Text = .Lines(X, 1)
            If Trim(Line_Text) = vbNullString Then
                .DeleteLines X
            End If
        Next
    End With
    
    MsgBox "Modüle1 içindeki boş satırlar silinmiştir.", vbInformation
End Sub

 

[hakki83]

Deneyiniz.

Option Explicit

Sub Delete_Blank_Line_Module()
    Dim X As Long, Line_Text As Variant
  
    With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
        For X = .Countoflines To 1 Step -1
            Line_Text = .Lines(X, 1)
            If Trim(Line_Text) = vbNullString Then
                .DeleteLines X
            End If
        Next
    End With
  
    MsgBox "Modüle1 içindeki boş satırlar silinmiştir.", vbInformation
End Sub

Korhan hocam tam istediğim gibi oldu, fakat sadece bir modüldeki boşlukları siliyor.

Tüm dosyadaki sayfalar ve modüllerim boşluklarını tek seferde sildirebilir miyiz bu kodla?

Eğer bunu bu kodla yaptırabilirsek çok iyi olur.