DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kod_bir()
Application.ScreenUpdating = False
aa = [d65536].End(3).Row - 1
bir = 1
iki = Cells(9, 4)
Cells(9, 1) = bir & "/" & iki
For i = 10 To aa
bir = bir + 10
Cells(i, 1) = bir & "/" & iki + Cells(i, 4)
iki = iki + Cells(i, 4)
Next i
Application.ScreenUpdating = True
MsgBox "B i t t i "
End Sub