Çözüldü makro işlem uzun sürüyor

[aliexpress]

Merhabalar
forumlardan youtubeden makroyu öğrenmeye çalışıyorum izlediklerimden birşeyler yapmaya çalıştım ama işlem çok uzun sürüyor

siralama_nokta.xlsm dosyasını indir - download

siralama_nokta.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

yapmaya çalıştığım
örnek1 de ki butona basınca 4ncü satırdan itibaren B sütunu boş ise yada "tarih" yazıyor ise A sütunu boş kalacak eğer tarih yazılı ise "." nokta işareti bırakacak

yardımcı olabilirseniz sevinirim



Sub nokta()

For i = 4 To 1600
If Cells(i, "b") = "" Or Cells(i, "b") = "tarih" Then
Cells(i, "a") = ""
Else
Cells(i, "a") = "."
End If
Next i
End Sub

 

[Necdet]

Merhaba,
Sizin kodlara istinaden :

Sub nokta()

Dim i   As Long
Dim lr  As Long

lr = Cells(Rows.Count, "B").End(3).Row

Application.ScreenUpdating = False

Range("A4:A" & lr).ClearContents

For i = 4 To lr
    If Cells(i, "B") <> "" And Cells(i, "B") <> "tarih" Then Cells(i, "A") = "necdet"
Next i
    
Application.ScreenUpdating = True

End Sub

 

[aliexpress]

Merhaba,
Sizin kodlara istinaden :

Sub nokta()

Dim i   As Long
Dim lr  As Long

lr = Cells(Rows.Count, "B").End(3).Row

Application.ScreenUpdating = False

Range("A4:A" & lr).ClearContents

For i = 4 To lr
    If Cells(i, "B") <> "" And Cells(i, "B") <> "tarih" Then Cells(i, "A") = "necdet"
Next i
  
Application.ScreenUpdating = True

End Sub

hocam elinize sağlık çok teşekkür ederim
bilmediğimden soruyorum mantığını kısaca tarif etme imkanınız var mı ne olduda hızlandı

 

[Necdet]

Merhaba,
Ben sadece sizin 2 olasılıklı If'inizi teke indirdim.
Baştan A sütununu sildirdim, sonra B sütunundaki şarta göre A sütununa yazdırdım. Hepsi bu.
Kod daha da hızlanır ama onu da kodlara iyice alıştıktan sonra yapabilirsiniz.
Dizi ile çözüm de var, bu daha hızlıdır.
Şimdilik bu olayı geçelim derim.

 

[aliexpress]

teşekkür ederim