Törölt nick Creative Commons License 2011.04.18 0 0 14617

"A valós lekérdezés a F oszloptól kezdődik, de ez lényegtelen."

 

Attól tartok, nem lényegtelen. Ide szerintem a Worksheet_Change vagy Workbook_SheetChange esemény kell, és figyelni kell, hogy hol történik változás a munkalapon. A képlet újraszámolása nem jelent változást, szóval az A2:C31 tartományt hiába figyeli a program. Amennyiben a lekérdezésben benne van az F2 cella, szerintem az alábbi kód jó lesz. A ThisWorkbook kódlapjára másold be.

 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim r As Range
    If (Sh.Name = "Munka3") And Not Intersect(Target, Sh.Range("F2")) Is Nothing Then
        Set r = Worksheets("Munka5").Range("A" & Rows.Count).End(xlUp).Offset(1)
        r.Resize(30) = Now
        Sh.Range("A2:C31").Copy

        r.Offset(, 1).PasteSpecial xlPasteValues
    End If
End Sub

 

Előzmény: pilota-kex (14615)