Macro To Delete Items In A Folder

Aug 14, 2013

I have macro to copy data from one folder to another. However I would like a macro to delete the files in the source folder once copied

View 6 Replies


Macro To Delete Rows And Renumber Items After

Apr 8, 2014

Looking for a userform command button macro "CommandButton1" to initiate a deletion of rows. Essentially "Combobox1" is a list of "Text" rows in columnA (after row16). I want the command button to delete the "Text" row chosen in the combobox and all rows below it until the next "Text" row. After this I want all "Number" rows below the chosen "Text" row to be renumbered by subtracting "1.000". The sequence of order I guess doesn't really matter as long as the desired outcome is achieved (meaning if for vba purposes it is better to renumber all rows below the "Text" row chosen then delete the "Text" row and rows between next "Text" row that is perfectly fine).

View 14 Replies View Related

Looping Through Items In A Folder

Apr 2, 2014

I am using this code:

Sub a()
Dim WB1 As Workbook, WB2 As Workbook, MyFile As String, Sep As String, WS As Worksheet
Dim R As Range, X As Integer, a As Range, b As Integer, rownum As Integer, WS1 As Worksheet
Dim R2 As Range, a2 As Range, row As Integer, sep2 As String, MyFile2 As String

[Code] ....

If I run this code without the miles of code i have between them, it loops through each workbook in the folder just fine.

However, I am getting a Runtime 5 error when it reaches Myfile = Dir() each time with my full code.

Here is the full code:

Private Sub CommandButton1_Click()
Dim WB1 As Workbook, WB2 As Workbook, MyFile As String, Sep As String, WS As Worksheet
Dim R As Range, X As Integer, a As Range, b As Integer, rownum As Integer, WS1 As Worksheet
Dim R2 As Range, a2 As Range, row As Integer, sep2 As String, MyFile2 As String
Sep = Application.PathSeparator

[Code] .....

Once again, I am getting the error message 3 lines from the very bottom ("MyFile = DIR()")

View 6 Replies View Related

Macro To Locate Folder In A Folder And Save

Apr 13, 2009

looking for some code to save to a destination

destination address is
C:Documents and SettingsstDesktopOJF

now the problem is OJF has folders named 1 to 500

so if cell d5 = 487 it will need to look in the above desination and then open the folder and save it there.

View 10 Replies View Related

Delete All Files In Folder

Sep 6, 2007

I m trying to delete all files in a specific folder?

View 5 Replies View Related

Add/Delete Items To Combobox

May 30, 2009

I want to know the procedure of adding and deleting the items to a combobox or list box dynamically.

View 13 Replies View Related

Why Delete Menu Items Before Closing?

Oct 23, 2008

Came across an example in a VBA book, wrt adding custom menu items. This example included code for deleting the menu item before closing the workbook.

Is there a reason you'd want to do this? The example already had provisions to delete the menu item if it already existed before the code ran, so you wouldn;t end up with multiple items...

View 7 Replies View Related

Compare Sheets And Delete Same Items

May 18, 2006

I have two sheets with about 7000 records in each. They both have two columns only. One is the master list. I want both of the files to be compared and then all the duplicate entries to be deleted from both files.

Ultimately I want to have only the entries in the master sheet that are not in the other sheet.

View 3 Replies View Related

Move Files To Another Folder Delete Original

Sep 8, 2009

i would like to be able to move files from one folder to another then delete the original files.
I dont think im passsing the variables to the functions corectly.

View 8 Replies View Related

Loop Through List And Delete Files From Certain Folder

Jul 2, 2014

Say I have a list in column A


In VBA, how can I loop through the list and delete files from a certain folder. The list will vary in length from time to time.

View 9 Replies View Related

Delete Items From Shortcut Menus [Right Click]

Dec 30, 2008

I read one of the threads that talked about adding commands to the right click menu. I added a few commands to try out, but now I don't know how to delete them.

View 4 Replies View Related

Code To Search For Items Copy To Different Sheet And Delete Them

Jan 27, 2014

