canlı veri kaydı

[civiladam]

Merhaba
B2 hücresindeki değişken canlı veriyi nasıl "L" sütununa aktarabilirim. Mesela B2 hücresi 5 iken L2=5 olacak
B2=3 olduğu anda bu sefer L2=3 ve L3=5 olmalı.Kısacası L sütünunda en son veri her zaman en üste gelecek
şekilde listeyi kaydırmalı.

Şimdiden teşekkürler,saygılar.

 

[muratboz06]

L2 hücresinde =B2 formülü olmak şartıyla; Aşağıdaki kodu excel sayfasının kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2")) Is Nothing Then
        Dim OldValue As Variant
        Application.EnableEvents = FALSE
        Application.Undo
        OldValue = Target.Value
        Application.Undo
        Application.EnableEvents = TRUE
        Range("L2:L100000").Copy
        Range("L3").PasteSpecial Paste:=xlPasteValues
        Range("L3") = OldValue
        Range("L2").Select
    End If
End Sub

 

[Korhan Ayhan]

Alternatif;

Sayfanızın kod bölümüne uygulayınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Target <> "" Then
        If Range("L2") = "" Then
            Range("L2") = Target
        Else
            Range("L2").Insert Shift:=xlDown
            Range("L2") = Target
        End If
    End If
End Sub