[es] - VBA code -- negde gresim

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

^{09.07.2010. u 13:46 - pre 167 meseci}

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?

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.

+1 Profil

Re: VBA code -- negde gresim

^{10.07.2010. u 17:03 - pre 167 meseci}

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

steve585

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.univie.teleweb.at.

+6 Profil

Re: VBA code -- negde gresim

^{12.07.2010. u 08:47 - pre 167 meseci}

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.

Odgovor na temu