Code won't clear cache?

ljubo_gr

Active Member
Joined
Dec 6, 2014
Messages
251
Office Version
  1. 2013
Platform
  1. Windows
Hi, dear excel vba.. masters!
I have VBA code in Module1,2,3,4
In Module2:
Code:
Private Sub pASTE_SPECIAL()
    On Error GoTo AkoGRESKA
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=True
AkoGRESKA:
 Exit Sub
 End Sub

Module4:
Code:
Sub Zalijepi_LetveiTemp_Obratno_Click()
    Application.Run "pASTE_SPECIAL"
End Sub
With module4 I call private sub from module2, now I have problem, cache won't clear!?
Before module4 I run code w/o calling, directly from module2, cache than clear.
Reason for Module4: now I have a object called "PASTE VAL.&TRANSPOSE" inside excel sheet.
Thanks in advance! kind people!
 
Last edited:
Sorry Rory, I'm lost in translation.............object = Form Control -button
 
Upvote 0

Excel Facts

Select all contiguous cells
Pressing Ctrl+* (asterisk) will select the "current region" - all contiguous cells in all directions.
Main sheet is "........STANJE" where is blue object shortcut named "ULAZ goriva"

No there isn't.

P.s. Problem is, go to sheet "Visine" eng.Hights, where is blue C

There is no such sheet. There are sheets called Visine and Visine_pomList but neither has a blue C on it

then go to sheet "List1"-shortcut object "ULAZ goriva"

Again, there is no such object on that sheet.

select H2 and then click upper object called "ZALIJEPI LETVEiTEMP OBRATNO"

I cannot see that object on any sheet.

Please try again using the actual names of the sheets in the workbook you posted.
 
Upvote 0
35k02ef.jpg
 
Upvote 0
Ah, some of the buttons seem to have been removed from the sheets when the file was downloaded. (the second picture is not of the Visine sheet though)
 
Upvote 0
Ah, me dumb!
Sorry Rory, sorry MrExcel forum.
I just need to add Application.CutCopyMode = False

Code:
Private Sub pASTE_SPECIAL()
    On Error GoTo AkoGRESKA
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
AkoGRESKA:
 Exit Sub
 End Sub

Question SOLVED!
 
Upvote 0

Forum statistics

Threads
1,223,277
Messages
6,171,147
Members
452,382
Latest member
RonChand

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top