fiyat aktarma

[demhatozcelik]

Arkadaşlar merhaba

Bana bu makroda yardımcı olabilirmisiniz. Ekli listede isim listesi c stununa girilen barkoda ait bilgileri ilaç fiyat listesinden bulu isim listesi ilaç adı ve fiyatı iligili yerelere yazılacak.

 

[Husgvarna]

Arkadaşlar merhaba

Bana bu makroda yardımcı olabilirmisiniz. Ekli listede isim listesi c stununa girilen barkoda ait bilgileri ilaç fiyat listesinden bulu isim listesi ilaç adı ve fiyatı iligili yerelere yazılacak.

Merhaba.

"İSİM LİSTESİ" kod sayfasına:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("C2:c65000")) Is Nothing Then
If Target.Cells = "" Then Exit Sub
Set a = Sheets("FİYAT LİSTESİ").[A2:A65000].Find(What:=Target)
If Not a Is Nothing Then
Application.EnableEvents = False
b = Cells(65000, 4).End(xlUp).Row + 1
Cells(b, 3) = Sheets("FİYAT LİSTESİ").Cells(a.Row, 1)
Cells(b, 4) = Sheets("FİYAT LİSTESİ").Cells(a.Row, 2)
Cells(b, 6) = Sheets("FİYAT LİSTESİ").Cells(a.Row, 3)
End If
End If
Application.EnableEvents = True
End Sub

 

[demhatozcelik]

Sayın Husgvarna
İlginiz için teşekkür ediyorum. Yalnız hatalar veriyor. Örneğin Boş satıra çift tıkladığımda sanki brkod okutulmuş gibi ilaç bilgileri geliyor. Ve çok ağır çalışıyor. Sıra numarası vermesin onu manuel olarak yazacam. Çünkü bazı isilere ait 4 kalem ilaç oluyor.

 

[Husgvarna]

Sayın Husgvarna
İlginiz için teşekkür ediyorum. Yalnız hatalar veriyor. Örneğin Boş satıra çift tıkladığımda sanki brkod okutulmuş gibi ilaç bilgileri geliyor. Ve çok ağır çalışıyor. Sıra numarası vermesin onu manuel olarak yazacam. Çünkü bazı isilere ait 4 kalem ilaç oluyor.

Yukarıdaki kod değişti onu denermisiniz?

 

[demhatozcelik]

sayın Husgvarna teşekkür ediyorum. Çok güzel çalışıyor.
Bide bir konuda bilgi alabilirmiyim. Artık ilaç üzerinde barkod değilde karekod var ve bazı ilaçlarda barkod yok sadece karekod var. excelde bunu okutabilirmiyiz. Okutulan bilgi içerisinde sadece barkodu aldırıp arama yaptırılabilirmi?


örneğin
barkod
8699514095613
karekod

010869951409561321011074291071592171309301006086

3. ve 16. karakterler arası barkod numarası oluyor.

 

[Husgvarna]

sayın Husgvarna teşekkür ediyorum. Çok güzel çalışıyor.
Bide bir konuda bilgi alabilirmiyim. Artık ilaç üzerinde barkod değilde karekod var ve bazı ilaçlarda barkod yok sadece karekod var. excelde bunu okutabilirmiyiz. Okutulan bilgi içerisinde sadece barkodu aldırıp arama yaptırılabilirmi?
örneğin
barkod
8699514095613
karekod
010869951409561321011074291071592171309301006086
3. ve 16. karakterler arası barkod numarası oluyor.

Merhaba.
Bununla ilgili bir örnek eklermisiniz. Olur gibi görünüyor.

 

[demhatozcelik]

örneği yok ilk olacak.
Verdiğiniz kodlar çok güzel çalışıyor. Tek fark barkod yerine karekod okutup verileri getireceğiz.
Barkod bölümüne karekodu okutacam. Fiyat Listesi sayfasından 8699514095613 barkod nolu ilcı bulup ilgili yerlere aktaracak.
barkod sabit oluyor değişmez. Ama üretilen her kutu ilaç için karekod değişiyor. Karekod içinde 4. ve 16. karakterler arası barkod numarası oluyor.
karekod
010869951409561321011074291071592171309301006086

 

[Husgvarna]

örneği yok ilk olacak.
Verdiğiniz kodlar çok güzel çalışıyor. Tek fark barkod yerine karekod okutup verileri getireceğiz.
Barkod bölümüne karekodu okutacam. Fiyat Listesi sayfasından 8699514095613 barkod nolu ilcı bulup ilgili yerlere aktaracak.
barkod sabit oluyor değişmez. Ama üretilen her kutu ilaç için karekod değişiyor. Karekod içinde 4. ve 16. karakterler arası barkod numarası oluyor.
karekod
010869951409561321011074291071592171309301006086

 Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("C2:c65000")) Is Nothing Then
If Target.Cells = "" Then Exit Sub
[COLOR="Red"]If Target.Cells.Offset(0, 1) <> "" Then Exit Sub[/COLOR]
Set a = Sheets("FİYAT LİSTESİ").[A2:A65000].Find(What:=Target)
If Not a Is Nothing Then
c:
Application.EnableEvents = False
b = Cells(65000, 4).End(xlUp).Row + 1
Cells(b, 3) = Sheets("FİYAT LİSTESİ").Cells(a.Row, 1)
Cells(b, 4) = Sheets("FİYAT LİSTESİ").Cells(a.Row, 2)
Cells(b, 6) = Sheets("FİYAT LİSTESİ").Cells(a.Row, 3)
If x > 0 Then GoTo r
Else
m = Left(Target.Text, [COLOR="Red"]15[/COLOR]) 'veya [COLOR="#ff0000"]16[/COLOR]
m = Right(m, 13)
Set a = Sheets("FİYAT LİSTESİ").[A2:A65000].Find(What:=m)
If Not a Is Nothing Then
GoTo c
x = x + 1
End If
End If
End If
r:
Application.EnableEvents = True
End Sub

 

[demhatozcelik]

Olmadı deniyorum değişen birşey yok.

 

[Husgvarna]

Olmadı deniyorum değişen birşey yok.

Merhaba bir önceki mesajımdaki kodlar değişti:

 m = Left(Target.Text, [COLOR="Red"]15)[/COLOR] 'veya [COLOR="#ff0000"]16[/COLOR]

hücre biçimlendirmenize göre "15" olmazsa "16" yazıp deneyin.

 

[demhatozcelik]

Merhaba
Sayın Husgvarna süpersiniz mükemmel şekilde çalışıyor. Çok teşekkür ediyorum.

 

[demhatozcelik]

Merhaba
Sayın Husgvarna süpersiniz Mükemmel çalışıyor. Çok teşekkür ediyorum.

 

[Husgvarna]

Merhaba
Mükemmel çalışıyor. Çok teşekkür ediyorum.

Sağolun kolay gelsin.