BoŞ HÜcre Sİlme

[ozpoli]

ArkadaŞlar TaradiĞim Alandaki BoŞ HÜcrelerİ Sİlecek Ve Dolu Olanlarida Sola Yaslayacak Bİr Makro

 

[Seyit Tiken]

Sub Makro1()
[a1:a1000].SpecialCells(4).Delete
[a1:a1000].HorizontalAlignment = 2
End Sub

 

[Necdet]

Merhaba,

Sayın Seyit Tiken Bey yanıtlamış, seçenek olarak :

Önce alanı tarayınız sonra aşağıdaki kodları çalıştırınız.

Sub Macro1()
    Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

 

[ozpoli]

Hata Veriyor 1004 Diye

 

[ozpoli]

Benim Alan SaĞa Dogru Sutun Olarak ----alv---- Satirolarak Ta 4000 Olacak Sekilde Boyle Bu Alani Tarayinca Hata Veriyor

 

[Necdet]

Merhaba,

Boş hücre bulamadığı zaman hata verir, kodları aşağıdaki şekilde değiştiriniz.

Sub Macro1()
[B][COLOR=red]    On Error Resume Next
[/COLOR][/B]    Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

 

[ozpoli]

Ornek Ektedir

Arkadaslar Ekteki Listede Yapmak Istiyorum Aradaki Bosluklar Silini P Degerlerin Tamamini Sola Yaslayacak

 

[ozpoli]

Necdet Bey Ekte Yolladigim Dosyada Olmuyor

 

[Necdet]

Merhaba,

Sanırım siz hücreleri seçmeden yapıyorsunuz, bende çalıştı. Tüm sayfayı seçip makroyu çalıştırmak gerekiyor.

Kodları aşağıdaki şekilde değiştirirsek sorun kalmaz sanırım. Seçim işini de makroya atalım, o çalışsın

Sub Macro1()
    On Error Resume Next
    Cells.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub

 

[ozpoli]

yaptıgınız dosyayı yollarmısınız bende hala hata verıyor

 

[ozpoli]

sıze ılgınız ıcın tsk ederım ama ben bı turlu calıstramadım

 

[Necdet]

Sayın ozpoli,

Excel işlem görmemiş olan hücreleri boş hücre olarak algılamıyor. Dolayısıyla hem Sayın Seyit Tiken'in hemde benim önerim sizin sorununuzu çözmekte aciz kalıyor.

Bunun başka bir yolu belki vardır ama ben bilmiyorum. Aklımın bir köşesinde bu sorun duruyor, umarım bir arkadaşım yardımcı olabilir.

 

[Seyit Tiken]

Bana göre, dağınık bir şekilde olan verilerin arasındaki boşlukları silmek, excel mantığına terstir. Belli bir satır veya sütun hizasında olursa istenilen gerçekleşir.

 

[ozpoli]

Necdet bey olay gercekleştı cok tşk ederim