Sziasztok!
Egy relatíve egyszerű eseménykezelő makróval kapcsolatban szeretném kérni a segítségeteket.
A makró mindössze annyi lenne, hogy amennyiben rutinnal ellátott sheet „A” oszlopában bármilyen változás történik, akkor a „Result” elnevezésű sheet egy változó segítségével definiált tartományát törölje.
Ez a kód (talán ez most elegendő, de ha kell csatolok mintatáblát is):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
lRow = Sheets(„Result”).Cells(Rows.Count, 2).End(xlUp).Row
Set KeyCells = Range(„A:A”)
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
Sheets(„Result”).Activate
ActiveSheet.Range(Cells(2, 2), Cells(lRow, 3)).Select
Selection.ClearContents
End If
End Sub
A rutin az ’ActiveSheet.Range(Cells(2, 2), Cells(lRow, 3)).Select’ sornál a következő hibára fut:
Application-defined or Object-defined error
Hálás lennék, ha tudnátok segíteni.
Előre is köszönöm,
Péter
.
