[Yardım]  KOD YETERSİZ KALIYOR

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

KOD YETERSİZ KALIYOR

İleti#1)  Bedrettin DEMİRCİ » 12 Oca 2019 14:49

Değerli forum arkadaşlarım
ekteki dosyada vba kodu yetersi kalıyor
42 bin satır var bu satır her ay dahada artacak eklediğim dosyayı yarıyarıya sildim ama yinede çok yavaş çalışıyor
daha işlevsel bir kod yazabilirmisiniz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: KOD YETERSİZ KALIYOR

İleti#2)  kerevizone » 12 Oca 2019 15:16

Pek anladığımdan değil ama
Kod: Tümünü seç
Sub silelim()
    Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

Bu kod 2 sn. de A sütunun da boş olan satırları siliyor.
Geliştirirseiz işinize yarayabilir.
Kullanıcı avatarı
kerevizone
Yeni Başlamış
 
Adı Soyadı:ahmet kara
Kayıt: 07 Ağu 2012 15:10
İleti: 47
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: KOD YETERSİZ KALIYOR

İleti#3)  Bedrettin DEMİRCİ » 12 Oca 2019 15:19

Bu şekilde olmaz.
boş satırı silmek farklı. burda yapılan işlem çok daha farklı
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: KOD YETERSİZ KALIYOR

İleti#4)  tasad » 12 Oca 2019 15:57

Satırları neye göre silmek istiyorsunuz?
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 582
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

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

Cevap: KOD YETERSİZ KALIYOR

İleti#5)  Bedrettin DEMİRCİ » 12 Oca 2019 16:02

Silmek değil önce düzeltip sonra sileceğiz
kaymış satırlar var
yarısı üstte yarısı altta

B ve C sütununda sırasıyla bu tırnak içindekiler aranıyor

If ara = "Ad" Then
If ara = "AD" Then
If ara = "MERKEZ" Then

sonra
alta kayan satır b sütununda "Ad" yazıyor veya "AD" yazıyor C sütununda MERKEZ yazıyor
alta kayan bu satırları üste alıyoruz
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: KOD YETERSİZ KALIYOR

İleti#6)  tasad » 12 Oca 2019 20:03

Denemeden önce dosyanın yedeğini alın.
Kod: Tümünü seç
Sub kaydırvesil()
Dim i As Long
Application.ScreenUpdating = False
For i = Range("b1000000").End(3).Row To 2 Step -1
If Cells(i, 2) = "Ad" Or Cells(i, 2) = "AD" Then
Range(Cells(i, 2), Cells(i, 7)).Copy
Cells(i - 1, 9).PasteSpecial
ElseIf Cells(i, 3) = "MERKEZ" Then
Range(Cells(i, 2), Cells(i, 11)).Copy
Cells(i - 1, 5).PasteSpecial
End If
Next i
Range("a1:a1000000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
MsgBox "TAMAMLANDI"
End Sub
Kullanıcı avatarı
tasad
Site Dostu
 
Kayıt: 04 Şub 2018 09:46
Meslek: muhasebeci
Yaş: 27
İleti: 582
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: KOD YETERSİZ KALIYOR

İleti#7)  Bedrettin DEMİRCİ » 14 Oca 2019 10:11

İşlem yaptım
Kod çok çok hızlı çalışıyor hatta işlem yapmıyor sandım o kadar hızlı ki.
Satır fazla olduğu için kontrol etmem lazım
gün içinde kontrol edeceğim.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: KOD YETERSİZ KALIYOR

İleti#8)  Bedrettin DEMİRCİ » 14 Oca 2019 16:30

Teşekkür ederim elinize sağlık çok iyi çalışıyor şkşk
çok hızlı ve hatasız.. şkşk
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1643
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe