Toplam 10 sonuçtan 1 ile 10 arasındakiler gösteriliyor.

Konu: Stok Listesinde Veri Süzme Benzer Sayılar

  1. #1
    Üye
    Üyelik tarihi
    Mar 2014
    Mesajlar
    72

    Stok Listesinde Veri Süzme Benzer Sayılar

    Merhaba,
    1-Liste de Hesapla Butonu ile hesaplamayı yapıyorum hesaplama butonunu kullanırken uyarı ekranı çıkıyor çıkan ekranda EVET/HAYIR "HAYIR" dediğimde uyarı ekranı ekrandan çıkmıyor bu sorunu nasıl çözebilirim?
    2-Fatura Numarası ve Ünvan alanı dışında her hangi bir yerde bir değişiklik yaptığımda her seferinde uyarı ekranı açılıyor ekranın gereksiz yere önüme çıkmaması için bir çözüm varmı?
    Teşekkür ederim.

  2. #2
    Üye
    Üyelik tarihi
    Mar 2014
    Mesajlar
    72
    Pardon Link ini eklemeyi unutmuşum.
    http://s3.dosya.tc/server10/bdcwkg/1...ABARI.rar.html

  3. #3
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    683
    Alıntı kenevir47 Nickli Üyeden Alıntı Mesajı göster
    Merhaba,
    1-Liste de Hesapla Butonu ile hesaplamayı yapıyorum hesaplama butonunu kullanırken uyarı ekranı çıkıyor çıkan ekranda EVET/HAYIR "HAYIR" dediğimde uyarı ekranı ekrandan çıkmıyor bu sorunu nasıl çözebilirim?
    2-Fatura Numarası ve Ünvan alanı dışında her hangi bir yerde bir değişiklik yaptığımda her seferinde uyarı ekranı açılıyor ekranın gereksiz yere önüme çıkmaması için bir çözüm varmı?
    Teşekkür ederim.
    1-alış sayfasındaki butona tıkklaınca evet hayır mesajı çıkmıyor,tamam mesajı çıkıyor sadece.
    2- ben alış sayfasında tc kimlik no sütununda değişiklik yaptım.bir şey sormadı yaparken.
    3-acaba yanlış dosyamı eklediniz.

  4. #4
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    683
    B sütununda mükerer giriş yapılınca mesaj çıkıyor.Evete basarsanız o veri o hücreden siliniyor.
    Hayır seçerseniz bir şey yapılmıyor.

  5. #5
    Üye
    Üyelik tarihi
    Mar 2014
    Mesajlar
    72
    Merhaba Sayın orion1 ilginzden dolayı teşekkürlerimi sunarım.
    Şöyle listeye B sütununa örneğin A1437 ALİ KILINÇ Tekrar A1437 Mehmet Yıldız yazınız ve çekan ekrana hayır deyiniz daha sonra Hesapla butuonuna basınız çıkan ekranda örnekte verdiğim çekilde fatura numarası aynı fakat isim farklı olduğundan hayır seçmeme rağmen ekrandan çıkımıyor evet seçersem bu sefer bir tanesini silerek buda benim istediğim şekil değil.
    Olmasını Fatura Numarası Aynı Ama Farklı isim olduğu için silmeden işleme devam etsin.
    Konu kenevir47 tarafından (01.01.2017 Saat 16:05 ) değiştirilmiştir. Sebep: isim düzeltme

  6. #6
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    683
    Sayfa kod bölümünde ilgili satırı aşağıdaki satırla değiştiriniz.
    Kod:
    Set rng1 = Range("B" & Cells(Rows.Count, "B").End(xlUp))

  7. #7
    Üye
    Üyelik tarihi
    Mar 2014
    Mesajlar
    72
    Sayın Orion1,
    verdiğiniz kodu ilgili satırla değiştirdim uyarı vermeden istediğim şekilde oldu ancak kısmen oldu,
    Yani uyarıyı şu şekilde nasıl yaparım "Değeri daha önce girilmiş işlemi iptal etmek istiyormusunuz." şayet fatura numarası aynı ama adı soyadı aynı değil ise işlem kaydı yapsın şayet adı soyadı ve fatura numarası aynı ise iptal etsin çünkü fatura numarası aynı olan farklı isim ve unvana sahip başka işletmeler olma ihtimali olduğu için böyle bir koda ihtiyac oluyor.

  8. #8
    Üye
    Üyelik tarihi
    Mar 2014
    Mesajlar
    72
    yardımcı olacak biri varsa lütfen konuya cevap yazabilirmi.

  9. #9
    Kıdemli Üye
    Üyelik tarihi
    Dec 2009
    Nereden
    İstanbul
    Versiyon
    Excel 2003 - 2007 TR
    Mesajlar
    413
    Merhaba,
    Kodu deneyiniz.

    Kod:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a(), d As Object, i As Long
    Set d = CreateObject("scripting.dictionary")
    a = Range("B2:C" & Cells(Rows.Count, "B").End(xlUp).Row)
    For i = 1 To UBound(a)
    If Target.Column = 2 And Target.Row > 1 Then Krt = a(i, 1)
    If Target.Column = 3 And Target.Row > 1 Then Krt = a(i, 1) & " " & a(i, 2)
        If Not IsEmpty(Krt) Then
            If Not d.exists(Krt) Then
                d.Add Krt, 1
            Else
                If MsgBox(Krt & vbCr & "değeri daha önceden girilmiştir." & vbCr & vbCr & _
                "İslemi iptal etmek istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then
                    Target.Select
                    Target = Empty
                End If
            End If
        End If
    Next i
    End Sub

  10. #10
    Üye
    Üyelik tarihi
    Mar 2014
    Mesajlar
    72
    ilginizden dolayı teşekkür ederim.

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •