sütundaki boşluğu silme

[aliduran]

Merhaba
Sütündaki rakamlardan önce bir başluk var
bu boşlukları nasıl silebilirm
Ctrl+h ile boşluk silme işlemini uygulayamaıyorum. boş değeri bulamadıgını söylüyor

 

[Ömer BARAN]

Merhabalar, veriniz A1 hücresinde ise, birinci satırda başka bir hücreye "=KIRP(A1)+0" formülü uygulayınız, sonra formülü aşağıya doğru çoğaltınız.

Ya da formülsüz çözüm için; başka bir hücreye 1 yazıp, 1 yazdığınız hücreyi kopyalayın, durumu bahsettiğiniz şekilde olan hücreleri veya sütunları seçip "Özel Yapıştır" -> "Çarp" -> "Tamam" demeniz yeterli.

İyi günler.

 

[KAMİKAZEH]

Satır arası Boşlukları Silmek

Merhaba,

Ekte gönderdiğim ekran alıntısında satır arası boşluklar var. Mesela A4 ve A5 gibi bu şekilde sayfa A280 e kadar gidiyor. o boşlukları silmek istiyorum.

 

[YUSUF44]

A sütununu seçin
F5 tuşuna basın
Özel'i seçin
Boşlukları Seçin
Tamam deyin
Seçili hücrelerden birine sağ tıklayın
Sil'i seçin
Tüm Satır'ı seçin

Seçili satırlar silinecektir.

Bu uygulamada dikkat etmeniz gereken ise örneğin A5 boş ama B5 doluysa ve siz A sütununda bu işlemi yaparsanız, 5. satır silinecek dolayısıyla dolu olan B5 de silinecektir. B5'in silinmemesini istiyorsanız bu işlemi A sütununda yapmamalısınız.

 

[KAMİKAZEH]

Ömer Baban olmadı

 

[YUSUF44]

Ömer Baban olmadı

Ömer Bey size cevap vermemiş ki

 

[KAMİKAZEH]

haklısın...Yusuf Kardeşim Teşekkürler.

 

[KAMİKAZEH]

Yusuf Kardeşim ;

İşlemi tarif ettiğiniz şekilde yaptım. A,B,C,D,E,F,G sütunlarını komple seçip tarifiniz üzere yaptım. ekran alıntısını incelerseniz A4 te yazı var A5 yok, A4 ü silmiyor A5 boş olduğu için siliyor. ben ikisinide silmek istiyorum

 

[KAMİKAZEH]

Ekte Excel örneği

 

[KAMİKAZEH]

Böyle olsun istiyorum. ama olmuyor.

 

[YUSUF44]

Sonuçta o işlem boş olan hücrelerin satırını silmeye yarıyor. A4 dolu olduğuna göre boş hücre olarak seçilmeyecek ve satırı da silinmeyecektir doğal olarak. Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Kodlar A sütununda Normal Gün : olan ya da boş olan ya da D sütunu 11 karakter olmayan satırları silmektedir:

Sub sil()
For i = Cells(Rows.Count, "A").End(3).Row To 3 Step -1
    If Len(Cells(i, "D")) <> 11 Or Cells(i, "A") = "" Or Cells(i, "A") = " Normal Gün :" Then Rows(i).Delete
Next

End Sub

[/CODE]

 

[KAMİKAZEH]

Yapamadım

 

[YUSUF44]

Kodları kopyalayın
Excel dosyasına geçin
Sayfa ismine sağ tıklayıp kodları görüntüle deyin
Açılan sayfada Insert menüsünden Module'yi seçin
Açılan sayfaya kodları yapıştırın
Excel sayfanıza herhangi bir resim şekil düğme vs ekleyin
Eklediğiniz nesneye sağ tıklayıp Makro ata deyin
Yukardaki verdiğim makroyu seçin

Artık o nesneye her bastığınızda makro çalışacaktır. Bu yöntemi Sub ile başlayan tüm makrolar için kullanabilirsiniz.
Kapanışta makro silinmesin diye dosyayı Makro İçerebilen Excel Dosyası olarak kaydetmelisiniz.

 

[KAMİKAZEH]

Desteğiniz için teşekkürler..