Satır numarası

[6729626]

Alttaki makroya satır numarası nasıl ekleniyor
Sub Aktar1()
sno = 1
Say = Sheets("Ciro").Range("B65536").End(3).Row + 1
say2 = Sheets("Ciro").Range("M65536").End(3).Row + 1
Veri sayfamdan aktar dendiği zaman ciro sayfasına aktarma yapıyor ama ciro sayfamda a sütünuna otomakit numara verme makrosunu yapamadım

 

[Orion1]

Sorduğunuz sorudan anladığım kadarı ile
Numara A1 Hücresinde varsayılarak aşağıdaki kodu düzenledim.

range("A1").value=range("A1").value +1
Say = Sheets("Ciro").Range("B65536").End(3).Row + 1
say2 = Sheets("Ciro").Range("M65536").End(3).Row + 1

 

[ileriexcel]

Sub test()
For sira = 1 To WorksheetFunction.CountA([b1:b65000])
Range("a" & sira) = sira
Next
End Sub

 

[6729626]

Atmıyor Sn.Sezar

Sıra numarası vermiyor sayın Sezar , veri sayfasında birkaç adet sayfaya aynı veriyi aktarıyorum ama hiç birine sıra numarası yazdıramadım.

 

[Orion1]

Sıra Numarası Hangi hücrede tutuluyor?

 

[6729626]

Satır numarası A srununda 2 hücreden başlıyor

 

[Orion1]

Merhaba.
Sayın ileriExcel'in kodlarını denedinizmi.
Belkide sizin işinize Sayın ileriexcel'in kodları yarıyordur.
Olmazsa dosyanızı gönderin bakalım.

 

[Seyit Tiken]

Kodlarınızın üstüne yada altına bu örnek kodunu deneyiniz.

Sayfa2.[A1] = Sayfa2.[A1] + 1

 

[6729626]

Sıra Numarası

Sayın Seyit bey son gönderdiğiniz kodda Sıra numarası veriyor ama üstüne toplayıp gidiyor alt alta ekleme yapmıyor

 

[zafer]

Merhaba

Kodları deneyiniz.

Set s1 = Sheets("Ciro")
say3 = s1.Range("B65536").End(3).Row-1
s1.Select
For i = 1 To say3
Cells(i + 1, 1) = i
Next

 

[Seyit Tiken]

Bu şekilde bir deneyin.

Sub Düğme1_Tıklat()
Sayfa2.[A65000].End(3).Offset(1) = Sayfa1.[A1]
End Sub