Sıra no

[turgayzeynep]

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Calculate
Dim RaBereich As Range, RaZelle As Range
Application.EnableEvents = False
Set RaBereich = Range("b1:BP1000 ")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub




Hocam bu makroya ilaveten b3 satırı dolu olduğu zaman A3 satırına otomatikmen sıra numarasını yazmasını istiyorum rıca etsm yardımcı olurmusunuz

 

[Korhan Ayhan]

Paylaştığınız koda göre verilerini 1. satırdan başlıyor sanırım.

Kod içindeki RaZelle.Value = UCase(RaZelle.Value) satırının altına aşağıdaki satırı ekleyip deneyiniz.

Cells(RaZelle.Row, "A") = RaZelle.Row

 

[turgayzeynep]

3 satırdan başlıyor

 

[turgayzeynep]

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Calculate
Dim RaBereich As Range, RaZelle As Range
Application.EnableEvents = False
Set RaBereich = Range("b1:BP1000 ")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
Cells(RaZelle.Row, "A") = RaZelle.Row
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub



Hocam bu şekil yaptığımızda oldu fakat bir sıkıntı var Normalde a3'ten 1 olarak numara sırası vermesi gerekirken a3'e yine 3 numaradan başlatarak sıra veriyor

 

[Korhan Ayhan]

Deneyiniz..

Cells(RaZelle.Row, "A") = RaZelle.Row - 2