yazılmayan sayıyı nasıl bulurum.

[subutayı]

ekte tablom var. B sütünundaki kayıt sayısı birer artarak gidiyor. arada eksik veya yazılmayan sayı varsa f sütünuna yazılmasını istiyorum. bunu nasıl yaparım. evrak kayıt sırasında bilmeyerek veya istemeden atladığım sayı varmı onu görmek isityorum. teşekürler. Not: sadece yazılmayanı F sütununda görmek istiyorum. arada eksik olanı. tek tıklama ile yani macro ile sonuca gitmek istiyorum.

 

[mehmett]

İsteğiniz çeşitli yöntemlerle yapılabilir. Ben koşullu biçimlendirme öneriyorum.

B2 hücresini aşağıdaki formül ile koşullu biçimlendirin ve bu biçimi başlık hariç B sütununun tamamına uygulayın.

Dosyanız ektedir.

=B2<>SATIR()-1

 

[subutayı]

mehmet bey bu yöntem biraz kontrol gerektiriyor. macro ile yapabilirmiyiz. tek tıklama ile sonuca gidebilirmiyiz

 

[AS3434]

Not: sadece yazılmayanı F sütununda görmek istiyorum

Makrosuz yöntemle.

F sütununda formül , B sütununda Koşullu Biçimlendirme.

 

[Ali]

F sütununda bu kısımı sarı olarak renklendirir.

Sub kontrol()
son = Range("B65536").End(xlUp).Row
For i = 2 To son
If Cells(i, 2) <> Cells(i, 2).Row - 1 Then
Cells(i, 6).Interior.ColorIndex = 6
End If
Next
End Sub

 

[mehmett]

Sn subutayı

Aşağıdaki kodları dener misiniz.

Sub say()
mak = WorksheetFunction.Max([B:B])
j = 1
For i = 1 To mak
sayi = WorksheetFunction.CountIf([B:B], i)
If sayi <> 1 Then
Cells(j, 8) = i
j = j + 1
End If
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

A&#351;a&#287;&#305;daki kodu denermisiniz.

Sub Eksikleri_Numaraları_Listele()
    Columns(6) = ""
    En_Küçük = WorksheetFunction.Min(Columns(2))
    En_Büyük = WorksheetFunction.Max(Columns(2))
    For X = En_Küçük To En_Büyük
    Say = WorksheetFunction.CountIf(Columns(2), X)
    If Say = 0 Then
    Satır = Satır + 1
    Cells(Satır, "F") = X
    End If
    Next
    MsgBox "Eksik sıra numaraları listelenmiştir.", vbInformation
End Sub

 

[subutayı]

arkada&#351;lar ilginizden dolay&#305; sizlere te&#351;ek&#252;r ederim. yanl&#305;&#351; d&#252;n&#252;&#351;&#252;yorsam ba&#287;&#305;&#351;lay&#305;n, daha kestirmeden F1 den itibaren sadece eksik olan say&#305;lar&#305; yazd&#305;ramazm&#305;y&#305;z. sizin i&#351;lemleriniz do&#287;ru &#231;al&#305;&#351;&#305;yor. ama 20.000 sat&#305;r&#305; neden kontrol edelim de&#287;il mi? macro &#231;al&#305;&#351;s&#305;n ve f1 den itibaren eksik olanlar&#305; yazs&#305;n. te&#351;ek&#252;rler

 

[subutayı]

teşekürler

cost_control dediğim şekilde listelemiştir. ilginize teşekür ediyor. başarılar diliyorum. sağolun

 

[veyselemre]

Sub Eksikleri_Numaraları_Listele2()
liste = Range("b2:b" & [b65536].End(3).Row)

For x = 1 To UBound(liste) - 1
    ust = liste(x + 1, 1)
    alt = liste(x, 1)
    If ust - alt <> 1 Then
        For y = 1 To ust - alt - 1
            Sat&#305;r = Sat&#305;r + 1
            Cells(Sat&#305;r, "G") = alt + y
        Next y
    End If
Next x
erase liste
MsgBox "Eksik s&#305;ra numaralar&#305; listelenmi&#351;tir.", vbInformation
End Sub