Kod düzenleme

[ASLAN7410]

Merhaba arkadaşlar herkesin Cumhuriyet Bayramı kutlu olsun.

Aşağıdaki kod sayfanın B sütunundaki değişikliğe göre A sütununa artırarak sayı veriyor.

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

Aşağıdaki kodu bu şekilde butona atadığımda hata veriyor.

Sub sayıver()
Dim s As Long
If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub
For i = 2 To Range("b65536").End(3).Row
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = "" 
Else
s = s + 1
Cells(i, 1).Value = s 
End If
Next i
End sub

Bunu nasıl düzeltebilirim.

 

[Excelmy]

Sayın ASLAN7410

Sub sayıver()

Kod blogunuzda aşagıdaki satırı siliniz

If Intersect(Target, Range("b2:b65536")) Is Nothing Then Exit Sub

 

[ASLAN7410]

Sayın Excelmy ilginiz için çok teşekkür ediyorum, hayırlı çalışmalar.

 

[muygun]

Merhaba;

Sub sayıver()
Dim s As Long
sonsat1 = Range("b65536").End(3).Row
sonsat2 = Range("a65536").End(3).Row
If sonsat1 >= sonsat2 Then sonsat = sonsat1 Else sonsat = sonsat2
For i = 2 To sonsat
If Cells(i, 2).Value = "" Then
Cells(i, 1).Value = ""
Else
s = s + 1
Cells(i, 1).Value = s
End If
Next i
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun sizede çok teşekkür ederim, kodlar süper çalışıyor.

Küçük bir sorum olacak, aşağıdaki kod B sütununa veri girildikçe A sütuna sıra ile sayı veriyor, ancak B sütunundan veri sildiğimde A sütununda veriler hala kalıyor, buna bir çözüm bulunabilir mi?

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

 

[muygun]

Merhaba;

sonsat1 = Range("b65536").End(3).Row
sonsat2 = Range("a65536").End(3).Row
If sonsat1 >= sonsat2 Then sonsat = sonsat1 Else sonsat = sonsat2

Bu 3 satır en son satır seçimini yapıyor. (daha sonra i döngüsü sonsat değişkenine kadar dönüyor.)
Uygularsanız A sütununda sayı kalmaz.
İlk mesajımda verdiğim kodları uygulayarak deneyin.

İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun sizin yazmış olduğunuz kodu Private Sub Worksheet_SelectionChange(ByVal Target As Range) başlığı altına ekleyincede çalıştı, çok teşekkür ederim.

Hayırlı çalışmalar.