Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

Excel

Zdravim spravil som si v exceli take trapne makro co kopiruje a vklada bunky z jednoho listu do druheho, ale potreboval by som ho upravit tak aby tato cinnost nebola vidiet tj chcel by som vidiet iba vysledok, nie ako sa mi oznacuju, kopiruju a prepinaju listy.

Sub Refresh_Click()

'select date
Sheets("Import").Select
Range("A1,A8,A15,A22,A29,A36,A43,A50,A57,A64").Sel ect
Selection.Copy
Sheets("Import").Select
Range("I2:I11").Select
ActiveSheet.Paste

'Select Sheet
Sheets("Graf").Select

End Sub


Vdaka
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    PaloPa je offline (nepripojený) PaloPa

    PaloPa
    V tomto prípade súhlasím s Janom, pre komplikovanejšie prechody medzi listami (i worksheet-mi) pomôže toto:
    Code:
    Sub test()
        Application.ScreenUpdating = False  'Disable screen refreshing
        
        ' nieco rob
        
        Application.ScreenUpdating = True  'Enable screen refreshing
End Sub
    P.

    Hlasovalo 1 pouzivatelov

    Užitočné (1)
    marjankaj
    1

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    Použi toto.

    Sub Refresh_Click()
    Worksheets("data").Range("A1,A8,A15,A22,A29,A36,A4 3,A50,A57,A64").Copy Worksheets("import").Range("I2:I11")
    End Sub
    Naposledy upravil marjankaj : 25.02.11 at 23:57
    0

    radioblaster je offline (nepripojený) radioblaster

    radioblaster
    dakujem obom za pomoc
    0

    Excel

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka