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

Katılım
16 Kasım 2006
Mesajlar
38
Excel Vers. ve Dili
Office 2003 Türkçe
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
 

Ekli dosyalar

Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
ADO ve SQL ile yanıt :

Kod:
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.
 

Ekli dosyalar

Katılım
16 Kasım 2006
Mesajlar
38
Excel Vers. ve Dili
Office 2003 Türkçe
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
 
Katılım
16 Kasım 2006
Mesajlar
38
Excel Vers. ve Dili
Office 2003 Türkçe
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 ?
 
Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
Sorguyu değiştiriseniz kuyruk numarası haricinde de çağırdığınızda gelir :D

Kod:
sorgu = "select * from [Sayfa1$] where [ITEM#] like '" & Target.Value & "%'"
Ürünleriniz onbinlerce de olsa sonuç ADO-SQL ile oldukça hızlıdır.
 
Katılım
16 Kasım 2006
Mesajlar
38
Excel Vers. ve Dili
Office 2003 Türkçe
Tarkan Bey;

İlginiz için çok teşekkür ederim.Problemimi hallettim.çok sağolun
 
Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
Siz de sağ olun. İyi çalışmalar.
 
Üst