VBA code -- negde gresim

[ ramzesIV @ 09.07.2010. 13:46 ] @

Code:
Sub TE()

    Application.ScreenUpdating = True



    For i = 2 To 145
    For j = 2 To 145


    Sheets("Tab").Range("V8").Value = i - 1
    Sheets("Tab").Range("V8").Value = j - 1

    Sheets("Tab").Select
    Range("W9").Select

    Selection.Copy
    Sheets("TE").Select
    Cells(1, j).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("Tab").Select
    Range("S2:S291").Select
    Selection.Copy
    Sheets("TE").Select
    Cells(2, i).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

    Next
    Next

    Application.ScreenUpdating = True

End Sub

ovo je code koji treba da koristim. celija W9 se menja, a sa njom se menja i kolona S.

e sad, meni se kopiraju normalno podaci iz celije w9 i selektuju redom b1, c1, d1 ...
ali kolona S se kopira, ali se selektuje tj pastuje uvek u kolonu B... umesto u b, c, d, ... gde je greska?

[ steve585 @ 10.07.2010. 17:03 ] @

Nisam te bas skuzio sta hoces, ali nadam se da si mislio na ovo

Code:

Application.ScreenUpdating = True



    For i = 2 To 5
    For j = 2 To 5



    Sheets("Tab").Range("V8").Value = i - 1
    Sheets("Tab").Range("V8").Value = j - 1

    Sheets("Tab").Select
    Range("W9").Select

    Selection.Copy
    Sheets("TE").Select
    Cells(1, j).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False

    Next j
    Sheets("Tab").Select
    Range("S2:S291").Select
    Selection.Copy
    Sheets("TE").Select



    Cells(2, i).Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    p = MsgBox(i, vbOKOnly)
    Next i

    Application.ScreenUpdating = True

[ ramzesIV @ 12.07.2010. 08:47 ] @

ne razumem sad tvoj makro.

ovo w9 je naziv onog sto se nalazi u koloni S.

to znaci da moj makro treba da uradi sledece: da snimi W9 u drugi sheet u redu 1, pa onda da snimi kolonu S u taj novi sheet ispod naziva.
i tako 145 puta, jedno pored drugog, znaci b1, c1, d1,... i ispod naziva njegovi podaci iz kolone S.