[Yardım]  Boş satırları silme kodunu hızlandırma

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Boş satırları silme kodunu hızlandırma

İleti#1)  pislick0 » 27 Haz 2022 23:26

Merhaba, aşağıdaki kodu hücre boş ise o satırı silsin diye kullanıyorum ama biraz yavaş çalışıyor

Bunun daha hızlı versiyonu var mıdır


Sub deneme()
Application.ScreenUpdating = False
For i = 30000 To 1 Step -1
If Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
pislick0
Yeni Başlamış
 
Kayıt: 06 Ekm 2020 22:52
Meslek: kimya mühendisi
Yaş: 41
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Boş satırları silme kodunu hızlandırma

İleti#2)  Ömer BARAN » 27 Haz 2022 23:28

BOŞ dediğiniz hücreler gerçekten BOŞ mudur yoksa örneğin sonucu "" (BOŞ) olan formüller mi vardır?
☾✭ İnadına TÜRKÇE ✭☽



.



.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 18:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 58
İleti: 368
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

Cevap: Cevap: Boş satırları silme kodunu hızlandırma

İleti#3)  pislick0 » 27 Haz 2022 23:31

Ömer BARAN yazdı:BOŞ dediğiniz hücreler gerçekten BOŞ mudur yoksa örneğin sonucu "" (BOŞ) olan formüller mi vardır?


Gerçekten boş, hiçbir veri yok
Kullanıcı avatarı
pislick0
Yeni Başlamış
 
Kayıt: 06 Ekm 2020 22:52
Meslek: kimya mühendisi
Yaş: 41
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Boş satırları silme kodunu hızlandırma

İleti#4)  Ömer BARAN » 27 Haz 2022 23:35

Şu kodu kullanabilirsiniz.

Kod: Tümünü seç
Sub A_BOSSA_SATIRI_SIL()
Application.ScreenUpdating = 0: Application.Calculation = xlCalculationManual
varmi = Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count
If Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count > 0 Then _
    Range("A1:A30000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = 1: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı..", VbInfomation, "ExcelDestek.Com forumuna da beklerim."
End Sub
☾✭ İnadına TÜRKÇE ✭☽



.



.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 18:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 58
İleti: 368
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Boş satırları silme kodunu hızlandırma

İleti#5)  Ömer BARAN » 27 Haz 2022 23:36

varmi = ....
şeklindeki satıra gerek yok, silebilirsiniz.
☾✭ İnadına TÜRKÇE ✭☽



.



.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 18:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 58
İleti: 368
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

Cevap: Cevap: Boş satırları silme kodunu hızlandırma

İleti#6)  pislick0 » 27 Haz 2022 23:36

Ömer BARAN yazdı:Şu kodu kullanabilirsiniz.

Kod: Tümünü seç
Sub A_BOSSA_SATIRI_SIL()
Application.ScreenUpdating = 0: Application.Calculation = xlCalculationManual
varmi = Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count
If Range("A1:A30000").SpecialCells(xlCellTypeBlanks).Count > 0 Then _
    Range("A1:A30000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = 1: Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamlandı..", VbInfomation, "ExcelDestek.Com forumuna da beklerim."
End Sub


çok teşekkür ederim hızlı yanıtınız için
Kullanıcı avatarı
pislick0
Yeni Başlamış
 
Kayıt: 06 Ekm 2020 22:52
Meslek: kimya mühendisi
Yaş: 41
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 5 misafir

Bumerang - Yazarkafe