Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 11-08-2017, 12:06   #1
hopeful
Altın Üye
 
Giriş: 04/08/2006
Mesaj: 95
Excel Vers. ve Dili:
2017 Eng
Question Boşluk sil makroları

Merhabalar,
Ekli dosyadaki gibi veri tablosunda boşluklar yer almaktadır.
Yeni veri girişleri olacaktır. (Veri tablosu sabit değildir, hem satır hem de sütuna doğru genişlemektedir)

"Satır sil" butonuna basınca sadece satırdaki boşlukları silerek değerleri sol tarafa doğru yan yana sıralayacaktır

"Sütun sil" butonuna basınca da sadece sütundaki boşlukları silerek değerleri yukarı doğru sıralayacaktır.

Satır sil ve Sütün sil makrosu için yardımlarınızı rica ederim.

Saygılarımla,
Eklenmiş Dosyalar
Dosya Türü: xlsm boşlukları_sil.xlsm (13.6 KB, 12 Görüntülenme)
__________________
Excel 2016-Eng
hopeful Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 12:37   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,698
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıdaki kodları kullanabilirsiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ASKM_Satir_sil()
Dim SonSatir As Long
SonSatir = Cells(Rows.Count, "A").End(xlUp).Row
For i = SonSatir To 2 Step -1
    If Cells(i, "A") = "" Then
        Rows(i).Delete
    End If
Next i
End Sub
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ASKM_Sütun_sil()
Dim SonSutun As Long
SonSutun = Cells(2, 256).End(xlToLeft).Column
For i = SonSutun To 1 Step -1
    If Cells(2, i) = "" Then
        Columns(i).Delete
    End If
Next i
End Sub
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-08-2017, 13:05   #3
hopeful
Altın Üye
 
Giriş: 04/08/2006
Mesaj: 95
Excel Vers. ve Dili:
2017 Eng
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Aşağıdaki kodları kullanabilirsiniz.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ASKM_Satir_sil()
Dim SonSatir As Long
SonSatir = Cells(Rows.Count, "A").End(xlUp).Row
For i = SonSatir To 2 Step -1
    If Cells(i, "A") = "" Then
        Rows(i).Delete
    End If
Next i
End Sub
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub ASKM_Sütun_sil()
Dim SonSutun As Long
SonSutun = Cells(2, 256).End(xlToLeft).Column
For i = SonSutun To 1 Step -1
    If Cells(2, i) = "" Then
        Columns(i).Delete
    End If
Next i
End Sub
Sayın askm,
Satır ya da sütunları komple silmeyecek..
Boşlukları uçurarak satır için değerleri yanyana ; sütun için de değerleri altalta yazacak.
Cevap kısmını da ekli dosyada görebilirsiniz.
__________________
Excel 2016-Eng
hopeful Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-08-2017, 13:35   #4
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,743
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Alternatif;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Option Explicit

Sub Satir_Sil()
    Dim X As Long, Y As Integer, Son_Satir As Long, Son_Sutun As Integer
    
    Son_Satir = Cells.Find("*", Cells(1, 1), , , xlByRows, xlPrevious).Row
    Son_Sutun = Cells(1, Columns.Count).End(1).Column
    
    For X = 2 To Son_Satir
        For Y = Son_Sutun To 1 Step -1
            If Cells(X, Y) = "" Then
                Cells(X, Y).Delete Shift:=xlToLeft
            End If
        Next
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Sub Sutun_Sil()
    Dim X As Long, Y As Integer, Son_Satir As Long, Son_Sutun As Integer
    
    Son_Satir = Cells.Find("*", Cells(1, 1), , , xlByRows, xlPrevious).Row
    Son_Sutun = Cells(1, Columns.Count).End(1).Column
    
    For X = Son_Satir To 2 Step -1
        For Y = 1 To Son_Sutun
            If Cells(X, Y) = "" Then
                Cells(X, Y).Delete Shift:=xlUp
            End If
        Next
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-08-2017, 14:00   #5
hopeful
Altın Üye
 
Giriş: 04/08/2006
Mesaj: 95
Excel Vers. ve Dili:
2017 Eng
Varsayılan

Çok teşekkür ederim Korhan Bey,
İyi günler dilerim...
__________________
Excel 2016-Eng
hopeful Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 15:23


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon- Çorlu Dans- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden