Seçili Hücrelerden Boşlukları Kaldırma
01 Ağustos 2020
28 Şubat 2021
697
Bu kod ile Seçili Hücrelerden Boşlukları Kaldırma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub RemoveSpaces()
Dim myRange As Range
Dim myCell As Range
Select Case MsgBox("Bu işlem geri alınamaz! " & "Önce kayıt etmek ister misiniz?", vbYesNoCancel + vbQuestion, "UYARI")
Case Is = vbYesThisWorkbook.Save
Case Is = vbCancel
Exit Sub
End Select
Set myRange = Selection
For Each myCell In myRange
If Not IsEmpty(myCell) Then
myCell = Trim(myCell)
End If
Next myCell
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Excel'de fazladan kalmış boşlukları hızlı bir şekilde kaldırmak için üstteki kodu kullanabilirsiniz.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Ad Kutusunu Seçme | Alt F3 |
| Hücrede Yatay Ortalama Yapmak | Alt Ş OO |
| Veri Aralığının En Soluna Gitme | Ctrl ← |
| Formül Çubuğunu Gizleme Gösterme | Alt M F |
| Ortası Çizgili Yazdırma | Ctrl 5 |