ürünün bilgilerini vurgulu bir biçimde görebilmek

[songokhu]

Merhaba benim dükkanımda ürün çeşitliliği arttı ve ürünlerin çoğunun barkodlu olması nedeniyle stok girişi, fiyat vb konularda kolaylık olsun diye barkod scanner aldım.
Yapmak istediklerim:
Yeni mal geldiği zaman barkodları okutup dosyadan doğru kalemi otomatik bulup stokları MANUEL olarak güncellemek ve
Satış yaparken barkodu okutup ürünün bilgilerini vurgulu bir biçimde görebilmek.
Teşekkürler

 

[leumruk]

Merhaba,
Örnek dosyayı inceleyiniz. Makro kodları kullanıldı.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [h2]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Range("a2:f65536").Interior.ColorIndex = xlNone
Set Bul = Range("a2:a65536").Find(Target, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Range(Cells(Bul.Row, "a"), Cells(Bul.Row, "f")).Interior.ColorIndex = 3
Else:
MsgBox Target & " numaralı barkoda ait bilgi bulunamadı.", vbCritical, "leumruk"
End If
Son:
End Sub

 

[songokhu]

Çok teşekkürler zahmet oldu.
Tam istediğim.
Saygılar

 

[Merhum İdris SERDAR]

Merhaba benim dükkanımda ürün çeşitliliği arttı ve ürünlerin çoğunun barkodlu olması nedeniyle stok girişi, fiyat vb konularda kolaylık olsun diye barkod scanner aldım.
Yapmak istediklerim:
Yeni mal geldiği zaman barkodları okutup dosyadan doğru kalemi otomatik bulup stokları MANUEL olarak güncellemek ve
Satış yaparken barkodu okutup ürünün bilgilerini vurgulu bir biçimde görebilmek.
Teşekkürler

.

Bu da basıit olarak yapılmış şekli.

Koşullu Biçimlendirme ile yapılmıştır.

.

 

[songokhu]

Buda işimi görür çok sağolun teşekkürler

 

[songokhu]

Ufak bir sorun var

Merhaba iki dosyadada ufak bir sorun var mesela bulunan hücre 5000. sırada otomatik olarak o hücreye gitme şansımız varmı.
Örnek dosyayı ekledim

 

[Merhum İdris SERDAR]

Merhaba iki dosyadada ufak bir sorun var mesela bulunan hücre 5000. sırada otomatik olarak o hücreye gitme şansımız varmı.
Örnek dosyayı ekledim

.

Dosyanız ekte.

.

 

[songokhu]

.

Dosyanız ekte.

.

Harika. Teşekkürler az gelir.