Moze li neko da rastumaci ovaj macro:
Code:
Sub Transpose()
Dim Ans As Integer
Dim Iloop As Integer
Application.ScreenUpdating = False
Ans = InputBox("Enter row number to print.")
Columns("A:B").Insert
For Iloop = 1 To 15
Cells(Iloop, "A") = Cells(2, Iloop + 2)
Cells(Iloop, "B") = Cells(Ans, Iloop + 2)
Next Iloop
Range("A1:B15").PrintOut Copies:=1, Collate:=True
Columns("A:B").Delete
Application.ScreenUpdating = False
End Sub
[Shadowed: dodati [code] tagovi i malo sredjen kod.]
[Ovu poruku je menjao Shadowed dana 14.02.2006. u 08:05 GMT+1]