Boş satırları silme

[matay07]

Elimde 54 satır dolu 14 satır boş 54dolu 14 boş 234 sayfalık bir rapor var bu raporda aradaki boş satırları silmek istiyorum aynı anda yardımcı olurmusunuz

 

[İhsan Tank]

ufak bir dosya ekler misiniz_?

 

[matay07]

Tabi Ekledim Allah razı olsun

 

[İhsan Tank]

Tabi Ekledim Allah razı olsun

merhaba
boş bir module ekleyin ve çalıştırın

Option Explicit
Sub boş_sil()
Dim ts, kaplan
kaplan = MsgBox("Boşlukları Siliyorum", vbYesNo, "Onay")
Application.ScreenUpdating = False
For ts = Cells(65536, "A").End(xlUp).Row To 1 Step -1
If Cells(ts, "A") = "" And Cells(ts, "B") = "" And Cells(ts, "C") = "" Then
Range("A" & ts & ":C" & ts).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox "Boşlukları Sildim", vbInformation, "Bitiş"
End Sub

not: dosyayı kaydederken makro içerebilen dosya şeklinde kayıt yapmalısınız. uzantısı .xlsm olmalı

 

[matay07]

Ben bu zamana kadar hiç makro kydetmedim size zahmet olacak ama nasıl yapacğım ve nasıl kullanacağımı anlatırsanız duacı olurum

 

[İhsan Tank]

Ben bu zamana kadar hiç makro kydetmedim size zahmet olacak ama nasıl yapacğım ve nasıl kullanacağımı anlatırsanız duacı olurum

merhaba
önce makro ayarlarını değiştirmelisiniz
buyrun burada resimli anlatım var tıklayın
butonlar için geliştirici sekmesini aktif etmeniz gerek
buyrun bununda resimli anlarımı var tıklayın
boş module eklemek için tıklayın resimli anlatım
buton'a atamak için
lütfen tıklayın resimli anlatım
makro içerebilen dosya şeklinde kayıt yapma
tıklayın resimli anlatım.

bir de ben makro kullanmak istemiyorum derseniz size basit bir yol tarif edeyim.
A B C sütunlarını seçin
F5 tuşuna basın - özel - açılan menüden boşluklar'ın tik'ini işaretleyin ve tamam deyin aşağıda taralı bölgelerden birinin üzerine sağ tuş tıklayın ve sil deyin soru soracak hücreleri yukarı sürükleyi seçin ve tamam deyin. başarılar

 

[matay07]

Allah razı olsun ikinci yolu yaptım işimi gördü makroyu çalışıp ögrencegim inşallah çok güzel bir anlatımda.
Ramazanınız mubarek olsun Allah razı olsun

 

[İhsan Tank]

Allah razı olsun ikinci yolu yaptım işimi gördü makroyu çalışıp ögrencegim inşallah çok güzel bir anlatımda.
Ramazanınız mubarek olsun Allah razı olsun

Allah Hepimizden Razı Olsun
Sizinde Ramazanınız Mübarek Olsun
kolay gelsin
:yazici:

 

[matay07]

İhsan bey birkonuda yardımınızı almak istiyorum

yardımınıza ihtiyacım olan konuyu dosyasını yükledim ve içinde açıkladım

 

[İhsan Tank]

sorunuzun bu konu ile alakası nedir ben çözemedim.

sorunuzu ayrı bir başlık altında sorunuz

 

[matay07]

Haklısınız konuyla bir ilgisi yok ama bu konuda gösterdiğiniz ilgiden dolyı size yazmak istedim geçen seferki anlatımız sayesinde çok şey ögrendim Allah razı olsun o yüzden sizin ilgilenmenizi istediğim için burdan yazdım bu konudada bilginiz va ise yardımcı olursanız çok sevinirim fromda daha yeniyim bir kurar ihlalim olduysada affola