Sütunda dolu hücrelere numara verme

[muratgunay48]

Arkadaşlar, sayın hocalarım, A sütununda A2'den itibaren aşağı kadar dolu hücrelere makro ile sıra numarası nasıl verdirebiliriz? Fonksiyon ile yapabiliyorum ama makro lazım. Sizlerin de yardımıyla tamamlamaya çalıştığım bir dosya var. O yüzden makro lazım. A2'den itibaren her gün değişik sayıda aşağı kadar dolu ama başka şeyler dolu. Bunları sıralı numaraya çevirmek istiyorum. 1'den başlayıp son dolu hücrede bitecek. Örnek dosyada A2'den başlayıp A29'a kadar sıra numarası verecek. Son dolu hücre A29
Teşekkür ederim.
Saygılarımla.

 

[volki_112]

Arkadaşlar, sayın hocalarım, A sütununda A2'den itibaren aşağı kadar dolu hücrelere makro ile sıra numarası nasıl verdirebiliriz? Fonksiyon ile yapabiliyorum ama makro lazım. Sizlerin de yardımıyla tamamlamaya çalıştığım bir dosya var. O yüzden makro lazım. A2'den itibaren her gün değişik sayıda aşağı kadar dolu ama başka şeyler dolu. Bunları sıralı numaraya çevirmek istiyorum. 1'den başlayıp son dolu hücrede bitecek. Örnek dosyada A2'den başlayıp A29'a kadar sıra numarası verecek. Son dolu hücre A29
Teşekkür ederim.
Saygılarımla.

Dosyaniza bakamadim. Sira Numarası hangi sutuna yazilacak

 

[tahsinanarat]

Sub SiraNumarasiEkle()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

Set ws = ActiveSheet

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow
ws.Cells(i, 1).Value = i - 1
Next i
End Sub

 

[muratgunay48]

Dosyaniza bakamadim. Sira Numarası hangi sutuna yazilacak

Hocam A sütununa.
A2'den başlayacak. Son dolu hücreye kadar gidecek.
Teşekkür ederim.

 

[muratgunay48]

Sub SiraNumarasiEkle()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

Set ws = ActiveSheet

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow
ws.Cells(i, 1).Value = i - 1
Next i
End Sub

Hocam tam istediğim. Emeğinize sağlık.

 

[Biolightant]

Merhaba,
Alternatifler olsun.

' Hızlı, ama formül kalıyor
Sub Rabbit01_SiraNoA()
    Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=ROW()-1"
End Sub

' Hızlı, hem de temiz sabit değer
Sub Rabbit02_SiraNoA()
    Dim rng As Range
    Set rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    rng.Formula = "=ROW()-1"
    rng.Value = rng.Value
End Sub

 

[muratgunay48]

Merhaba,
Alternatifler olsun.

' Hızlı, ama formül kalıyor
Sub Rabbit01_SiraNoA()
    Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=ROW()-1"
End Sub

' Hızlı, hem de temiz sabit değer
Sub Rabbit02_SiraNoA()
    Dim rng As Range
    Set rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    rng.Formula = "=ROW()-1"
    rng.Value = rng.Value
End Sub

Hocam ikisi de çalışıyor. Emeğinize sağlık.

 

[Necdet]

Bir seçenek te benden olsun.
Sanırım bu daha hızlı çalışır.

Sub Makro1()

Dim i As Long

i = Cells(Rows.Count, "A").End(3).Row
Range("A2") = 1
Range("A2:A" & i).DataSeries

End Sub

 

[Biolightant]

Sanırım bu daha hızlı çalışır.

waww tebrikler, senin kod harbi en hızlı Turbo olmuş

 

[muratgunay48]

Bir seçenek te benden olsun.
Sanırım bu daha hızlı çalışır.

Sub Makro1()

Dim i As Long

i = Cells(Rows.Count, "A").End(3).Row
Range("A2") = 1
Range("A2:A" & i).DataSeries

End Sub

Teşekkür ederim hocam emeğinize sağlık.