myfile

I'm trying to get the information from multiple workbook that follow the same template but with different information on each one into one master workbook but I'm having trouble as the multiple workbook will constantly be changing as more support calls are made, I tried to write the code below...

Hello Everyone, I cant seem to find what is cauing my error.. I s a simpl code to on a file in the foldercopy a column ofdata nd pase in thedestination file on the next open column. Can someone help, maybe Ijus need more sleep, becaue I antsee it. Sub LoopThroughDirectory() Dim MyFile As...

I'm really sorry: error, please delete.

Hi all, I have the code below that loops through workbooks in a folder and copies data from a specific sheet in each file into a master workbook. For some reason Excel will randomly close down while the Macro is running and leave me with a workbook in a recovered state so I have no idea at...

Hi everyone, I have written a small piece of code but I am having trouble finishing it off. Below my code opens all the files in a folder, selects a sheet and copies a range of cells which it then pastes to a master spreadsheet. After I have pasted the values to the master spreadsheet I need...

I have a macro to search duplicate file name in excel file (LogFile.xlsx). If found show it on macro file (SearchDuplicate.xlsm) otherwise insert the file name in logfile. Please !! help ! Sub Button1_Click() Dim MyFolder As String, MyFile As String Dim LastRowLogFile As Long, m As Long Dim...

I need to apply below code on about 3000 files and each file have 300K rowsx 4columns. With the code below each file take about 5 minutes to complete, so to do this on all files will take me couple days. Is there a way to make this happen faster? (I need to also add, I'm very new to VBA and...

I am having an issue importing specific text from a lengthy log file. I can get it to find and return the correct results but it stops after the first match. I need it to go thru the entire file and return all relevant results in each column. Private Sub CommandButton1_Click() Dim myFile As...

Hi I am attempting to open a csv file and then copy data from it to my main workbook. I can open the file fine but when I get to the bit of code that requests to copy the data, I get Run-time error '1004'; Application-defined or object-defined error and I cannot work out why. As far as Excel...

Hello, I am trying to code macro to consolidate all workbooks in a file on my computer. My macro seems to work but is not pasting in data from the other files into my master (zbook1). Can anyone assist? Sub LoopThroughDirectory() Dim MyFile As String Dim erow Dim Filepath As String...

Hi all, I have been set a task that involves modifying the way that a macro works for a client.. whilst I know how to do what i want to do, i do not know how to get excel to do it for me, so I will be learning VBA over the coming days :) My first step is to understand what the author has...

Only paste the values from the first workbook and then it appears to not locate the next open row?? Sub Loopthrudirectory() Dim myfile As String Dim erow myfile = Dir("C:\AA_HISTORY") Do While Len(myfile) > 0 If myfile = "activity Log.xlsm" Then Exit Sub End If Workbooks.Open (myfile)...

Hi folks, I have bee puzzling this one for a little bit now and can make excel do a few things. Unfortunately cant get it quite right. I want it to simply save my excel worksheet as a pdf to my desktop with cell E4 on the active sheet as the filename. The code below saves to desktop...

Hello dears i have an issue witch is i am using code to SaveAs a specific Cell Range to Specific Folder and it works good, but i need to save direct to the folder without SaveAs method please see the code below, thanks in advance 'DAIPHRAM SHEET PDFSub PDFActiveSheet() Dim wsA As Worksheet...

I have project spreadsheets that list Projected hours each employee is expected to work per month. I have a master spreadsheet that has tabs for each quarter. Each tab has the project number across the top, and each employee down the left. I am trying to make a Macro that will open each...

Hello, I have a macro that is designed to print all text from Column A to print a list of all data except the blank cells. This is my macro, but it is not printing. I have it assigned to a Command Button. Is the print menu supposed to pop up or will it just print to my default printer? Is...

Dim wb As Workbook Dim ws As Worksheet Dim objFSO, strTextFile, strData, arrLines, LineCount Dim ReceivedTrans, Mis As Integer Dim MyFolder, MyFile, MyFileName, MySheetName, ReportDate As String Dim FileType As String Dim i, j As Integer Const ForReading = 1 i = 1 j = 1 Set objFSO =...

I am running a code that will copy and paste a piece of data into a specific location of a selected file. This is what I have so far Sub CopyandPaste() Dim myfile myfile = Application.GetOpenFilename(, , "Browse for Document") Dim wdapp As Word.Application Set wdapp =...

Hi. I have a problem. I have a listbox, and a acroPDF, and i would like it to when i press a filename(.pdf) in the listbox, that it previews the PDF file in the acroPDF. For the listbox, i have a browse button, that makes you select a folder: Private Sub select_Image_1_Click() Dim MyFolder...

Hello, I am using a piece of code that opens every workbook in a folder then performs a function (i.e. inserts a formula) then closes. I am looking for a way to rename the workbook based on the value found in BI2 without creating a duplicate workbook which is what happens when do a savas. If...