radioblaster
25.02.11,12:14
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").Select
Selection.Copy
Sheets("Import").Select
Range("I2:I11").Select
ActiveSheet.Paste
'Select Sheet
Sheets("Graf").Select
End Sub
Vdaka
Sub Refresh_Click()
'select date
Sheets("Import").Select
Range("A1,A8,A15,A22,A29,A36,A43,A50,A57,A64").Select
Selection.Copy
Sheets("Import").Select
Range("I2:I11").Select
ActiveSheet.Paste
'Select Sheet
Sheets("Graf").Select
End Sub
Vdaka
marjankaj
25.02.11,12:27
Použi toto.
Sub Refresh_Click()
Worksheets("data").Range("A1,A8,A15,A22,A29,A36,A43,A50,A57,A64").Copy Worksheets("import").Range("I2:I11")
End Sub
Sub Refresh_Click()
Worksheets("data").Range("A1,A8,A15,A22,A29,A36,A43,A50,A57,A64").Copy Worksheets("import").Range("I2:I11")
End Sub
PaloPa
25.02.11,17:25
V tomto prípade súhlasím s Janom, pre komplikovanejšie prechody medzi listami (i worksheet-mi) pomôže toto:
Sub test()
Application.ScreenUpdating = False 'Disable screen refreshing
' nieco rob
Application.ScreenUpdating = True 'Enable screen refreshing
End Sub
P.
Sub test()
Application.ScreenUpdating = False 'Disable screen refreshing
' nieco rob
Application.ScreenUpdating = True 'Enable screen refreshing
End Sub
P.
radioblaster
26.02.11,10:16
dakujem obom za pomoc