boş hücreleri doldurma makrosu

[XExcel]

Slm,

dosyayı ekledim yarıdmlarınızı bekliyorum

Teşekürler..

 

[leumruk]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Sub Doldur()
For x = 1 To 1000
For y = 1 To 9
If Cells(x, y) = "" Then
Set Aralik = Range(Cells(x, "a"), Cells(x, "I"))
Tekrar:
sayi = Int((80 * Rnd) + 1)
If WorksheetFunction.CountIf(Aralik, sayi) > 0 Then GoTo Tekrar
Cells(x, y) = sayi
End If
Next
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, "leumruk"
End Sub