- Katılım
- 12 Eylül 2021
- Mesajlar
- 45
- Excel Vers. ve Dili
- Microsoft Office 2016 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-03-2024
Merhaba, excelde satır doluysa sıralı şekilde sıra no versin boş satıra gelince sıra no baştan başlasın.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
çözüm doğru fakat boş satırda tekrar 1 den başlayarak sıra no versinSelamlar
A1 Hücresine kopyalayın aşağı doğru çekin
B1 Hücresine birşeyler yazdığınızda sıra no verirKod:=EĞER(B1="";"";ALTTOPLAM(3;$B$1:B1))
Sub test()
[A:A].ClearContents
[A2] = 1
With Range("A2:A" & Cells(Rows.Count, "B").End(xlUp).Row)
.FormulaR1C1 = "=R[-1]C+1"
.Offset(, 1).SpecialCells(xlCellTypeBlanks).EntireRow.ClearContents
.Value = .Value
End With
End Sub
Selamlar
Veysel Emre Hocamın kodlarıdır
Bir modül içine ekleyerek
kullanabilirsiniz
Kod:Sub test() [A:A].ClearContents [A2] = 1 With Range("A2:A" & Cells(Rows.Count, "B").End(xlUp).Row) .FormulaR1C1 = "=R[-1]C+1" .Offset(, 1).SpecialCells(xlCellTypeBlanks).EntireRow.ClearContents .Value = .Value End With End Sub
=IF(B2<>"";ISNUMBER(A1)+1;"")