translater

[EMRE ŞAHAN]

slm arkadaşlar, stok tutulan bir programdan stok kodu ve stok adetlerini excel aktarabiliyorum. bu verileri kullanarak kapsamlı stok analizleri yapmak istiyorum. Bunun için ufak bir dönüştürücü makro hazırladım. şu an işimi görüyor fakat bir sorunla karşılaştım. stok kodu DATA sayfasında tanımlı değil ise hata veriyor. ben bu hata mesajını örneğin " AP-6500 tanımsız stok kodu " diye mesaj verip makroyu bu adımda sonlandırmak istiyorum.

çalışma ektedir. LİSTE sayfasına veriler yapıtırılıyor, TRANSLATER butonuna tıklandığı zaman çevirim işlemi gerçekleşiyor. Stok kodları DATA sayfasında tanımlanıyor.

saygılarımla,

 

[veyselemre]

[vb:1:95a5532415]Sub ara()
Set sf = Sheets("form")
Set Sd = Sheets("data")
Set sl = Sheets("liste")
sf.Range("A2:G65536").ClearContents
On Error Resume Next
For a = 2 To sl.Cells(65536, 1).End(xlUp).Row
sat = 0
sat = Sd.Columns("A").Find(sl.Cells(a, 1)).Row
If sat = 0 Then
MsgBox "<" & sl.Cells(a, 1) & "> KODLU STOK KAYITLARDA BULUNAMADI"
Exit Sub
End If

sf.Cells(a, 1) = Sd.Cells(sat, 5).Value
sf.Cells(a, 2) = Sd.Cells(sat, 6).Value
sf.Cells(a, 3) = Sd.Cells(sat, 7).Value
sf.Cells(a, 4) = Sd.Cells(sat, 2).Value
sf.Cells(a, 5) = Sd.Cells(sat, 4).Value
sf.Cells(a, 6) = Sd.Cells(sat, 3).Value
sf.Cells(a, 7) = sl.Cells(a, 2)
sf.Cells(a, 8) = sf.Cells(a, 6) * sf.Cells(a, 7) * 6
Next a
End Sub[/vb:1:95a5532415]

 

[EMRE ŞAHAN]

sayın veyselemre yardımınız için çok teşekkür ederim.