Hücrelere 2 şer aralıklarla sayı yazmak

[erkanfun]

A1 den A100 e kadar 0 dan başlayarak 2 şer 2 şer sayıları nasıl yazabiliriz?

 

[Seyit Tiken]

Kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a1:a100]) Is Nothing Then Exit Sub
If ActiveCell = 0 Then ActiveCell = 0
ActiveCell = ActiveCell.Offset(-1, 0) + 2
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Altarnetif.

Sub test()
[a1] = 0
For i = 1 To 100
Cells(1 + i, 1) = i * 2
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Eğer sorunuzu doğru anladıysam aşağıdaki işlemleri uygulayıp denermisiniz.

A1 hücresine 0 (sıfır) yazınız.
A2 hücresine 2 yazınız.

A1 ve A2 hücrelerini seçin mouse ile A2 hücresinin sağ alt köşesine geldiğinizde ince + şeklinde bir işaret çıkacaktır. Bu işareti tutup aşağıya doğru dilediğiniz kadar çekip serinizi oluşturabilirsiniz.

 

[erkanfun]

teşekkürler cost control aradığım buydu.