chr13

Hi My code checks to see if a folder exists and creates one if it doesn't before going on to produced a dynamic number of PDF documents and save them in the folder. The Code works, but I decided to try and be clever and give the user the opportunity of opening the folder once all the PDFs had...

Hi, I have got here a very simple macro that copies three values to a worksheet from a userform and then it opens a new email message and it pastes these values into the email message. The userform has 3 text boxes and 1 command button: TextBox1 TextBox2 TextBox3...

Dear all, I am currently working on this code and I need to replace chr(13) with space for the selected text and not for the whole slide. The code below works well with all shapes in active presentation . The code is as follows : Sub Removepb() Dim otxR As TextRange Dim osld As Slide Dim...

I have a query: Bron = Excel.CurrentWorkbook(){[Name=""Finost_OI_1""]}[Content]," & Chr(13) & "" & Chr(10) & _ " #""Type gewijzigd"" = Table.TransformColumnTypes(Bron,{{""Date"", type date}, {""ArtNr"", type text}})," & Chr(13) & "" & Chr(10) & _ " #""Rijen gefilterd"" =...

I made a Querie: ActiveWorkbook.Queries.Add Name:="QueryTab", Formula:="let" & Chr(13) & "" & Chr(10) & _" Bron = Excel.CurrentWorkbook(){[Name=""Finost_OI_1""]}[Content]," & Chr(13) & "" & Chr(10) & _" #""Type gewijzigd"" = Table.TransformColumnTypes(Bron,{{""Date"", type date}...

I wrote some VBA to that adds a .csv file as a power query in Excel. The file location can change. I have some code that allows you to pick where the files are located, but I can't figure how to use that input to tell it where to look. Below is what I have for getting the file location...

With ws_data .Range("J:J").Clear For t = 2 To nwb_LastRow rn_1 = .Cells(t, 3) temp_fac = .Range("H" & t) & .Range("I" & t) If Application.WorksheetFunction.CountIf(ws_rd.Range("A:A"), rn_1) = 0 Then...

Hi I am looking for some help if possible. I have a macro running that saves and closes a file 2 minutes after it has been opened. I was hoping that when the file saves that it would email the file to a user but this doesn't seem to be working In Modue1 I have Module1 Dim CloseTime As Date Sub...

Good afternoon, I have this code from a recorded macro, that imports the specific file into the open worksheet. (highlighted path and file) Sub importnewfile() ActiveWorkbook.Queries.Add Name:="Derby_Station", _ Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Source =...

Hello All, I am using Excel 2013 and I would like to know how to have my message box to pop up the value of a cell that has a different language. In cells C2 and others, for example I have a words in Greek. When I am entering in the words I change from English font to a Greek font and type the...

Hi I am 100% certain that something in the below code is causing my worksheet to hang when I double click on a cell or when I run a macro affecting this sheet - there are NO VBA errors. Unfortunately the code was written for me around 15 years ago, so I can't go back to the author to query it...

I need some help I am not sure why how to get this code to run I have tried a few different things, but I just want to be able to easily change the file directory via DIM Directory = "C:\DATA" FileName = "PRNT" & i & ".DAT" DirFile = Directory & FileName ActiveWorkbook.Queries.Add Name:="PRNT"...

morning i currently use the code below, but i also want to include 'invoice-" & the text in "G1" Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Set Target = Range("a10") If Target = "" Then Exit Sub On Error GoTo Badname ActiveSheet.Name = "Invoice WC"...

I have established an API question via Power Query and I am just mimic it through VBA. The JSON document that is returned has multiple drill downs that I need; however, I had to create a new connection each time to change the let statements. I think this is where my query is going really slow...

Hi Guys, I have been chasing my tail on this one. I have a chart and I want to place a "label" on it using a textbox. I need to make the background of the textbox white and the text black. here is the code I have. Sub Sticker() With...

Hi Im trying run the below code that is connected to a ms access database... if i run the code based on any criteria apart from date it seems to work, however every time I use date as a criteria it fails with error 1004 "Application-defined or object-defined error" CommandText = Array( _...

Hi there, I had a macro that worked before but fails now because the Query Editor says that it's using Internet Explorer Compatibility Mode. I would prefer not having it download as a query table. In the old versions of excel, it was not as complicated as it is now. Any help would be super...

I have tried to make this as simple as possible to track this down, but Excel's macro recording just doesn't seem to be recording the right thing... I just can't figure out WHAT it's recording wrong. Simple macro steps: create new workbook, Data:From Text, select .txt file, when Query preview...

Hello, I have a code in which i use ActiveWorkbook.Queries.Add to import a CSV file. But while importing i need to filter only those rows containing value given by user. Below is the code. I have Highlighted and Bold the portion where i give the filter criteria as [Object ID] = 140. But what i...

Hello All, How do I import every/all fields in my query? I need the equivalent of SELECT FROM * . Below is what I got: Sub CSVFiles() Dim MyFile As FileDialog Set MyFile = Application.FileDialog(msoFileDialogFilePicker) Dim StrFileName As String, strPath As String StrFileName =...