Recent content by Sherzodom

The problem is I cannot paste data from unprotected excel to protected file (.exe). I cannot understand your answer. Is there a sample file or code?

Copy Paste is not working, only activates and scrolls to last cell The macro drops out copy paste. Because ActiveWindow.ActiveNext is not working, and no error info. Alternatively would be fine if there’s a solution for copy from external source and paste values without loss of any data...

I try the code you offer, but still not working. It’s working If I mention exact directory, like: strFileName = “C:\PriceList.xlsb” Some end users may not have C drive in their computer, and as I don’t know what is name of users’ system drive I need to address to ThisWorkbook.Path, but...

I am currently trying to make work some of codes, which work fine in standart excel. According to instruction: 12.17 Why is ThisWorkbook.Path not working? I apply this code: Dim XLSPadlock As Object On Error GoTo Err Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object...

Dear adworsak, Thanks for the code, but I could not use it for my task. Your code seems not executing what I want. Let me explain you what I want. I open standart excel file (.xlsx, .xslb, .xlsm) from any location (C, D, Flash Drive) by regular way, not with macro and select a range of cells I...

I open another workbook in regular way from any location (it maybe any folder in computer or removeable drive). I select a range on another workbook go to .exe application and run the macro and use ActiveWindow.ActivateNext command to activate another workbook and copy range and paste to .exe...

Not working after On Error Resume Next removed. I cannot activate another workbook from compiled application. I need to copy selected range from another excel workbook to compiled application. I guess I must to apply your code to activate another workbook. I checked the code in section 10 of...

The following code works in regular excel file, but in converted .exe file not working: Sub PASTEIT() On Error Resume Next Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Activate ActiveWindow.ActivateNext Selection.Copy ThisWorkbook.Activate ActiveCell.PasteSpecial Paste:=xlPasteValues...