Sub x()
For xxx = 0.1 To 100 Step 0.1
Range("e" & (xxx / 0.1) + 4).Select
ActiveCell.FormulaR1C1 = xxx
Next
End Sub
0.1 den 100e kadar 0.1 step aralığıyla yazdırmak istiyorum.
yazılması istenen alan e5 ve e6, e7.... böyle gitsin.
neden olmuyo acaba? Method 'Range' of Object '_Global' failed hatası alıyorum
For xxx = 0.1 To 100 Step 0.1
Range("e" & (xxx / 0.1) + 4).Select
ActiveCell.FormulaR1C1 = xxx
Next
End Sub
0.1 den 100e kadar 0.1 step aralığıyla yazdırmak istiyorum.
yazılması istenen alan e5 ve e6, e7.... böyle gitsin.
neden olmuyo acaba? Method 'Range' of Object '_Global' failed hatası alıyorum
Sub x()
For xxx = 0.1 To 100 Step 0.1
ActiveSheet.Cells((xxx / 0.1) + 4, 5).Value = xxx
Next
End Sub
lemmiwinks
1