Otomatik sıralandırmayı istediğimiz satırdan aşlatma

[ÇAĞRIBEY1]

Otomatik sıralandırmayı istediğimiz satırdan başlatma

İyi akşamlar
Ekli dosyada düğme ile 1. satırdan başlayan otomatik sıralama yapan bir çalışma var ben sıralamayı 2. satırdan başlatmak istiyorum. Yardımcı olursanız çok memenun olacağım.

 

[Civan Jack]

Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi - 1
Next sayi
End Sub

 

[ÇAĞRIBEY1]

Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi - 1
Next sayi
End Sub

Sayın Civan Jack ilgi ve katkılarınız için teşekkürler. Ancak sayma sıfırla başlıyor esas dosyamda a1 de başlık var bu şekilde başlığı silip 0 yazıyor a1 i boş bırakarak a2 den başlatabilir miyiz acaba?

 

[Burak12]

iki sorum olacak
birincisi
araya girmiş gibi olmayayım ama bende örnek sıra numarasının 101 den başlamasını istiyorum.

ikincisi b sütununa bir şey yazarsam a sütununa numaras vermesi buda istediğim sayıdan başlayacak.

 

[Civan Jack]

Öyle bir terbiyesizlik yapacağını sanmıyorum.

 

[Civan Jack]

iki sorum olacak
birincisi
araya girmiş gibi olmayayım ama bende örnek sıra numarasının 101 den başlamasını istiyorum.

ikincisi b sütununa bir şey yazarsam a sütununa numaras vermesi buda istediğim sayıdan başlayacak.

İlki için

Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi + 99
Next sayi
End Sub

İkincisi için örnek gerek.

 

[ÇAĞRIBEY1]

Bu arada benim sorum kaynamış oldu.

 

[bzace]

Çağrıbey, 0 dan başlatmak istiyorsanız koddaki kırmızı yere bakınız.İstediğiniz şekilde burdan ayar yapabilirsiniz.

Sub SIRANO()
Dim sayi As Byte
For sayi = 2 To 20
Cells(RowIndex:=sayi, columnindex:=1) = sayi [COLOR="Red"][B]- 2[/B][/COLOR]
Next sayi
End Sub

Burak12 , anladığım kadarıyla B sütununa değer girdikçe A sütununa sıra no vermesi.Ben B1 hücresinden başlatıp , sıra no 100 olarak belirledim.Kırmızı yerleri kendinize göre ayarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [COLOR="red"][B][B1:B65536][/B][/COLOR]) Is Nothing Then Exit Sub
On Error Resume Next
Target.Offset(0, -1).Value = Target.Row + [COLOR="red"][B]99[/B][/COLOR]
End Sub