Olmayan verileri diğer sayfaya aktarma

[byysmn]

Arkadaşlar kolay gelsin
ekteki dosyada barkod çalışmamız var amacımız sayımda listede olmaya ürünleri tespit etmek ve bu ürünleri düzenlemek. Yapmak istediğim arama sayfasında barkodu okuttuğumda ürün adı gelmediğinde o barkodun yok sayfasına aktarılması ve sesli uyarı vermesi yardımcı olursanız cok sevinirim. Ilginize teşekkürler

 

[Ömer]

Merhaba,

Arama sayfası kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Sl As Worksheet, Sy As Worksheet, c As Range, son As Long
 
    If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub
 
    Set Sl = Sheets("LİSTE")
    Set Sy = Sheets("YOK")
 
    Set c = Sl.Range("B:B").Find(Target, , xlValues, xlWhole)
    If Not c Is Nothing Then
        Cells(Target.Row, "B") = Sl.Cells(c.Row, "C")
        Cells(Target.Row, "C") = Sl.Cells(c.Row, "D")
        Cells(Target.Row, "D") = Sl.Cells(c.Row, "E")
    Else
        Beep
        son = Sy.Cells(Rows.Count, "A").End(xlUp).Row + 1
        Range("B" & Target.Row & ":D" & Target.Row).ClearContents
        Sy.Cells(son, "A") = Target
        Sy.Cells(son, "B") = Cells(Target.Row, "B")
        Sy.Cells(son, "C") = Cells(Target.Row, "C")
        Sy.Cells(son, "D") = Cells(Target.Row, "D")
    End If
 
End Sub

.

 

[byysmn]

Hocam bi sorun var arama sayfasındaki düşey ara formülünü siliyor onu düzelte bilirmiyiz

 

[Ömer]

Formül işlevini yapan kod ekledim, aynı görevi yapıyor. Neden formül kalsın istiyorsunuz.

 

[byysmn]

Hocam aramayı arama sayfasından barkoda göre yapıyorum a2 hücresine barkodu okutuyorum olanlar geliyor olmayanları yok sayfasına aktarsın istiyorum formülü sildiğinde arama sayfası a2 hücresine yazdığım herşeyi yok sayfasına atıyor

 

[Ömer]

Ben size kodun mantığını açıklayayım siz karar verin.

Barkod sayfası A sütunundaki veriyi liste sayfasında arar, bulursa bulduğu verileri barkod sayfası b, c ve d sütunlarına aktarır.

Eğer bulamazsa b,c ve d ki eski verileri siler ( çünkü eski veriler daha önce aranıp bulduğu barkota aittir. ) ve barkodu olmayan sayfasına aktarır.

Buradaki bana göre tek mantık hatası, barkod sayfasında b, c ve d leri olmayan sayfasına aktarmaktır, çünkü olmayan bir verinin b, c ve d sütunlarında karlığı doğal olarak olmaz.

Bu algoritmaya göre yanlış olan yada eklenmesi gereken yada tamamen değişmesi gereken bölge neresidir.

Sorunuzu bu doğrultuda tekrar açıklarsanız istediklerinizi koda dökerim.

 

[byysmn]

HOCAM AŞAĞIDA HATALI OLAN BİR YER VARMI SATIR SAYISI 35000 FALAN ONDAN OLABİLİRMİ

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Sl As Worksheet, Sy As Worksheet, c As Range, son As Long

If Intersect(Target, Range("A2:A" & Rows.Count)) Is Nothing Then Exit Sub

Set Sl = Sheets("LİSTE")
Set Sy = Sheets("YOK")

Set c = Sl.Range("B:B").Find(Target, , xlValues, xlWhole)
If Not c Is Nothing Then
Cells(Target.Row, "B") = Sl.Cells(c.Row, "C")
Cells(Target.Row, "C") = Sl.Cells(c.Row, "F")
Cells(Target.Row, "D") = Sl.Cells(c.Row, "G")
Else
Beep
son = Sy.Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("B" & Target.Row & "" & Target.Row).ClearContents
Sy.Cells(son, "A") = Target
Sy.Cells(son, "B") = Cells(Target.Row, "B")
Sy.Cells(son, "C") = Cells(Target.Row, "C")
Sy.Cells(son, "D") = Cells(Target.Row, "D")
End If

End Sub

 

[byysmn]

Hocam buldum çok teşekkür ediyorum sizide çok uğraştırdık sütün isimlerini düzeltirken sayfanın ismine dikkat etmemişim çok özür dilerim çok teşekkürler

 

[Ömer]

Ne gibi bir hata?

İlave: Geç kalmışım, sorunun çözüldüğüne sevindim.