Hi, Suppose I have data like:

data = Table[{{Subscript[a, x, 1, 1], Subscript[a, x, 1, 2], 
    Subscript[a, x, 1, 3]}, {Subscript[b, x, 2, 1], Subscript[b, x, 2,
     2], Subscript[b, x, 2, 3]}}, {x, 1, 3}]

I get data equals like:

Now suppose I wan't to get from all rows the first item in the first list and the third item in the second list like:

It can be done by using:

{data[[All, 1, 1]], data[[All, 2, 3]]}\[Transpose]

or

{#[[1, 1]], #[[2, 3]]} & /@ data

However I would expect to be able to use just one Function like Part,Extract but I can't figure a way to do that.. Something like data[[All,{{1,1},{2,3}}]] Any suggestions?