DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Sayıya()
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A1").Select
Selection.Copy
Columns("H:I").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
SkipBlanks:=False, Transpose:=False
End Sub