canlı veri kaydı

Katılım
7 Ekim 2020
Mesajlar
1
Excel Vers. ve Dili
2016 Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
23 Mart 2017
Mesajlar
568
Excel Vers. ve Dili
Office365 TR
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.
Kod:
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alternatif;

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

C++:
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
 
Üst