Recent content by papasmurfuo9

thanks - that seems specifically for PDFs? im after word/excel/pdf i found this, but doesnt seem to work Set shApp = CreateObject("shell.application") Set shFolder = shApp.Namespace("Filepath") Set shItems = shFolder.Items() For Each shItem In shItems shItem.invokeverb "&Print" Next

Hi, could anyone share code will print all files in a specific folder the folder could contain, workbooks, PDFs and word documents - i need all printing to default printer thank you!

thank you kind sir

Hi is the following possible, thanks in advance ; So i have two tables Table one list of names Table two list of tasks I want one table to have the list of names, then record in the table is expandable with a list of tasks So Table 1 Michael Roger Tim Table 2 : Headers: Tasks | Date...

Hi I only wanna return what ive highlighted bold before, so top one, g ea Excel i use this IFERROR(TRIM(REPLACE(SUBSTITUTE(L2,"" x "",""""),1,FIND("" "",SUBSTITUTE(L2,"" x "","""")),"""")),"""") Qry_Range_File_Master Sales conversion text 1 x 1 x 24 x 250 g ea 1 x 1 x 1 x 2 Kg ea 1 x 1 x 30 x...

cheers, will try figure the logic ta!

not sure how to combine these for desired result, but will give it a go, thanks

Hi the field contains - 8 examples 1 x 1 x 24 x 250 g ea 1 x 1 x 1 x 2 Kg ea 1 x 1 x 5 x 100 pk 1 x 1 x 2 x 2 ltr 1 x 1 x 2 x 2 ltr 1 x 1 x 12 x 80 g pk 1 x 1 x 1 x 500 1 x 1 x 3 x 5 Ltr con and on the above, im trying to bring back g ea Kg ea pk ltr ltr g pk Ltr con thank you

=REPLACE(SUBSTITUTE(M2," x ",""),1,FIND(" ",SUBSTITUTE(M2," x ","")),""). to be =REPLACE(SUBSTITUTE([MYFIELD]," x ",""),1,FIND(" ",SUBSTITUTE([MYFIELD]," x ","")),"") hi could someone assist with the above? thanks in advance

Hi could someone advise on how to set parameters for the date being last monday to last sunday so Paramaters = Date then i need ParamatersWeek = the last monday to the last sunday thank you!

cheers dude

cheers pal - sorry just to confirm, thats last monday of the previous week?

hi in my query im doing the following to pull all records for the previous week Total Completed: Sum(IIf([Date Completed] Between Date()-(6+Weekday(Date(),2)) And Date()-Weekday(Date(),2),1,0)) what i need now, is one for just Last monday, last tuesday last wednesday last thursday last friday...

anyone any ideas on the above thanks

thought i had it with the below, but doesnt seem to work any ideas? thanks Dim MyAppID, ReturnValue MyAppID = Shell("C:\Program Files\Network Designers\bin\Wscman.exe" & " REFLEX.prw", vbNormalFocus) DoEvents AppActivate "Reflex", True DoEvents Sleep 10000 SendKeys "m", True SendKeys "f", True