I have a workbook with one sheet (called "Pipeline") and another sheet called "Completed". The Pipeline sheet is used to keep track of all of the tasks that the team are working on, and then when the task is completed, it needs to be moved to the "Completed tab".

I currently have managed to write some code that looks for items marked "completed" in row G of the "Pipeline" sheet, then copies them over to the "Completed" tab, and then deletes the row from the "Pipeline" sheet.

There is one macro to copy the completed cells (called "Transfer"), and then another to delete the cells (called "Delete"). I then just have macro called "Clean" that just calls the transfer macro, and then calls the delete macro.

Often, there are 6 tasks marked complete, and only some of them will be copied over, but all of them will be deleted (a disaster).

Transfer Macro : [Code]....

Delete Macro : [Code]....

Overall Macro : [Code]....

View 7 Replies View Related

List Box Depending On Combobox And Add Or Delete Items To Range

Jul 4, 2009

i had a user form with a Combo box,list box,text box and a command button. I need the code that works upon selecting:

1)An Item from the combo box should display the list in the list box.

eg: If Country is selected from the combobox then the list box should contain all the names of the countries from the country Column

2)An item should be added to the list in the worksheet when an item is entered in the textbox.

Like wise, when an item is selected from the combobox from "Delete Items List" all the items relating to the item selected from the combobox should be displayed in the list box and a choice to delete the items relating to the combobox item should be provided.

View 4 Replies View Related

Sample Code To Add/delete Custom Menu Items

Feb 22, 2007

Option Explicit
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCustomMenu As CommandBarControl


Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")


Set cbcCustomMenu = cbMainMenuBar.Controls.Add(Type:=msoControlPopup)

'(5) Give the control a caption................

I have created several spreadsheet with customized menus. In step 5 when I type
a period the options for selecting Caption does not appear. In step 6 the 'Control' word didn't appear in list. Sometimes the options in step 6 do appear BUT not the option for Controls. I have created spreadsheets with menus that work but the only way I could do it was to cut and paste from the website and then modify it.

View 3 Replies View Related

Excel 2003 :: Macro To Open Folder Then User Selects File Then Macro Continues To Run

Nov 6, 2011

I use Excel 2003 at work. I'm looking for some code that will Open a folder and then lets the user to select a file then continues to run the macro.

The file name they select will look similar to this K2271011.504 or K3011111.201

View 3 Replies View Related

Macro Delete Page (delete A Sheet In A Macro But When I Run The Macro)

Jun 19, 2009

I want to delete a sheet in a macro but when I run the macro, I always get a message warning and I have to answer the msg box to delete the page. Below is the macro command I am using.


View 4 Replies View Related

Macro To Run If Only Folder Found

Feb 3, 2014

I would like to know how is it possible to only run a macro with IF command if a path is found in a computer. My desktop user is example, jc855, and my coworker is jc886.

I would like to start the IF command such as, if C:Usersjc855 & C:Usersjc886 found, then keep going, otherwise, message box : "You are not authorize to run this macro".

By having this path, people will be able to download this macro but the access is only granted if their user is added thru the VBA. (which only me can access to edit it).

View 5 Replies View Related

Folder Creation With A Macro

Nov 12, 2008

is it possible to write a macro that will create a folder labled "2009" then a subfolder for each month with four subfolders labled "Week 1" through "Week 4", and have the "March", "June", "September", and "December" folders contain subfolders labled "Week 1" through "Week 5"?

View 2 Replies View Related

Run This Macro In Every Workbook In A Folder

Aug 4, 2009

I'm trying to figure out how to run the following macro on every workbook in a folder.

Sub SumsSheets()
Dim ws As Worksheet, LR As Long, i As Integer
For Each ws In ThisWorkbook.Worksheets

View 9 Replies View Related

Lookup Folder From Cell Text Then Save Excel File In This Folder

May 14, 2014

I have alot of project folders on my harddrive.

All in format: I:/12345-costumer-projectname/

The five digits are unique for each project.

I make calculations for these projects using an excel file. In this excel I also type the projectnumber (cell J2)

Now i would like to make a button. When pressed, it checks the projectnumber cell J2, looksup the corresponding folder and saves the excelfile in PDF format in this folder.

