girelen veriye göre numaralandırma...

[savasma]

merhaba...

ekte göndermiş olduğum dosyada yapmak istediğim şudur:
B sütunundaki veriyi (sayıyı) girince, 1'den başlayarak veya belirleyeceğimiz herhangi bir sayıdan başlayarak o satırın sağına doğru o veri değerinde numaralandırmak ve bir aşağıdaki sütundaki veriyi girincede numaralandırmaya kaldığı yerden devam etmesini sağlamak. (onun haricinde kutu çerçevelerini sanırım koşullu biçimlendirmeyle yapabilirim)

yardım edebilirseniz çok sevinirim.
teşekkürler...

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim sats As Integer, satd As Integer, deg As Integer, i As Integer
 
If Intersect(Target, [B3:B65000]) Is Nothing Then Exit Sub
 
sats = (Target * 2) + 1
satd = Cells(Target.Offset(-2, 0).Row, Columns.Count).End(xlToLeft).Column
deg = Cells(Target.Offset(-2, 0).Row, satd)
 
Range(Cells(Target.Row, 3), Cells(Target.Row, Columns.Count)).Clear
 
If Target > (Columns.Count / 2) - 1 Then
    MsgBox (Columns.Count / 2) - 1 & " den Büyük Değer Giremezsiniz."
    Exit Sub
Else
    For i = 3 To sats Step 2
        If IsNumeric(deg) = False Then deg = 0
        deg = deg + 1
        Cells(Target.Row, i) = deg
        Cells(Target.Row, i).Borders.Weight = xlThick
    Next i
End If
 
End Sub

.

 

[savasma]

Ömer Bey çok teşekkür ediyorum.
tam istediğim şekilde olmuş çok sağolun.
müsadenizle birşey daha sormak istiyorum.
bu sayılar 1'den değilde herhangi bir sayıdan başlatmak istersem nereyi değiştirmem gerekir...

 

[Ömer]

Başlangıç satırında mı her satırda mı?

.

 

[savasma]

başlangıç satırında, yani ilk sayıyı belirlemek için. 1'den başlamayacakta diyelim 100'den başlayacak 101,102 diye aynı şekilde devam edecek... her satır için değil...

 

[Ömer]

A1 hücresine başlangıçtan bir önceki sayıyı yazmanız yeterli olur.

.

 

[savasma]

sizi çok meşgul ettim ama bu başlangıç numarasını belirleme sebebim şu:
başka bir okulda sınıflardaki kutu sayılarının başlama numarası 1001 olabilir.
ama A1 belli bir sayıdan (sanırım 255) sonra hata veriyor. yani A1'e 1000 yazamıyorum.
yardımlarınız için tekrar teşekkür...

 

[Ömer]

#2 nolu mesajı güncelledim. Tekrar denermisiniz..

.

 

[savasma]

harika olmuş elinize sağlık.
yardımınız ve zaman ayırdığınız için teşekkür ederim...

 

[Ömer]

Rica ederim, iyi çalışmalar..