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

 

[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")
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
Cells(RaZelle, 1) = WorksheetFunction.Max("A1:A" & RaZelle - 1) + 1
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub



Hocam çalışmadı kod