I have found macro to find files in folders, but none which do the above.

View 4 Replies View Related

Macro To Save As To Specific Folder

Apr 29, 2014

Looking for VBA code to automatically save an excel file as an .xlsx format, and saving to a specific folder: C:UserswolfmDesktopLoad Lists

I have been using the attached code, but it's not working. It saves to the desktop, not the folder. Also, when it creates the file name based on sFile = ActiveSheet.Range("C4").Value & ".xlsx", it adds wierd things to the file name. I want the file name to be simply the value in C4.

View 2 Replies View Related

Display Folder Name In Excel - VBA Macro

May 19, 2014

I need a macro which displays the folder and subfolder name from a specific path in the column A of the excel sheet in the same heirarchy. Also whenever a sub folder name is displayed in column A, I need its main folder name to be displayed in the same row Column B i.e offset(0,1). I have a macro, but it displays the folder name in the 1st cell of column B, I need it to increment to the subsequent cells based on subfolders.

Sub Step1()
Dim startRange As Range
Set startRange = Sheet1.Range("A5")
'Parent Directory - Change this to whichever directory you want to use
ListFoldersAndInfo "C:desktop", startRange
End Sub


View 3 Replies View Related

Using Macro - How To Rename Filenames In Folder

Sep 22, 2010

I need tht How to rename the Filenames in an Folder using macro.. Is it possible, How we can do it..

Example: In an Folder 200files are there with extension .jpg/xls/bmp/txt/doc files, I want to rename tht those files names,

Source File: TestImage.jpg
I want rename as
Destination file : image.jpg.

Not only Single file rename..if I want to rename Bulk means?...

View 14 Replies View Related

Macro To Create Folder In Computer

Mar 6, 2014

Can a macro create a folder in my computer and use the value in cell A1 as the folder name? This is where I want the folder to be created C:UsersUserDesktop.

View 8 Replies View Related

Find A Folder Extension Macro

May 23, 2008

this query has now took a peculiar twist in the fact that my boss now wants to change the goalposts

here is a thread with the code in


View 14 Replies View Related

Getting Macro To Save In Folder Specified On Worksheet

Oct 8, 2008

I have a macro that currently saves and prints the sheet I'm working on. At the moment, it saves everything in the same place and always calls the file the same name.

In the worksheet, a lookup does actually specify what folder it should be saved in and what name it should be given. How can I write the code so that it pulls up the name and the folder directly from the sheet it's saving?

View 3 Replies View Related

Execute A Macro In All Files In A Folder

Apr 22, 2009

I found the following code to execute a macro in all excel files in a folder. Sounds amazing! I have a code to add to it, however I am having issues getting it to work. take a look at it and let me know what (more like, how many things). I am adding this to the Sheet 1 Worksheet.

View 3 Replies View Related

Macro Saving To Wrong Folder?

Jan 10, 2012

I have a macro that saves the workbook after it has finsihed the rest of its formatting. I am finding it is saving in the wrong folder. I looked at my code and it is clearly states 'my documents' where I want it to save. Yet it keeps saving on a random folder on a shared drive.

View 8 Replies View Related

Macro That List Files In A Folder

Jul 10, 2012

Here is a macro I have found and manipulated for my particular case. The problem is that I want to narrow the search criteria by just pdfs and only those starting with Segment which i know in coding would be something like "Segment" & "*" & ".pfd" or something to those terms but the code uses objects which I'm not too familiar with.

Sub ListAllFile()

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim ws As Worksheet

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ws = Sheets("Simple Cut Lists (2)")

[Code] ........

How do i set objFile to just pick up my criteria?

View 3 Replies View Related

Macro To Copy Folder From One Location To Another

Jul 12, 2012

I'm trying to write a set of macros and one of the macros needs to move a folder with subfolders from P:CJ to P:WO

Now I've been using the CopyFile State. Is there something similar because in my search they talk about using FileSystemObjects and I have now clue how to use those.

View 1 Replies View Related

Copyrights 2005-15, All rights reserved