Bunu bır dene bakalım ısını cozuyormu ?
Sub Deneme()
Range("J1").Select
ActiveCell.FormulaR1C1 = "6"
Range("K1").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+1"
Range("K1").Select
End Sub
Sub kacıncısatırt_dolu()
For c = 2 To 100
If Cells(c, 2).Value = "" Then
Else
Cells(c, 1).Value = c
End If
Next
End Sub
************yada*********
direk saydıralım
sub saydır()
For k=2 to 1000
Cells(c,1).value=c
next
End sub
*******************
belki başka birşey istediniz ama ben bole anladım.
Anlaşılması pek mümkün olmayan böyle bir soruya dahi cevap bulmaya çalışan tüm arkadaşlarımı kutluyorum. :bravo: İşte bizim forumun farkı sanırım burada.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.