Otomatik Sayı Numarası

[mrkync]

Arkadaşlar aşağıdaki kodla otomatik sayı numarası veriyor ama küçük bir sorunum var. Ben sayı numarasının A2 hücresinden itibaren başlamasını istiyorum bu kodda nasıl bir düzenleme yapmam gerekiyor acaba

 For i = 1 To Range("d65530").End(3).Row
On Error Resume Next
If (Range("d" & i).Value <> "") Then
Range("A" & i) = i
End If
Next i
End Sub

 

[Asri]

Arkadaşlar aşağıdaki kodla otomatik sayı numarası veriyor ama küçük bir sorunum var. Ben sayı numarasının A2 hücresinden itibaren başlamasını istiyorum bu kodda nasıl bir düzenleme yapmam gerekiyor acaba

Bu şekilde deneyin.

 Sub numarala()
 
 For i = 1 To Range("d65530").End(3).Row
    On Error Resume Next
    If (Range("d" & i).Value <> "") Then
        Range("A" & i + 1) = i
    End If
 Next i
 
End Sub

 

[mrkync]

çok teşekkürler

 

[mrkync]

Asri bey bu şekille de fazladan bir satıra numara veriyor bunu nasıl düzeltebiliriz.

 

[mrkync]

Asri bey fazladan bir satır numarasını nasıl kaldırabiliriz acaba

 

[Necdet]

Dosya yapısını görmeden kod yazmak zor ama sizin kodlarınızdan hareketle bir de aşağıdaki kodları deneyin.

Sub NumaraVer()
    
    Dim i   As Long
    Dim j   As Long
    
    For i = 2 To Cells(Rows.Count, "D").End(3).Row
       If Cells(i, "d") <> "" Then
            j = j + 1
           Range("A" & i) = j
       End If
    Next i
 
End Sub

 

[mrkync]

Çok teşekkürler Necdet bey kodlar işimi gördü...