ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[MKURU]

Merhaba arkadaşlar
Bir çalışma sayfasında B sütununa 5. satırdan itibaren kod ile veri aktarıyorum. A sütununda ise sıra numaraları var. Ve A5 hücresinde

Kod: Tümünü seç

=SATIR()-4

formülü ile sıra numarasını 1 olarak yazdırıyorum. Burada yapmak istediğim her aktarma işleminde B sütunundaki verilere göre formülü aşağıya çekmek yerine veri aktarıldıktan sonra B sütununda değer oluşunca formül otomatik olarak yazılsın ve sıra numarası gelsin istiyorum.
Yani B5 hücresinden itibaren girilen her değer için A sütununda

Kod: Tümünü seç

=SATIR()-4

formülü yazılmış olacak.
Bunun için nasıl bir kod kullanabilirim.

[erseldemirel2]

Örnek kod ila A sütununa 1 den 10 a satıra kadar formül ekler;

Kod: Tümünü seç

Sub Makro1()
For i = 1 To 10
Range("a" & i) = "=ROW()-4"
Next i
End Sub

[MKURU]

Hocam çok teşekkür ederim. Bir de bunu formül ile değil de B5 satırından başlayarak dolu olan her hücre için A5 satırından itibaren otomatik sıra numarası verecek şekilde nasıl yapabilirim.

[erseldemirel2]

5. satırdan başlayarak 100 e kadar ; B de doluluk varsa karşılığı A için sıra numarası verir

Kod: Tümünü seç

Sub test()
For i = 5 To 100
If Range("b" & i) <> "" Then
x = x + 1
Range("a" & i) = x
End If
Next i
End Sub

[erseldemirel2]

100 yazdım ama son dolu satır B sütunu için; makroda 100 yerine "Range("B" & Rows.Count).End(xlUp).Row" ifadesini kullanabilirsiniz.

[MKURU]

Teşekkür ederim. İyi çalışmalar

[erseldemirel2]

Rıca ederım ıyı gunler