Makroyla Hücreye Sıra Numarası Vermek

[ormann]

İyi akşamlar excel dosyasında a1 hücresine örneğin 329 yazdığımızda b1 hücresinden başlayarak b50 hücresine kadar makroyla otamatik sıra numarası verebilir
miyiz?. Not:b1 hücresi a1 hücresine girilen rakamdan başlayacak.

 

[turist]

Ekli örnek dosyayı inceleyiniz
Kaydet makrosu ile düzenlenmiştir.
Üstadlar başka çözümler bulabilir.

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki kodu kullanabilirsiniz.

Sub SIRA_NO()
    Range("B1") = Range("A1")
    Range("B1").AutoFill Destination:=Range("B1:B50"), Type:=xlFillSeries
End Sub

 

[ormann]

Günaydın;
Korhan bey bu makroyu butonla değilde a1 hücresine girdiğimizde otamatik olarak atabilirmiyiz?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then
        Range("B1") = Target
        Range("B1").AutoFill Destination:=Range("B1:B50"), Type:=xlFillSeries
    End If
End Sub

 

[ormann]

Teşekkür ederim Korhan bey