Macro To Delete Items In A Folder
Aug 14, 2013I 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
ADVERTISEMENT
Macro To Delete Rows And Renumber Items After
Apr 8, 2014Looking 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 RelatedLooping Through Items In A Folder
Apr 2, 2014I am using this code:
VB:
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:
VB:
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()")
Macro To Locate Folder In A Folder And Save
Apr 13, 2009looking 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.
Delete All Files In Folder
Sep 6, 2007I m trying to delete all files in a specific folder?
View 5 Replies View RelatedAdd/Delete Items To Combobox
May 30, 2009I want to know the procedure of adding and deleting the items to a combobox or list box dynamically.
View 13 Replies View RelatedWhy Delete Menu Items Before Closing?
Oct 23, 2008Came 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...
Compare Sheets And Delete Same Items
May 18, 2006I 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.
Move Files To Another Folder Delete Original
Sep 8, 2009i 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.
Loop Through List And Delete Files From Certain Folder
Jul 2, 2014Say I have a list in column A
Image1.jpg
Image2.jpg
Image3.jpg
Image4.jpg
Image5.jpg
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.
Delete Items From Shortcut Menus [Right Click]
Dec 30, 2008I 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.
Code To Search For Items Copy To Different Sheet And Delete Them
Jan 27, 2014I 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]....
List Box Depending On Combobox And Add Or Delete Items To Range
Jul 4, 2009i 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.
Sample Code To Add/delete Custom Menu Items
Feb 22, 2007Option Explicit
Dim cMenu1 As CommandBarControl
Dim cbMainMenuBar As CommandBar
Dim iHelpMenu As Integer
Dim cbcCustomMenu As CommandBarControl
'(2)
Set cbMainMenuBar = Application.CommandBars("Worksheet Menu Bar")
'(4)
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.
Excel 2003 :: Macro To Open Folder Then User Selects File Then Macro Continues To Run
Nov 6, 2011I 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
Macro Delete Page (delete A Sheet In A Macro But When I Run The Macro)
Jun 19, 2009I 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.
Sheets("Tel").Select
ActiveWindow.SelectedSheets.Delete
Macro To Run If Only Folder Found
Feb 3, 2014I 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).
Folder Creation With A Macro
Nov 12, 2008is 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 RelatedRun This Macro In Every Workbook In A Folder
Aug 4, 2009I'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
Lookup Folder From Cell Text Then Save Excel File In This Folder
May 14, 2014I 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.
Macro To Save As To Specific Folder
Apr 29, 2014Looking 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.
Display Folder Name In Excel - VBA Macro
May 19, 2014I 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
Sheet1.Cells.Clear
Set startRange = Sheet1.Range("A5")
'Parent Directory - Change this to whichever directory you want to use
ListFoldersAndInfo "C:desktop", startRange
End Sub
[code]......
Using Macro - How To Rename Filenames In Folder
Sep 22, 2010I 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,
Example1:
Source File: TestImage.jpg
I want rename as
Destination file : image.jpg.
Not only Single file rename..if I want to rename Bulk means?...
Macro To Create Folder In Computer
Mar 6, 2014Can 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 RelatedFind A Folder Extension Macro
May 23, 2008this 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
[url]
Getting Macro To Save In Folder Specified On Worksheet
Oct 8, 2008I 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?
Execute A Macro In All Files In A Folder
Apr 22, 2009I 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 RelatedMacro Saving To Wrong Folder?
Jan 10, 2012I 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 RelatedMacro That List Files In A Folder
Jul 10, 2012Here 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.
Code:
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?
Macro To Copy Folder From One Location To Another
Jul 12, 2012I'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.