Yardım Webden veri alırken yeni eklenen satırı nasıl tespit ederim

birdhane · 19 Ara 2023

Merhaba arkadaşlar, Excelde Veri sekmesi aracılığıyla webden veri çekiyorum ve veriyi dakikada bir yeniliyorum. Veri çektiğim tabloya yeni satır eklenince (yeni satır herhangi bir satırdan önce veya sonra eklenebiliyor, en son satır eklenmeyebiliyor yani) eklenen satırın A hücresindeki değeri mesaj kutusu olarak bildirecek VBA kodu lazım.
Worksheet_Change ile kontrol etmeye çalıştım ancak formülle veya kullanıcı tarafından giriş yapılmadığı için yeni satırın eklendiğini algılamıyor. Bu konuda yardımcı olabilecek arkadaş var mı acaba?

ÖRNEK DOSYA

musapekel · 25 Ara 2023

Uyarlayıp denermisiniz.

Kod:

Dim previousRowCount As Long

Sub KontrolEt()
    Dim currentRowCount As Long
    
    ' Mevcut satır sayısını al
    currentRowCount = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' Eğer önceki satır sayısı ile mevcut satır sayısı farklı ise, yeni satır eklenmiştir
    If currentRowCount <> previousRowCount Then
        MsgBox "Yeni bir satır eklenmiştir. A hücresinin değeri: " & Cells(currentRowCount, 1).Value
    End If
    
    ' Önceki satır sayısını güncelle
    previousRowCount = currentRowCount
End Sub

Sub OtomatikKontrol()
    ' Belirli bir zaman aralığıyla KontrolEt makrosunu çağır
    Application.OnTime Now + TimeValue("00:01:00"), "KontrolEt"
End Sub

Sub Baslat()
    ' Makroyu başlat
    OtomatikKontrol
End Sub

Sub Durdur()
    ' Makroyu durdur
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:01:00"), "KontrolEt", , False
    On Error GoTo 0
End Sub

Yardım Webden veri alırken yeni eklenen satırı nasıl tespit ederim

birdhane

musapekel