DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
Dim i As Long, No As Long
For i = 5 To Cells(65536, 2).End(xlUp).Row
If Cells(i, 2) <> Empty Then
No = No + 1
Cells(i, 1) = No
Else
Cells(i, 1) = Empty
End If
Next
End Sub
Cells(i, 1) buradaki 1 A sütununa karşılık gelir.mert25' Alıntı:......fakat sıra nosu A değil de başka bir sütunda ise ne yapmak gerekir.