exceldebi işlemler

[aeous]

A stünuna 1000 satırdan oluşan 1 den 100 kadar rasgele sayılar yazılacak ve bu rasgele sayılardan 90 ile 100 arasında olanlar B stütuna AA
harf notu yazılacak bunu çalıştıran kodu nasıl yazabilirm acil yardım
şimdiden teşekkürler

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub KOD()
For a = 1 To 1000
    x = Int(Rnd * 100 + 1)
    Cells(a, "A") = x
    If x >= 90 Then Cells(a, "B") = "AA"
Next
End Sub

 

[aeous]

çok teşekkür edrim kardeşim hayat kurtardın