Sütunda yazan en yüksek sayıyı 1 arttırarak yazmak

[kneehot]

Arkadaşlar merhaba. Yapmak istediğim B sütünunda sıra ile giden sayılar var. X koyduğum hücreye makroyu çalıştırdığımda b sütunundaki en büyük sayıyı 1 arttırark yazması. Anlaşılması için örnek ekledim. Tüm yardımlara şimdiden teşekkürler.

 

[Muhammet Okumuş]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
On Error Resume Next
a = WorksheetFunction.Match("x", Range("B:B"), 0)
Cells(a, 2) = WorksheetFunction.Max(Range("B:B")) + 1
End Sub

Kodu deneyiniz.

 

[Korhan Ayhan]

Alternatif;

Sub NUMARA_VER()
    XNUMARA = WorksheetFunction.Max(Range("B:B"))
    Set BULX = Range("B:B").Find("X", , , xlWhole)
    If Not BULX Is Nothing Then
        BULX.Value = XNUMARA + 1
    End If
End Sub

 

[kneehot]

2 yardım içinde çok teşekkür ederim. İkiside çok işime yarayacak.