sıralama

[msanli]

Merhaba,

Aşağıdaki makroyu 1000'den başlayacak şeklilde nasıl yaparız.

==================================================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("c1:c65536")) Is Nothing Then Exit Sub
For i = 3 To Range("c65536").End(3).Row
If Cells(i, 3).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub
==================================================

 

[hamitcan]

Sorunuzdan anladığım kadarıyla...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("c1000:c65536")) Is Nothing Then Exit Sub
For i = 1000 To Range("c65536").End(3).Row
If Cells(i, 3).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

 

[msanli]

Bu makro c3 satırına bir değer girdiğinde a3 satırınadan başlayarak 1 den itibaren sıra numarası veriyor. benim istediğim sıra numarasını 1000'den başlatım 1001, 1002......1111 diye devam etmesi

Sorunuzdan anladığım kadarıyla...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("c1000:c65536")) Is Nothing Then Exit Sub
For i = 1000 To Range("c65536").End(3).Row
If Cells(i, 3).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

 

[Mahir64]

Parodon yanlış okumuşum düzenleyip atayım

 

[msanli]

Parodon yanlış okumuşum dünleyip atayım

1000, 2000 , 3000 diye sıralıyor

 

[Mahir64]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("c1:c65536")) Is Nothing Then Exit Sub
For i = 3 To Range("c65536").End(3).Row
If Cells(i, 3).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s + 1000
End If
Next i
End Sub

 

[msanli]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As Long
If Intersect(Target, Range("c1:c65536")) Is Nothing Then Exit Sub
For i = 3 To Range("c65536").End(3).Row
If Cells(i, 3).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s + 1000
End If
Next i
End Sub

Teşekkürler. Bu sefer oldu

 

[Mahir64]

Teşekkürler. Bu sefer oldu

Kolay gelsin