Stok listesinden kod yazarak yeni birsey olusturmam gerekiyor yardım ?

[taskoparan]

sayın arkadaşklar
birtane stok listem var.bu listeden stok isimlerini aktarmam gerekiyor isteğim su sizden yeni olusturduğum ektedi liste klasöründen dia kodunu yazdığımda o dosyadan ürün ismini almasını istiyorum.simdiden herkeze teşekkürler

 

[Tarkan VURAL]

Dia kodu diğer dosyadaki item kodu mu oluyor ?

 

[Tarkan VURAL]

ADO ve SQL ile yanıt :

Dim con As Object, rs As Object
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sorgu As String, yol As String
On Error Resume Next
If Target.Column = 1 And Target.Value2 <> Empty Then
If Err.Number = 13 Then Exit Sub: Err.Clear

Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

yol = "c:\deneme\stok liste.xls" ' dosya yolunu kendinize göre ayarlayın, eğer stok dosyanız ile liste dosyanız aynı klasörde ise yol = thisworkbook.path & "\stok.liste.xls" şeklinde de kullanabilirsiniz.
con.Open "provider=microsoft.jet.oledb.4.0;data source = " & yol & ";" & _
"extended properties=""excel 8.0;hdr=yes"""
sorgu = "select * from [Sayfa1$] where [ITEM#]='" & Target.Value & "'"
rs.Open sorgu, con, 1, 1

    Do While Not rs.RecordCount < 0
        Target.Offset(0, 1).Value = rs("ÜRÜN ADI")
        Target.Offset(0, 2).Value = rs("ADT")
        Target.Offset(0, 3).Value = rs("MAX#OF")
            Exit Do
    Loop
Else
    Exit Sub
End If
    If Err Then MsgBox Err.Description & " hatası oluştu "
End Sub

Ürün kodu = İTEM.
Mağaza = MAX.OF
olduğu kabul edilerek kodlama hazırladım.
Bir de dosya yoluna dikkat edip kendinize göre uyarlamasını yaparsınız artık.

 

[taskoparan]

kusura bakmayın ama bu kodu nereye yazıcam ayriytten bende iitem kod örneğin 21646 5 şeklinde ama bende sadece 21646 var bu 5 yazmadan aktarma imkanı olur mu

 

[taskoparan]

formülü yerleştirdim tek sorun 52260 6 veya 26456 3 gibi rakamların sonların tek basamaklı rakam mevcut ben o rakamları silmem gerekiyor.nasıl yapablirim ?

 

[Tarkan VURAL]

Sorguyu değiştiriseniz kuyruk numarası haricinde de çağırdığınızda gelir

sorgu = "select * from [Sayfa1$] where [ITEM#] like '" & Target.Value & "%'"

Ürünleriniz onbinlerce de olsa sonuç ADO-SQL ile oldukça hızlıdır.

 

[taskoparan]

Tarkan Bey;

İlginiz için çok teşekkür ederim.Problemimi hallettim.çok sağolun

 

[Tarkan VURAL]

Siz de sağ olun. İyi çalışmalar.