sayı verme

[KuTuKa]

selamlar
A sütununda 1500 satırlık bilgilerim var ben D sütununda bir hücreye değer girdiğimde H sütununa rakam girilecek her satır için 1 sayı girilecek ve bu tüm sütun için sırayla gidecek.1 2 3 4 5 gibi ,işin zorluğu 1500 satırlık bilgide ben 150 den başlayıp 1 e ordan 1300 e gidebilirim ordaki d sütunundaki satıra depğer girildiğinde h sütunu da rakam ı alsın ama en son sayı kaç ise mesala 2 ise bir önceki rakam 3 olarak devam etsin
kolay gelsin
kutuka

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If Target <> "" Then
        Cells(Target.Row, "H") = WorksheetFunction.Max(Range("H:H")) + 1
    Else
        Cells(Target.Row, "H") = ""
    End If
Son:
End Sub

 

[KuTuKa]

sanırım kullandığım diğer bir makro ile çatıştı

 

[KuTuKa]

eğer d2 hücresine değer girerse h sütununa sıradaki rakamı atayacak 59 gibi
sorun işlemler satır satır işlenmeyeceği için herhangi bir d satırına veri girildiğinde h sırasındaki rakamı h satırına getirsin.

 

[Korhan Ayhan]

Merhaba,

Siz kodu sayfanızın kod bölümüne uygulamamışsınız. Kitabınızın kod bölümüne uygulamışsınız. Lütfen kontrol edin.

 

[KuTuKa]

teşekkürler