kod ne demek istiyor

[Muhammet Okumuş]

arkadaşlar aşağıdaki kodun ne demek istediğini anlatabilirmisiniz
tek tek karşısına yazabilir misiniz?
Sub SayıÜret1()
If [U10] = 2 Or [U1] = 2 Or [U2] = 2 Or [U3] = 2 Or [U4] = 2 Or [U5] = 2 Or [U6] = 2 Or [U7] = 2 Or [U8] = 2 Or [ı28] > 0 Then
MsgBox "Seçim tekrarlanıyor"
Hüc = Cells(22, "A").End(3).Row
Cells(Hüc, "A") = ""
Range("B14") = ""
Call SayıÜret1
Exit Sub
Else:
Randomize
MyNumber = Int((8 - 1 + 1) * Rnd + 1)
Range("B14") = (MyNumber)
Sat = Cells(22, "A").End(3).Row + 1
Cells(Sat, "A").Value = Range("B14").Value
If Range("A14") = 2 Then
Cells(Sat, "A").Value = ""
Range("B14") = ""
Call SayıÜret1
If Range("A22") = [Sayfa1!B14] Then
Range("B14") = ""
MsgBox "Bu torba tamamlanmıştır."
Exit Sub
End If
End If
End If
End Sub

 

[Muhammet Okumuş]

arkadaşlar makroyu öğrenmeye çalışıyom.
Hüc = Cells(22, "A").End(3).Row
Cells(Hüc, "A") = ""
burasını anlayamadım

 

[Zeki Gürsoy]

arkadaşlar makroyu öğrenmeye çalışıyom.

Hüc = Cells(22, "A").End(3).Row
Cells(Hüc, "A") = ""

burasını anlayamadım

İlk satırda "Hüc" değişkenine A22 hücresinden A1 e doğru ilk dolu satır numarası atanır.

İkinci satırda ise bulunan bu hücre içeriği null string ile temizlenir.

 

[Muhammet Okumuş]

kardeş saol da bu makroları ben öğrenemeyeceğim