Ardışık Sayı Ve satır Ekleme Yardım

[yer06]

selam sayın hocalarım excelde 1,2,3,4,5,6,10 diye verilerin olduğu düşünürsek 6 ile 10 sayılarının arasına hangi yöntemle otomatik olarak 7,8,9 u yazdırabiliriz Şimdiden Çok Tşk Ederim Saygılarımla.

 

[uzmanamele]

merhaba

bununla ilgili örnek çözüm sitede var, araştırınız.

eğer satır nolarını otomatik vermek istiyorsanız aşağıdaki gibi bişey yapabilirsiniz.

=EĞER(B1="";"";SATIRSAY($A$1:A1))

A sütununu işteğe uyarlanmıştan 010000 şeklinde biçimlendiriniz.

 

[fedeal]

alternatif olarak (listeniz var tamamlamak istiyorsanız.) makrolu çözüm ekte,iyi çalışmalar.


Sub yu()
a = Sheets("sayfa1").Range("A65536").End(xlUp).Row
b = Sheets("sayfa1").Range("A" & a).Value - Sheets("sayfa1").Range("A2").Value
For i = 3 To b
If Range("a" & i).Value + 1 = Range("a" & i + 1).Value Then
Else
Rows(i + 1).Insert Shift:=xlDown
Range("a" & i + 1).Value = Range("a" & i).Value + 1
End If
Next
End Sub

 

[emregumustek]

biraz acemice oldu ama yeni olmama verin arkadaslar )

Range("a2").Select
Do Until ActiveCell.Text = ""
If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value + 1 Then
fark = ActiveCell.Value - ActiveCell.Offset(-1, 0).Value
For i = 0 To fark - 1
ActiveCell.Offset(i, 0) = ActiveCell.Offset(i - 1, 0).Value + 1
Next i
ActiveCell.Offset(fark - 1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop

 

[yer06]

ellerinize sağlık işe yaradı