• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Eyoksa - eğerhata çalışmıyor

Mukteda

Mukteda

Katılım
1 Aralık 2010
Mesajlar
313
Excel Vers. ve Dili
Office 2010
Arkadaşlar Merhaba,

Elimde epey kalabalık bir liste var. Bu listede;

120.10.34.000004
120.10.34.000006
120.10.34.000019
120.10.34.000081

vb.

Şekilde devam eden eksik sayıların olduğu bir gurupta aşağıdaki formüller çalışmadı.

Nasıl yapabilirim?

Teşekkürler.

=EĞER(EYOKSA(DÜŞEYARA(SATIR(A1);$A$1:$A$9;1;0));SATIR(A1);"")
=EĞERHATA(KÜÇÜK(C:C;SATIR(A1));"")
=EĞERHATA(KÜÇÜK(EĞER(EYOKSA(KAÇINCI(SATIR(DOLAYLI("1:"&MAK($A$1:$A$11)));$A$1:$A$11;0));SATIR(DOLAYLI("1:"&MAK($A$1:$A$11))));SATIRSAY(C$1:C1));"")
 
Merhaba,

Sorun nedir?

--
 
Merhaba,

Özür dilerim. Galiba tam anlatamadım.

120.10.34.000004
120.10.34.000006
120.10.34.000019
120.10.34.000081

Yukarıdaki sayılar arasındaki eksik sayıları bulmak istiyorum.

Nasıl yapabilirim?
 
Serinin içinde mi arayacak, kendi içinde mi?

Bakıldığında bunlar sayı değil.
120.10.34.000006
120.10.34.000019
Burada eksik olanlar hangileri?
 
Mahir ÇÜMEN' Alıntı:
Serinin içinde mi arayacak, kendi içinde mi?

Bakıldığında bunlar sayı değil.
120.10.34.000006
120.10.34.000019
Burada eksik olanlar hangileri?
Genişletmek için tıkla ...


İlginiz için teşekkür ederim.


Serinin içinde arayacaktır.

120.10.34.000006
120.10.34.000019

Yukarıdaki sayıların içerisinde eksik olan sayılar şu şekildedir:

120.10.34.000007
120.10.34.000008
120.10.34.000009
120.10.34.000010
120.10.34.000011
120.10.34.000012
120.10.34.000013
120.10.34.000014
120.10.34.000015
 
Bu konuda bir çözüm önerisi geliştirilebilir mi acaba?
 
Merhaba,
Benim önerim biraz uzun ama işinize yarar.
Verilerinizin A1 hücresinden aşağı sıralı olduğu düşünülmüştür.

Eksik sayıları bulmamıza yardımcı olması için B1 hücresine;
Kod: 
=SAĞDAN(A1;6)+0
yazıp, verileriniz kadar aşağı çekiniz.

Eksik sayıları bulmak için C1 hücresine;
Kod: 
=KÜÇÜK(EĞER(EYOKSA(KAÇINCI(SATIR(B$1:B$10);B$1:B$10;0));SATIR(B$1:B$10));SATIR(B1))
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHİFT+ ENTER ile tamamlayınız.
[/COLOR]
Çıkan sayıları aynı hücrelere Kopyala / Özel Yapıştır / Değerleri
Hernagi bir hücreye 1201034000000 yazıp, kopyalayınız.C1'den aşağı çıkan sayıları seçip ÖZEL YAPIŞTIR / TOPLA

Son adım olarak
D1 hücresine;
Kod: 
=PARÇAAL(D1;1;3)&"."&PARÇAAL(D1;4;2)&"."&PARÇAAL(D1;6;2)&"."&PARÇAAL(D1;8;6)
yazıp, bir dener misiniz.

Not: 2. Formül 10 satıra göre yapılmıştır.
 
Son düzenleme:
sayın arkadaşça
örnek bir dosya ekleyebilirseniz çözüm alternatifleri sunabilirz
 
Selam
sorununuzu anladığım kadarıyla makro ile çözümü
B sütununa eksik kodları yazar


Kod: 
Sub Eksik_yaz()
Dim i, j, satir As Long
Dim parca1, parca2 As String

satir = 1
For i = 1 To [a65536].End(xlUp).Row
    parca1 = Mid(Cells(i, "A"), InStrRev(Cells(i, "A"), ".") + 1)
    parca2 = Mid(Cells(i + 1, "A"), InStrRev(Cells(i + 1, "A"), ".") + 1)
    
    For j = Val(parca1) + 1 To Val(parca2) - 1
        Cells(satir, "B") = "120.10.34." & Format(j, "000000")
        satir = satir + 1
    Next
    
Next

End Sub
 
rica ederim,
sizede
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst