Kodu nasıl düzenleryebilirim. Çok kolay ama yapamadım :D

[atillaciftci]

Aşağıdaki kodları istediğim şekile nasıl getirebilirim acaba yardım lütfen..

N hücresine checkBox ile True ve False yazıları geliyor.

N hücresi True ve M hücresi mail adresi biçimi olunca çalışsın istiyorum.



For i = 18 To Cells(Rows.Count, "D").End(3).Row
If IsEmpty(Cells(i, "N")) = False And Cells(i, "M") Like "*@*" Then

 

[cems]

Alttaki satırı üste alın.
Şart oluştu ise döngü başlar ve next i ile durur.