!!!!(EXCEL) Artarak giden sayılarda arada olmayan sayıyı bulmak vba

Kodla Büyü

kusursuz35

Üye
Mesajlar
4
merhaba arkadaşlar excelde sizden bir isteğim olacaktı .excelcelde örneğin Artarak giden sayılarda arada olmayan sayıyı bulmak istiyorum ..
A sutununda diyelim 1 den 10 kadar rakam yazdım 1,2,3,4,5,6,8,9,10
yazmadığım 7 rakamını makro kodunu çalıştırdığım zaman bana msgbox ile görmek istiyorum..
şimdiden teşeşkürler.
 
geliştirilebilir
Kod:
Private Sub CommandButton1_Click()
i = 1
a = 3
aaad = Sayfa1.Range("g" & (7)).Value
For i = 1 To aaad
If Sayfa1.Range("a" & (i + 1)).Value - Sayfa1.Range("a" & (i)).Value > 1 Then MsgBox "hata satırı " & i
Next
End Sub
 

Ekli dosyalar

  • rrrr.rar
    16.8 KB · Görüntüleme: 48
Aynı mantık;
Kod:
Sub Ardışık_Olmayan_Bul()
son = Cells(Rows.Count, 1).End(3).Row
For i = 1 To son
If Cells(i + 1, 1) - Cells(i, 1) > 1 Then MsgBox i + 1 & ". satır ardışık değil"
Next
End Sub
 
Geri
Üst