This is what I have tried so far
Original vba code:
AutoIt
Sub DDD() Dim rng As Range, lastRow As Long Dim lastCol As Long, i As Long Dim rw As Range, col As Range Set rng = ActiveSheet.UsedRange lastRow = rng.Rows(rng.Rows.Count).Row lastCol = rng.Columns(rng.Columns.Count).Column For i = lastRow To 1 Step -1 Set rw = Rows(i) If Intersect(rw, Range("Print_Area")) Is Nothing Then rw.EntireRow.Delete End If Next For i = lastCol To 1 Step -1 Set col = Columns(i) If Intersect(col, Range("Print_Area")) Is Nothing Then col.EntireColumn.Delete End If Next ActiveSheet.UsedRange End Sub
Autoit Code: (Conversion not completed)
Syntax error on this line: "If $oExcel.Application.intersect($rw, $oExcel.Range("Print_Area")) = nothing Then"
Func _ClearOutsidePrintArea() Local $rng = $oExcel.Activesheet.UsedRange Local $lastrow = $rng.Rows($rng.rows.Count).Row Local $lastcol = $rng.Columns($rng.Columns.count).Column For $i = $lastrow To 1 Step -1 Local $rw = $oExcel.rows($i) If $oExcel.Application.intersect($rw, $oExcel.Range("Print_Area")) = nothing Then $rw.EntireRow.Delete EndIf Next For $i2 = $lastcol To 1 Step -1 Local $col = $oExcel.columns($i2) If $oExcel.Application.intersect($col, $oExcel.Range("Print_Area")) = nothing Then $col.EntireRow.Delete EndIf Next EndFunc
So far no clue on how to fix the syntax error, any help is appreciated.