Ardışık numaralar hakkında

[Achille]

Öncelikle bu anlamlı günde herkesin Cumhuriyet Bayramını kutlamak istiyorum.
Sayın arkadaşlarım benim bir problemim var ama bir türlü çözüm bulamasım yardımcı olmanız dileğiyle saygılar iyi akşamlar

 

[AS3434]

Sayın Achille

Ekli dosyayı inceleyin.

Sub Makro1()
sat = [a65536].End(3).Row
Range("a1:a" & sat).Sort key1:=[a1], order1:=xlAscending
For i = 2 To sat
If Cells(i, 1) - 1 <> Cells(i - 1, 1) Then
MsgBox Cells(i - 1, 1) & ("  Bu kayıttan sonra problem var")
End If
Next
End Sub

Mevcut kayıtı problem olarak gösteriyordu. Uyarı mesajını değiştirdim.

 

[Achille]

Tşk

Sayın AS3434 yardımlarınız için çok teşekkür ederim.İyi akşamlar

 

[Achille]

Ardışık sayılar hk.

Sayın AS3434 öncelikle ilginize teşekkür ediyorum. Ek dosyanızı inceledim. Ufask bir problemle karşılaştım onu iletmek isterim size dosyadaki makroda 85361 nolu sayı olmadığını söylüyor. Aslında o sayı listede var ama ondan sonraki sayıların olmadığını kastediyor mesaj. benim yapmak istediğim arada olmayan sayı hangisi ise onu belirlemek. Teşekkür ediyor ve saygılar sunuyorum.

 

[AS3434]

Sayın Achille

Şöyle birşey olabilir mi?

 

[Achille]

Tşk AS3434

Gösterdiğiniz ilgiden dolayı teşekkür ediyorum.Sağolun. Bir sorum olacak hocam. Bo makroyu başka dosyaya uygulamak istediğimde nereleri değiştirmem gerekecek.

 

[Achille]

Tşk AS3434

Gösterdiğiniz ilgiden dolayı teşekkür ediyorum.Sağolun. Bir sorum olacak hocam. Bo makroyu başka dosyaya uygulamak istediğimde nereleri değiştirmem gerekecek.

Sub Makro1()
sat = [a65536].End(3).Row
Range("a1:a" & sat).Sort key1:=[a1], order1:=xlAscending
For i = 2 To sat
If Cells(i, 1) - 1 <> Cells(i - 1, 1) Then
a = Cells(i, 1) - Cells(i - 1, 1) - 1
MsgBox Cells(i - 1, 1) & (" den " & Cells(i, 1) & " kadar " & a & " adet kayıt yok.")
End If
Next
End Sub

 

[AS3434]

Say&#305;n Achille

Makroyu ba&#351;ka dosyaya uygulad&#305;&#287;&#305;n&#305;zda hi&#231;bir&#351;eyi de&#287;i&#351;tirmenize gerek yok.
Sadece verileriniz A s&#252;tununda de&#287;ilse a&#351;a&#287;&#305;daki ad&#305;mlar&#305; okuyun.

Sub Makro1()
sat = [[COLOR=blue]a[/COLOR]65536].End(3).Row [COLOR=red]'1[/COLOR]
Range("[COLOR=blue]a[/COLOR]1:[COLOR=blue]a[/COLOR]" & sat).Sort key1:=[[COLOR=blue]a[/COLOR]1], order1:=xlAscending [COLOR=red]'2[/COLOR]
For i = 2 To sat[COLOR=red] '3[/COLOR]
If Cells(i, [COLOR=blue]1[/COLOR]) - 1 <> Cells(i -[COLOR=black] 1[/COLOR], [COLOR=blue]1[/COLOR]) Then [COLOR=red]'4[/COLOR]
x = Cells(i, [COLOR=blue]1[/COLOR]) - Cells(i - 1, [COLOR=blue]1[/COLOR]) - 1 [COLOR=red]'5[/COLOR]
MsgBox Cells(i - 1, [COLOR=blue]1[/COLOR]) & (" den " & Cells(i, [COLOR=blue]1[/COLOR]) & " kadar " & x & " adet kay&#305;t yok.") '[COLOR=red]6[/COLOR]
End If '[COLOR=red]7[/COLOR]
Next '[COLOR=red]8[/COLOR]
End Sub

1- A s&#252;tununda son dolu sat&#305;r.
2- A s&#252;tununda A2 den Son sat&#305;ra kadar se&#231; ve artan s&#305;ralama yap.
3- 2. sat&#305;rdan son dolu sat&#305;ra kadar For next d&#246;ng&#252;s&#252;n&#252;n ba&#351;lang&#305;c&#305;.
4- Sorgulama ba&#351;lang&#305;c&#305;.
5- x de&#287;i&#351;kenine de&#287;er atama
6- Uyar&#305; mesaj&#305;
7- Sorgu sonu.
8- d&#246;ng&#252; devam&#305;.

Burada dikkat edece&#287;iniz de&#287;erler Mavi renkli olanlard&#305;r. Onlar A s&#252;tununu temsil ediyor.
Ba&#351;ka sayfada hangi s&#252;tunda i&#351;lem yapacaksan&#305;z a ve 1 de&#287;erini o s&#252;tun numaras&#305; ve harfi ile de&#287;i&#351;tirin.

1= A, 2= B, 3=C........s&#252;tunu