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?