Sub ImportCSVFiles()
Dim sh As Worksheet, sPath As String, sName As String
Dim R As Range, fName As String
Dim sh1 As Worksheet
But I've noticed that on import run, the macro mixing the ascending order of the files.
An example:
Inside my_folder I have 3 csv files:
advertise.csv
adwords.csv
adwords keyword tool.csv
When the macro runs, it takes advertise.csv as the 1st. (Thats Ok) then adwords keyword tool.csv data
before thaking adwords.csv
(I have over 100 files to import, so you can imagine the mess I'm facing..)
I have columns with sort filters, columns with tables, unformatted cells and frozen panes. When sorting one column how do I make all other columns sort simultaneously with it?
I am attaching a sample excel workbook for reference. I have a set of coded data in numbers in ColumnA, and want to replace them with actual names which are in Column G.
As explained before, I set up columns such that all template number codes are in Column F and names in Column G. The actual raw data in Column A.
However the macro is giving me wrong replacements i.e. if the coded number was 21, its replacement is name2name1 not name 21, I hope you understand what I am saying.
It will save me bucket loads of time as I have a multiple similar columns. I am a novice in macros so I am not sure how to find full numbers (21) and replace with the specific name.
Sub FindReplace() Dim Frange As Range Dim Fr As Range Set Frange = Range("F1", Range("F65536").End(xlUp)) For Each Fr In Frange Columns("A:A").Replace What:=Fr, Replacement:=Fr.Offset(0, 1), LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next Fr
i have read through all threads about permutation, and also a few others. I if I were an Excel Pro I would probably have been able to come up with a solution to my problem based on all the suggestions made, but unfortunately it is (still) all a bit too complex for me.
The problem:
I have between 2 and 5 lists of words, each list in one column:
Column A
red green yellow black blue green pink
Column B
shirt jumper blouse coat t-shirt skirt
Column C
for women for men for girls extra large for boys one size fits all
I have folder with 427 workbooks in, named TAB001.... TAB427.
These workbooks contain listed tables out of a bespoke apllication. Each workbook only holds one worksheet (which is named TAB001, etc corrsespoonding to the workbook name).
Each worksheet holds in cell A1 the name of the table
I want to rename each workbook to whatever is in cell A1. SO TAB001.xls becomes, say, Property.xls, and so on for all 427 workbooks.
I envisage a new workbook holdinga macro to do this?
I have a sheet which is a basically my template, it has a bunch of formulas etc on it
I need to create about 200 copies of this exact sheet and its formatting etc, is there anyway you can bulk copy a worksheet or does this need to be done individually?
How do I copy 100 email addresses at the top of an email and post them in an Excell spreadsheet where each email address is in one cell i.e. 100 cells?
I am trying to compare deductions from two different pay periods. I have the Data from check 1 & check 2 on different worksheets, in no order, and would like the data to auto populate on a third worksheet into a side-by-side comparison of the data. The problem comes when there is a deduction missed or a new deduction that only shows up on one of the two checks. I am having to manually insert lines to make my side-by-side comparison match. Is there a macro or something that can pull the data from these two soures and display them in a side-by-side comparison even if there is no match?
Now what I want to be able to do is when I add a new row to worksheet 1, in this case row 3, then the references in worksheet 2 either to automatically (or manually do it in one simple go) increase by one and now refer to the new row. So the references now become =A3, =B3, =C3 etc.
I have a series of files in *.ew7 format (i know its a random program)
I have some code which i can run which will simply open the relevant file and save it as xls.
The files are saved in multiple folders in format "yymm" eg: 0910 - oct 09.
inside each folder there is a ew7 file for each day in rthe format: "01ddmmyy" eg 01271009 = 27th oct 2009.
I have folders going back as far as may 2002 (in folder 0205) and i need a way to convert these all into xls format and save them in the same location.
I'm attempting to import around 200 (and growing!) separate text files into Excel. I am using the formula below to import the text file and then using a separate macro to select the information I need, copy it into another spreadsheet, and then run the import macro again.
However, I have a problem in that my import macro gives me 'Run-time error '1004:
Application defined or user defined error''. At first this wasn't a problem as the information is pasted into the spreadsheet despite the error anyway. However, now that I am looping the macro it is obviously causing more problems as it prevents the loop. I would really appreciate it if anyone knows of a work-around or can spot an error in the coding to resolve this!
The code below shows is for the import macro only:
Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Long Dim ColNdx As Integer Dim TempVal As Variant Dim WholeLine As String Dim Pos As Integer Dim NextPos As Integer Dim SaveColNdx As Integer
I have never recorded a macro before and what I want, I think, is pretty simple but I can't figure it out. I want a sort button that sorts all information ascending by column B. See attached spreadsheet.
I'd like to carry out a VLOOKUP on a list of product. The product numbers contain numbers and letters, some start with several 0's. If i were to convert these product numbers to an actual number, the 0's are removed.
So, when I attempt to place the list in ascending order, it's not really in ascending order - it will start with the part numbers that Excel has defined as a number with everything else afterwards.
Is there anyway I can run a VLOOKUP without having to place the lookup table in ascending order?
I have data in a spreadsheet with approximately 100 rows. In column F, the following values are allowed: Subscription Redemption Transfer In Transfer Out Switch In Switch Out
way to sort them in this order, rather than ascending or descending? (I want all of the Subscriptions together, then the Redemptions, and so on...)
I've sorted it by column A. However, sometimes the date is the same and then it doesn't always go right... see f.ex. 17 dec, where the ship arrives in the harbour and then is at sea again and then departs Not exactly what happens. I had the same problem on 28 dec, but there it disappeared when I told Excel to sort secondly on column B.
I have 2 listbox (List1 and List2). List2 get populated when the user select a value in List1 and based on the value selected in List1. My issues are:
1- Values in list2 are not sorted in ascending order especially when the list2 grows over 32. 2- When the user selects "None" in List1, it should clear List2 (onclick)
I worked on this code for a while with no luck trying to get it to work. Is that doable?
VB:
Option Explicit Dim ufEventsDisabled As Boolean Function SelectedString() As String Const Delimiter As String = "," Dim i As Long
I have a column of values for example: 114 162 92 114 120 120 114 162
I need to be able to search this column and return the first instance only of each number in a different column in numerical order - which in this example will result: 92 114 120 162
I was wondering if it is possible to copy a row without having the numbers ascend? I've attached an example spreadsheet and am trying to copy row 2, columns C - J to rows 3 - 16, but the numbers ascend when I do.
