Bul Değiştir

[power]

Ektede verdiğim örnek dosyada 85 adet seri numarası var.Normalda 2500 adet civarında.Bu seri numaralarının bazıları defterde yazılı.Defterde yazılı olanlarla dosyadaki seri numaralarını karşılaştırıp, defterde olmayan seri noları "yeni seri no" sutununa otomatik eklemesini istiyorum.Bunu bul-dğiştir fonksiyonunu kullanarak yada başka pratik bir yöntemle nasıl yapabiliriz değerli üstadlar.

 

[yanginci34]

Defter Sayfa1 mi oluyor?

 

[ÖmerBey]

Merhaba,
İlgili sayfada kodu çalıştırıp çıkan InputBox'a defterdeki kodlarınızı sırasıyla girebilirsiniz.

Sub kod()
Do
1
    nu = Application.InputBox("Seri no giriniz.", Type:=1)
    If nu = False Then
        Exit Sub
    ElseIf nu = "" Then
        MsgBox "Lütfen bir seri numarası giriniz."
        GoTo 1
    Else
        say = WorksheetFunction.CountIf(Range("B:C"), nu)
        If say > 0 Then
            MsgBox nu & " seri numaralı kayıt dosyanızda bulunmaktadır."
        Else
            son = Range("C65500").End(3).Row + 1
            Cells(son, "C").Value = nu
            Cells(son, "C").Select
        End If
    End If
Loop
End Sub

İyi çalışmalar...

 

[netzone]

Merhaba,

Paylaşımınızda Sayfa1,2,3 yer alıyor ve işlemi görmek istediğiniz yer Sayfa1 de bulunuyor lakin defter diye tabir ettiğiniz bir liste yer almıyor. defter diye tabir ettiğiniz listenin tek sütundan olduğunu ve bu listenin de Aynı çalışma kitabı içinde defter isimli bir çalışma sayfasının A Sütununda bulunduğunu varsayarsak sayfa1 de c2 ye yazılması gereken formül şu şekilde olabilir.

=EĞER(((EĞERHATA((DÜŞEYARA(B2;defter!A:A;1;0));"")))="";B2;"")

örnek dosyayı indirebilirsiniz, kontrol ediniz.

İyi çalışmalar.

 

[power]

kusura bakmayın,defter diye tabir ettiğim herkezin bildği normal defter.bu kayıtlar bilgisayarda tutulmazken normal deftere yazılmış yada veri kaybı olmaması içinde yapılmış olabilir.Fakat zaman içerisinde bazı seri numaraları deftere işlenmiş bazıları işlenmemiş.ben serileri tek tek kontrol ederek defterde olmayan serileri bulmak istiyorum.

 

[netzone]

Merhaba,

Belirtmiş olduğunuz gibi tek tek giriş yapacaksanız mucit77'nin paylaşmış olduğu kodları Sayfa 1 üzerinde uygulayınız (Alt+F11).

Ekranda belirecek kutu içine girmiş olduğunuz değer listenizde kontrol edilecek ve varsa kayıtlı olduğu uyarısı alacaksınız, yoksa c sütununa yazılacaktır.

Öyle sanıyorum ki bu işinizi görecektir.

iyi çalışmalar.

 

[power]

teşekkürler,
mucit77'nin verdiği kod işimi görüyor.zaten daha fazlasıda olamazdı,girişi tek tek yapmak zorundayım.

 

[power]

verilen kodları kullanarak bir miktar çalışma yaptım.giriş adedi çoğaldıkca seri numaralarına ait malzemenin tipleri karışmaya başladı.o yüzden bir sutun daha ekledim bu sutunda seri numaralarına ait malzemelerin tipleri var.sonuç olarak giriş yapılan seri no "mevcut no" sutununda yoksa;bu seri numarasını "d" sutununa,tipine ait bilgiyide "e" sutununa atmasını istiyorum.yardımcı olabilecek hocalarıma şimdiden teşekkürler.

 

[yanginci34]

Denermisiniz.
http://dosya.co/59kvahls21o1/input_veri_girme.xls.html

 

[power]

Yanginci34 hocam ilginize teşekkürler.Fakat işin mantığı tamamen değişti o yüzden kusura bakmayın.
Tam anlamıyla düşünmeden,kafa yormadan mantık olarak yanlış bir dosya koyduğum için herkezden özür diliyorum.
Koyduduğum dosyanın mantığının, yapmak istediğim işle uyuşmadığını fark ettim.son olarak örnek dosya ile yapılması gerekeni müsadenizle söylemek istiyorum.
b-c-d-e olmak üzere dört sutun var. b-c sutunlarında mevcut seri numaralar ve tipleri var.seri nosu girildiği zaman mevcut listede bu seri varsa bu seri "d" sutununa,bu serinin karşılığında hangi tip varsa oda bulunduğu yerden kesilip "e" sutununa yapıştırılması.

 

[power]

Mesajımız Güncel.

 

[yanginci34]

Denermisiniz.
http://dosya.co/4htai5vb6q3f/input_veri2.xls.html

 

[power]

hocam çok teşekkürler,
prensip olarak istediğim gibi çalışıyor.Fakat mümkün olursa bir iki düzeltme yapabilirsek çok daha iyi olacak.şimdiden teşekkürler.
1-msgbox penceresine seri numara girilip enter yapılıp sonuç alındıktan sonra imleç msgbox penceresinde ikinci seri numarasını girmek için hazır halde kalsa(3 nolu mesajdaki msgbox penceresi aynı bu şekilde),çünkü yaklaşık 2500 civarı kayıt tek tek elden geçeceği için çok ömemli hale geliyor bu özellik.
2-seri no ve tip satırı kes-yapıştır yapılınca kesilen satırın silinmeden boş olarak kalması.

 

[yanginci34]

C sütununu sildiğimizde kod çalışmıyor bu yüzden silinen yere "SİLİNMİŞ" yazdırıyorum umarım sakıncası yoktur. Denermisiniz.
http://dosya.co/onwbvdysxw5x/input_veri4.xls.html

 

[power]

c sütununa silinmiş yazmasının hiç bir mahsuru yok hocam.
Yanlız msgbox penceresine seri numara girilip enter yapıldığında girilen seri varsa d-e sütununa atıyor.msgbox penceresini kapatmadan girilen seri numaralarında seri varsa d-e sütuna alt alta sıralamıyor.en son verinin üstüne yazıyor.

 

[yanginci34]

Günaydın, şu anda telden cevap yazıyorum müsait olunca ilgilenilen.

 

[yanginci34]

Denermisiniz
http://dosya.co/94p3oda197jq/Kopya_input_veri5.xls.html

 

[power]

hocam çok teşekkür ederim şuanda bu konuyla ilgili çalışmamı, hazırladığınız kodlar sayesinde çok kolay bi şekilde yapıyorum.Allah Razı olsun.

 

[power]

hocam işlem yaparken harf ve rakamlardan(10D25B45 gibi) oluşan seriler varmış dolayısıyla bu serileri kabul etmiyor buna yapacak bir şeyimiz varmı?

 

[ÖmerBey]

nu = Application.InputBox("Seri no giriniz.", Type:=[COLOR="Red"]2[/COLOR])

olarak değiştirebilirsiniz.