eğer yavaş

[oydemir]

iyi günler a:a sütunda son dolu satırı bulup 1 den büyüklere b sütununa 0 koyuyor fakat hücre sayısı fazlalaşınca yavaşlıyor hızlı olabilmesi için ne gerekir.
teşekkürler

Sub SSSSSSSSSS()
Sheets("Liste").Select
Dim i As Integer
Sheets("Bilgi").Select
For i = 2 To Range("A65536").End(3).Row
If Cells(i, "A") >= 1 Then
Sheets("BİLĞİ").Select
Cells(i, "b") = "0"


End If
Next i


End Sub

 

[ccuneyt13]

Merhaba,
Sorunuza göre Bilgi sayfasının A sütunu 1'den büyükse aynı sayfanın B hücresine 0 yazacak.
Ama kodunuza göre Bilgi sayfası A 1'den büyükse farklı isimde olan "BİLĞİ" sayfasını seçip bu sayfanın B sütünuna 0 yazacak.
Hangisi bilemedim ama iki türlüsü içinde aşağıdaki kodları deneyebilirsiniz.


Aynı sayfada ise aşağıdaki kodu deneyebilirsiniz.

Sub aynısayfaya()
Application.ScreenUpdating = False
Dim S1 As Worksheet
Dim lastRow As Long, i As Long
Set S1 = ThisWorkbook.Sheets("Bilgi")
lastRow = S1.Cells(Rows.Count, 1).End(xlUp).Row


For i = 2 To lastRow
    If S1.Cells(i, "A") > 1 Then
        S1.Cells(i, "B") = 0
   
    End If
   
   Next
Application.ScreenUpdating = True

MsgBox "İşlem tamamlandı", vbInformation, "Bitti"
End Sub

Farklı olan diğer "BİLĞİ" sayfasına ise aşağıdakini deneyebilirsiniz.

Sub Farklısayfaya()
Application.ScreenUpdating = False
Dim S1 As Worksheet
Dim S2 As Worksheet
Dim lastRow As Long, i As Long
Set S1 = ThisWorkbook.Sheets("Bilgi")
Set S2 = ThisWorkbook.Sheets("BİLĞİ")
lastRow = S1.Cells(Rows.Count, 1).End(xlUp).Row


For i = 2 To lastRow
    If S1.Cells(i, "A") > 1 Then
        S2.Cells(i, "B") = 0
   
    End If
   
   Next
Application.ScreenUpdating = True

MsgBox "İşlem tamamlandı", vbInformation, "Bitti"
End Sub

 

[oydemir]

Teşekkürler deneyince haber ederim ilginize teşekkür

 

[oydemir]

Birşey sora bilirmiyim a sütununa değerlere bakmadan a sütundaki değer kadar b sütununa 0 yazdirsa daha hızlı olan şansı varmıdır diğer türlü a sütundaki bütün hücrelere bakıyor örnek vermek gerekirse a2:a2009 kadar dolu ise B2:b2009 hücresine 0 yazdırmak gibi

 

[ccuneyt13]

Denediniz ve yavaş mı oldu ? 600 bin satır ile denedim 15-20 saniye sürdü bende ama ?

 

[oydemir]

Elinize bilginize sağlık teşekkürler