Search:

i am not sure what the printing part in the title refers to

i can not see from the images how the data is supposed to be related to the order point for each item, i would suggest that a sample...

there are several threads about installing vb6 on win 10, pay to read some of them, as a bit pf trickery to the install correctly

did you try closing the form as the next line of code?

you mean like

a = Range("a1:a7")
Debug.Print Join(WorksheetFunction.Transpose(a), " ")where a is a variant

while you and some others may disagree, the policy of this forum would encourage to make a new thread, with links to any previous thread that is relevant, this is up to the moderators to decide
...

you can try to copy the column widths first
like

With w
lr = .Cells(Rows.Count, 1).End(xlUp).Row
lc = .Cells(1, Columns.Count).End(xlToLeft).Column
.Cells(1, 1).Resize(lr, lc).Copy...

based on your sample workbook, I have made some changes to the original code that appears to work correctly
the saved file appears to have the original formatting, no formulas and size of 29kb

...

split is supported from excel 2000, but i would suspect that it is a multi column list box, so not required

& concatenates the values as you msgbox, you need to add them so use +


textbox1 = GetSelectedItemsGetSelectedItems should return some value type (integer, long or double) rather than a string,...

you can use a lot of vba code in vb6, you should avoid using active anything, selecting or selection object. all ranges should be fully qualified to a application.workbook.worksheet object
like
...

i think the only way you can achieve the desired result is to copy the worksheet rather than the range, but i seem to remember you had some issue with that too

you should test to see if you can...

i think the only way you can achieve the desired result is to copy the worksheet rather than the range, but i seem to remember you had some issue with that too

you should test to see if you can...

also L by the looks of it

from help, if i am looking at the code correctly, i can see why you wold get a type mismatch

you can use like

savfol = CreateObject("shell.application").browseforfolder(0, "Select FOLDER to save to", &H4001, "").self.Path
strDocName = Replace(strDocName, Chr(32), "")...

ActiveWorkbook.Queries.Add Name:="Table 1", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Bron = Web.Page(Web.Contents(""" & Ticker_link & """))," & Chr(13) & "" & Chr(10) & " Data1 =...

isn't that a duplicate of post #8, answer in post #11

did you try as suggested post #10? it does work without error and probably give the desired results
if you also need to paste the column...

a downside to unique exe files, if you want to be able to do updates to your program

have a look to see if there is any validation event for the text fields, so any that can't be blank prevent saving

the second will overwrite the first

is the field actually a text field or a date type?

you could test in the form unload event

show a browseforfolder dialog, or a folderpicker dialog if available

without seeing any code it is a bit difficult to tell, but if the 2d array is a single column values, you can use worksheetfunction.transpose of the array twice to return a single dimension array ...

you should specify a specific cell rather than activecell, also you need to fully qualify the textbox, to which sheet or form it is on

that should work, use OR to combine them

the two 3 parameters at the end are the cursor and locking vales of the recordset, try searching on the appropriate values for read/write recordsets

you may also need some extended properties like...

you could have a variable with the opening content, that you can compare with the closing content

of course, as you are converting the double to integer no time part will be kept

we try not to do that here, we try to help you learn

you have to integer divide seconds by 60 to get minutes, and minutes by 60 to get hours, keep the remainders from each division for the minutes...

you can try


Set b = Workbooks.Add
w.usedrange.copy
b.sheets(1).range("a1").PasteSpecial xlPasteValues
myfile = mypath & Format(Date, "MMM") & " PM Template.xlsx"
myfile = mypath &...

you can try like

Set t = ActiveSheet.ListObjects.Add(xlSrcRange, ActiveCell.Resize(, textbox1), , xlNo)t will return a listobject object variable

the pickfolder is an application dialog, to change its size you would have to subclass the dialog box, which would be fairly intensive to code
i do note that i can see just about all my outlook...

yes i am sure it is possible

what sort of a table?
which application?
table in a word document?
database table in access?

why would you expect it to be different? you are changing its type, not its value

s = CLng(24581)
Debug.Print s;
Debug.Print TypeName(s)
s = CSng(s)
Debug.Print s;
Debug.Print TypeName(s)

@elroy, no compatibility shims at all, just compile and run

i get the same issue running from shell, .bat, .cmd, wscript.run
when the calling program closes then the called program runs, it is...

i just edited my previous post before your response
the program runs as required as a standard user, no elevation should be needed

when the program is opened and runs correctly, it shows in...

@steve the program being called is a vb6 program, so definitely 32 bit, testing with Wow64EnableWow64FsRedirection False, did not resolve the problem

@wqweto changing the last parameter, as shown...

If Not autorunning Then
ShellExecute 0, "Open", App.Path & "\autosend.exe", "", "", 0

windows 10 x64
when i run the above shellexcute, the file appears in the details section of task...

i would assume the should be a \ between the file path and file name, but that would also mean the full file path to be C:\BarkStat\BarkStat\BarkStat.exe, which seems may be an extra folder depth
...