Scan-it programından barkod okuma

[kamil08]

Merhaba
Scan it programı ile telefondan okuttuğum barkodu excele aktarıyom.
Benim sıkıntım şu şekilde.

Excelde A2 satırına barkod bilgisi geliyor ve satır A3'e geçiyor.
Fakat satırı başka bir yere aldığımda(örn:B5) gelen barkod o satıra(B5) yazıyor.
Ben şunu istiyorum,
Scanit programından bir barkod bilgisi geldiğinde her zaman A satırının son sütununa yazmasını istiyorum.
Nasıl yapmam gereklidir.

 

[netzone]

Merhaba,
Scan-IT, yada Barkod okuyucu fark etmez, Yapılan işlem aksi programlanmadıkça; Veri girişi yapıp Enter tuşuna basar.
Eğer excel ayarlarınızı değişmemiş ve Enter ile alt satıra geçiyorsa yapmanız gereken Son satır altına gidip barkodunuzu okutmanız. *Scan-it ücretsiz versiyonunda veri gönderirken arada barkod yerine bir metin gönderir buna dikkat ediniz.

Forumda makro kullanma ile ilgili konulara göz gezdirebilirsiniz.
Aşağıdaki makronun ihtiyacınızı karşılayacağını umuyorum.

İyi çalışmalar.

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' Çalışmak istediğiniz sayfanın adını belirtin
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adı "Sayfa1" değil ise değiştirin.
    
    ' B sütunundaki son dolu satırı bulun
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' Örneğinizde B sütununa yazmak istediğiniz varsayımına göre B sütunu için yazıldı farklıysa ise değiştirin.
    
    ' Son dolu satırın altındaki boş hücreye gider, sizde barkodunuzu okuttuğunuzdan buradan aşağıya doğru eklemelere devam etmiş olur.
    ws.Cells(lastRow + 1, "B").Select
End Sub