Saydırma?

[aliahmet]

Merhaba, Excelde hücreye 1 yazıp CTRL farenin sol tuşu yardımyla 1000' kadar saydırabiliyorum. Bunu basit bir şekilde yapabilirmiyim. Teşekkürler...

 

[Seyit Tiken]

Şöyle bir yöntem var : A1 hücresine(veya herhangi bir hücre) 1 yazılmak kaydıyla > Düzen > Doldur > Seriler > Sütunlar(seçili) > Son Değer, bölümüne 1000(isteğe bağl&#305 yazıp deneyin.

 

[Seyit Tiken]

Değişken sıralama için aşağıdaki kod hızlı bir şekilde işlem yapar.

Sub Makro1()
[a1] = 1
[a1].DataSeries Rowcol:=xlColumns, Stop:=[b1]
End Sub

 

[aliahmet]

Yardımınız için teşekkürler..

 

[edward norton]

Tşkler Sn Seyit Tekin hep merak ettiğim bir konuydu.

 

[N.Ziya Hiçdurmaz]

Yanıt

Değişik örnek.Bir yazan her hangi bir hücreye çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim I As Integer
For I = 1 To 1000
If Target = 1 Then
Target(I, Target) = I
End If
Next
End Sub