Otomatik Güncelleme

[ezkurtcan]

Merhaba;
Üretime koyduğumuz sıcaklık ölçüm cihazlarının verilerini excele kaydedip, Ekran vasıtasıyla görselleştirmek istiyorum. Ekte göreceğiniz dosyanın "records" sekmesine belli aralıklarla ölçüm cihazlarından gelen datalar kaydediliyor. Bende her güncelleme sonrası son okunan değerleri "visual" sekmesinde göstermek istiyorum. "records" sekmesi güncellendiğinde son satırdaki verileri al "visual" sekmesine yaz gibi bir makroya ihtiyacım var ama daha başlangıç seviyesinde olduğum için yardımınıza ihtiyacım var. Ilgilenebilir misiniz?

 

[Ömer]

Merhaba,

Records sayfasındaki hangi satır yada sütundaki son veriler, visual sayfasının hangi bölümüne gidecek.

Sorunuzu bu yönde detaylı açıklarmısınız.

 

[ezkurtcan]

Tekrar merhaba;
gönderdiğim örneği dikkate alırsak record sekmesindeki B99, F99, J99 sırasıyla visual sekmesinde A40, B40 ve C40'a yazılacak. Yeni datalar gelince B100, F100, J100'e yazılacak ve bunların A40, B40 ve C40'ta görünmesini istiyorum.

 

[Ömer]

Bu şekilde deneyin.

Sub Guncelle()
 
    Dim Sr As Worksheet, Sv As Worksheet
    Dim sonb As Long, sonf As Long, sonj As Long
    
    Set Sr = Sheets("Records")
    Set Sv = Sheets("Visual")
    
    sonb = Sr.Cells(Rows.Count, "B").End(xlUp).Row
    sonf = Sr.Cells(Rows.Count, "F").End(xlUp).Row
    sonj = Sr.Cells(Rows.Count, "J").End(xlUp).Row
    
    If sonb > 4 Then Sv.Range("A40") = Sr.Range("B" & sonb)
    If sonf > 4 Then Sv.Range("B40") = Sr.Range("F" & sonf)
    If sonj > 4 Then Sv.Range("C40") = Sr.Range("J" & sonj)
    
End Sub

.