Getting the positions from multi-selected Cells

[SeF]

Hello!

I will try to explain what I want by giving an example.

First, a sample code:

HotKeySet("{F1}", "Start")

While 1
    sleep(100)
WEnd

Func Start()
    $oExcel = ObjGet("", "Excel.Application")
    $Positions = $oExcel.Application.Selection.Address
    MsgBox(0, "Example", $Positions)
EndFunc

See this Excel sheet:

If I select the cells like the picture and press "F1", the text on the MessageBox will be: $A$3:$A$7

But, If I apply some Filters like these:

The result will be the same: $A$3:$A$7

End of story: I get the same result with or without Filters.

I want to get every position from all the selected Cell (Actually, I need only the Rows...)

For example : pressing "F1" and returning only A3, A5 and A7 when the Filter is ON.

Thanks!

Edited January 15, 2010 by SeF

[PsaltyDS]

Try something like:

#include <Excel.au3>

Global Const $xlCellTypeVisible = 12

; ...

$oSelRange = $oExcel.ActiveSheet.AutoFilter.Range.SpecialCells($xlCellTypeVisible)

Don't have Excel here to test.

[SeF]

Try something like:

#include <Excel.au3>

Global Const $xlCellTypeVisible = 12

; ...

$oSelRange = $oExcel.ActiveSheet.AutoFilter.Range.SpecialCells($xlCellTypeVisible)

Don't have Excel here to test.

Thanks for the reply!

I did it! Just by changing a little bit your code:

$Positions = $oExcel.Selection.SpecialCells($xlCellTypeVisible).Address

Edited January 16, 2010 by SeF