ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[walabi]

Merhaba,

Bir userform üzerinde 3 adet listview var. Tarihler arası raporlama , veri karşılaştırmak için kullanılmakta. Listviewlere yüklenen verilerin satır sayıları eşit.

Amacım ise şu. Herhangi bir listviewin aşağı yukarı kaydırma çubuğunu hareket ettirdiğimde diğer ikisininde aynı şekilde hareket etmesini nasıl sağlayabilirim. Ekli dosyadaki resimde göründüğü gibi bir raporlama aracı .

[CouseN]

Kod: Tümünü seç

    If Not Intersect(rng, Range("A1:Z100")) Is Nothing Then
     
        Dim scrollX As Long
        Dim scrollY As Long

        scrollX = rng.Left - obj.Left
        scrollY = rng.Top - obj.Top
       
        obj.Left = obj.Left + scrollX
        obj.Top = obj.Top + scrollY
    End If
End Sub