• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Makro Hızlandırma Hk.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
R

ramazankaya89

Yeni Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
8 Haz 2024
Mesajlar
61
Çözümler
1
Aldığı beğeni
6
Excel V
Office 2019 TR
Konuyu Başlatan
Herkese merhaba

asagıdaki kodumuzu hızlandırmanın alternatif yönetimi varmıdır


For Silinecekler = Sayfa1.Range("C2").End(xlDown).Row To 1 Step -1
If Sayfa1.Cells(Silinecekler, 6) = "56" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 10) = "KAY" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 14) = 0 Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 5) = "AAAAA" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
Next


ayrıca birde şu sorunun cevabını cok merak edıyorum
örnek verecek olursak set olarak tanımlar yapıyoruz en son bitince asagıdaki gibi yazmaz isek ne olur artıları eksileri nelerdir

Set Sayfa1 = Nothing
 
Çözüm
SNNAY
ramazankaya89' Alıntı:
Herkese merhaba

asagıdaki kodumuzu hızlandırmanın alternatif yönetimi varmıdır


For Silinecekler = Sayfa1.Range("C2").End(xlDown).Row To 1 Step -1
If Sayfa1.Cells(Silinecekler, 6) = "56" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 10) = "KAY" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 14) = 0 Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 5) = "AAAAA" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
Next


ayrıca birde şu sorunun cevabını cok merak edıyorum
örnek verecek olursak set olarak tanımlar yapıyoruz en son bitince asagıdaki gibi yazmaz isek ne olur artıları eksileri nelerdir

Set Sayfa1 = Nothing
Genişletmek için tıkla...
...
Tarihe göre sırala Oylara göre sırala
ramazankaya89' Alıntı:
Herkese merhaba

asagıdaki kodumuzu hızlandırmanın alternatif yönetimi varmıdır


For Silinecekler = Sayfa1.Range("C2").End(xlDown).Row To 1 Step -1
If Sayfa1.Cells(Silinecekler, 6) = "56" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 10) = "KAY" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 14) = 0 Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
If Sayfa1.Cells(Silinecekler, 5) = "AAAAA" Then Sayfa1.Cells(Silinecekler, 1).EntireRow.delete
Next


ayrıca birde şu sorunun cevabını cok merak edıyorum
örnek verecek olursak set olarak tanımlar yapıyoruz en son bitince asagıdaki gibi yazmaz isek ne olur artıları eksileri nelerdir

Set Sayfa1 = Nothing
Genişletmek için tıkla...
Deneyiniz
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Set Sayfa1 = Nothing işlemi sayfada bellek yönetimini optimize eder, gereksiz bellek kullanımını önler. Özellikle büyük veri setleri veya uzun çalışma sürelerinde, kullanılmayan nesnelerin bellekte kalmasını önler ve hafıza yönetimini optimize eder.
 
Olumlu oy 1 Negatif oyla
Çözüm
SNNAY' Alıntı:
Deneyiniz
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Set Sayfa1 = Nothing işlemi sayfada bellek yönetimini optimize eder, gereksiz bellek kullanımını önler. Özellikle büyük veri setleri veya uzun çalışma sürelerinde, kullanılmayan nesnelerin bellekte kalmasını önler ve hafıza yönetimini optimize eder.
Genişletmek için tıkla...
cok tesekkur ederım emegınıze saglık
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst