Otomatik Veri Toplama

[shuker]

Arkadaşlar Merhaba.

Küçük bir tekstil firmasında çalışıyorum.
benden kalite kontrol makinelerinde, kontrolü yapılan kumaş toplarının hangi metrelerde kesildiği hangi metrelerinde sorun olduğunun tespiti istendi. 1 adet metre sayacım var RS485 to RS232 çevirici yardimi ile bu metre sayacından excele ekteki gibi dosya alabiliyorum. Ve saniyede 1 veri attırıyorum. Benim sizden istediğim eğer bu excel dosyasını her vardiyaya sabitlersem, Kalite kontroldeki personel her metre sayacını RESETlediğinde bir önceki rakamı yani resetlenmeden önceki rakamı sağ tarafta herhangi bir hücreye yazsın. (Örnekte olduğu gibi) Örnek linktedir.
http://www.dosya.tc/server30/GvQE0z/Kopyadfhdh.xlsx.html

 

[Ömer]

Merhaba,

Önce J3:J8 arasına başlıkları yani 1.Top, 2.Top vs... yazın. Daha sonra her kaydetmek istediğiniz de kodları çalıştırın. Her seferinde verileri bir yan sütuna data şeklinde kaydolur. İlgili sütun başlıkları siz yazarsınız.

Sub VeriAl()

    Dim sut As Integer

    sut = Cells(3, Columns.Count).End(xlToLeft).Column + 1
    
    Range("F3:F8").Copy
    Cells(3, sut).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
    
    Application.CutCopyMode = False
    
End Sub

.