Soru Makro ile Şartlı Veri Yazdırma

[cedi007]

Selamlar,

A2'deki 6'dan büyük olan verileri, B2'ye "Altıdan Büyük" olarak yazdırmak istiyorum.
Kimileriniz için çok basit gelebilir ama yazdığım kodla çözüm alamadım. İnceleyebilir misiniz, nerede hata yapıyorum ? Ya da sizin çözümünüz ne olur.

Sub Altıdan_Buyuk_Veriler()

Dim Son As Long, X As Long
Son = Cells(Rows.Count, "A").End(3).Row
For X = 2 To Son
    If Cells(X, 1) > 6 Then
   
    Cells(X, 2) = "Altıdan Büyük"
   
    End If
Next

End Sub

 

[Muzaffer Ali]

Merhaba.

Sub işlem()
    Dim Bak As Integer
    Range("B:B").ClearContents
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(Bak, "A") > 6 Then
            Cells(Bak, "B") = "Altıdan Büyük"
        End If
    Next
    MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[cedi007]

Syn. Muzaffer Ali teşekkürler.