Maksimum formulunun VBA ıle yapılması

[osmanucel]

=eğer(c5<>"";mak($b$4:b4)+1;"")
bu formulu makro ıle nasıl yapabılırım

 

[osmanucel]

bunu makroya uyarlayabılırmıyız cok önemlıde benım ıcın

 

[Korhan Ayhan]

Merhaba,

Anladığım kadarıyla C sütunundaki dolu hücrelere göre B sütununa sıra numarası vermek istiyorsunuz. Aşağıdaki kod ile bu işlemi yapabilirsiniz.

Sub SIRA_NO()
    With Range("B5:B1000")
        .Formula = "=IF(C5<>"""",MAX(B$4:B4)+1,"""")"
        .Value = .Value
    End With
End Sub

 

[osmanucel]

Allah razı olsun sagolun

 

[osmanucel]

Cok sahane oldu sagolun