Barkod Okuyucu İle Otomatik Hücre Değiştirme

[break]

Merhaba,

Barkod okuyucu yalnızca "B" ve "C" sütunları için okuma yapacak. Barkod okuyucu ile B4 hücresinden okutmaya başlayacağız. B4 hücresine veri gelince otomatik C4'e geçsin, C4 hücresinde okuma yapacak ve veri gelince otomatik B5'e geçsin. B5 hücresinde okuma yapacak ve veri gelince otomatik C5'e geçsin. Alt satırlara indikçe bu döngü devam etsin istiyorum yaklaşık 10,000 satır olacak.

Yardımınız için şimdiden teşekkürler.

İyi günler dilerim.

Dosya Formatı: Excel

Dosya Linki: https://we.tl/t-AbJZRQYYrA

 

[Asri]

Sayfa adı üzerinde sağ tuş kodu görüntüle deyip yapıştır yapın.
Dosyayı farklı kaydet den .xlsm. olarak kaydedip deneyiniz.

barkod okuyucunuzun koda enter eklediğini var sayıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("B4:B15000")) Is Nothing Then GoTo devam1
      Cells(Target.Row, Target.Column + 1).Select     
   Exit Sub
devam1:
   If Intersect(Target, Range("C4:C15000")) Is Nothing Then GoTo devam2
      Cells(Target.Row + 1, Target.Column - 1).Select
   Exit Sub
devam2:
End Sub

 

[break]

Sayfa adı üzerinde sağ tuş kodu görüntüle deyip yapıştır yapın.
Dosyayı farklı kaydet den .xlsm. olarak kaydedip deneyiniz.

barkod okuyucunuzun koda enter eklediğini var sayıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("B4:B15000")) Is Nothing Then GoTo devam1
      Cells(Target.Row, Target.Column + 1).Select     
   Exit Sub
devam1:
   If Intersect(Target, Range("C4:C15000")) Is Nothing Then GoTo devam1
      Cells(Target.Row + 1, Target.Column - 1).Select
   Exit Sub
End Sub

İlginiz için teşekkür ederim. Kod çok güzel çalışıyor.

 

[Asri]

İlginiz için teşekkür ederim. Kod çok güzel çalışıyor.

Kod da bir düzenleme yaptım. Siz de güncelleyiniz.

 

[gicimi]

@asri Bey,

A2:A15000 arasında barkod okuyucu kullanarak verileri alıyorum. Fakat barkod okuyucu da enter işlemi yapmıyor. Hücre içerisinde imleç aktif kalıyor.
Barkod okuyucu ile sayfanın herhangi bir bölümünde hücreye barkod okuyucu ile veri giriş yaptığında otomatik bir altındaki sütuna geçmesini istiyorum. Nasıl yapabilirim.

 

[işsiz123]

@asri Bey,

A2:A15000 arasında barkod okuyucu kullanarak verileri alıyorum. Fakat barkod okuyucu da enter işlemi yapmıyor. Hücre içerisinde imleç aktif kalıyor.
Barkod okuyucu ile sayfanın herhangi bir bölümünde hücreye barkod okuyucu ile veri giriş yaptığında otomatik bir altındaki sütuna geçmesini istiyorum. Nasıl yapabilirim.

Asri bey'in kodlarını aşağıdaki gibi deneyebilirsin,z.
Sayfa adı üzerinde sağ tuş kodu görüntüle deyip yapıştır yapın.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A1:A15000")) Is Nothing Then GoTo devam1
      Cells(Target.Row + 1, Target.Column).Select
   Exit Sub
devam1:

End Sub

 

[Asri]

@asri Bey,

A2:A15000 arasında barkod okuyucu kullanarak verileri alıyorum. Fakat barkod okuyucu da enter işlemi yapmıyor. Hücre içerisinde imleç aktif kalıyor.
Barkod okuyucu ile sayfanın herhangi bir bölümünde hücreye barkod okuyucu ile veri giriş yaptığında otomatik bir altındaki sütuna geçmesini istiyorum. Nasıl yapabilirim.

Barkod okuyucuların pdf lerinde yada beraber gelen dokumanında enter ekleme barkodları vardır.
Barkod okuyucuya sıra ile okuttuğunuzda enter gönderme özelliği ekleyebilirsiniz.

Bu işlemi denediniz mi?

Örnek link;
http://www.bilkur.com/download/Zebex/dokuman/Zebex_Z-6XXX_Sona_Enter.pdf

 

[dscd]

Sayfa adı üzerinde sağ tuş kodu görüntüle deyip yapıştır yapın.
Dosyayı farklı kaydet den .xlsm. olarak kaydedip deneyiniz.

barkod okuyucunuzun koda enter eklediğini var sayıyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("B4:B15000")) Is Nothing Then GoTo devam1
      Cells(Target.Row, Target.Column + 1).Select    
   Exit Sub
devam1:
   If Intersect(Target, Range("C4:C15000")) Is Nothing Then GoTo devam2
      Cells(Target.Row + 1, Target.Column - 1).Select
   Exit Sub
devam2:
End Sub

Bu koda D sütunu içinde anlık tarih nasıl ekleyebiliriz. C de veri girişi olduğunda D de tarih atsın ve B nin bir sonraki satırına gitsin

 

[Asri]

Bu koda D sütunu içinde anlık tarih nasıl ekleyebiliriz. C de veri girişi olduğunda D de tarih atsın ve B nin bir sonraki satırına gitsin

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("B2:B15000")) Is Nothing Then GoTo devam1
      Cells(Target.Row, Target.Column + 1).Select
   Exit Sub
devam1:
   If Intersect(Target, Range("C2:C15000")) Is Nothing Then GoTo devam2
      Cells(Target.Row, Target.Column + 1).Value = Date
      Cells(Target.Row + 1, Target.Column - 1).Select
   Exit Sub
devam2:
End Sub