I am trying to copy rows from sheet1, In which the column A is a date column. When the sheet2 is selected I want an input box to pop up and take 2 dates as input. All the rows between those 2 dates should be copied in sheet2.
View 2 RepliesEvery day, I receive a datasheet from which one column is filled with different dates. I like to select only the rows with future dates to copy it to another workbook. I tried Advanced Autofilter without succes as I cannot pick the right criteria (I see today, next week, next month but not all something like to select all future dates).
View 9 Replies View RelatedI've created drop down box using VBA code. Data for drop down box is on the Sheet2 and drop down box created on Sheet1. Need code I have to use to copy selected value from box to any cell on Sheet1 (i.e. Sheet1.A5). Here is my
Private Sub Workbook_Open()
CreateMyBox
End Sub
Sub CreateMyBox()
Dim MyBox As Excel.Shape
With ActiveSheet
Set MyBox = .Shapes.AddFormControl(xlDropDown, 5, 17, 175, 15)
End With
With MyBox
.Name = "MyBox"
.Fill.ForeColor.RGB = RGB(255, 0, 0)..................
I have a master spreadsheet that contains 3 different tabs (A, B & C) for 5 countries (UK, USA, IRE, JAP & ARG) - so 15 tabs in total.
Every month, I need to create 5 separate spreadsheets from this master spreadsheet - one for each country. Each separate spreadsheet must contain tabs A, B & C for each country.
I have written a macro that performs this perfectly, but I now need to be able to chose which of the tabs (A, B & C) are included in the separate spreadsheets - as they will not all be needed every month (some months I might only need tabs A and B by country, other months - just C, other months - all three)
I would like to include a form containing a tick-box list so the user can tick which of the tabs A, B & C are copied each month.
I am setting up a macro where the user opens their chosen file & their chosen worksheet which gets renamed & entered into my workbook. I can get them to open a workbook but I am having problems with the user being able to choose a worksheet and copy it over.
View 4 Replies View RelatedNeed a macro to hide two rows when a check box is checked? Is this even possible? I would like rows 44 and 45 to be hidden when the check box next to loan impairment is checked.
View 9 Replies View RelatedI have a dynanic range named Room on B1. My combobox1 rowsource is linked to the Dynamic range Room. I would like to be able to delete the the specified selected room from the combobox and the next 3 column C,D,E (delete Shift cells up)
View 2 Replies View RelatedI have different excel files in a specific folder. All the files have only two sheets with same kind of data, formatting etc. Now I want to merge selective files on need basis (only the first sheet data) into a new different worksheet in which I will be running the code. Provide me a macro which will ask me to select the files I want to merge. Also the data range of the files ( needs to be merged) will vary time to time, so the macro needs to take care of that as well.
View 2 Replies View RelatedI am using the following code to copy all rows that have a cell with a background color to another worksheet. In my first workbook this works just fine. In my new workbook, however; it is not working correctly. There are 111 rows that have a cell with a background color (all the same color). When I run the macro it is only copying the last row that has a colored cell. I have been trying to figure out the reason for the last 3 hours and I give up.
Sub CopyColor2()
Dim rReply As Range, rCell As Range
Dim lCol As Long
Set rReply = Application.InputBox _
(Prompt:="Selct a single cell that has the background color you wish to copy", Type:=8)
I have two tables "Table A" and "Table B" with records in rows (typically). On one Worksheet I have a report with 10 empty "slots" ("Slots A") waiting records from Table A, and 10 empty slots ("Slots B") waiting Records from Table B. In those slots, fields are arranged one below another.
PROBLEM 1. I need to find a way how to automatically copy chosen records from table A to slots A, and from table B to slots B. There is no rule how many records, and which records are to be copied. Some slots can stay empty.
PROBLEM 2. Slot B has the same number of fields as the Table B, plus one more field, let's call it "extra cell". In the "Extra cell" goes a result of a function, which arguments come form that Slot B, but from ONE Slot A as well. So, I need to "link" every Slot A with one or more "Slot B"s.
Basicly I used conditional formatting and lots of "IF".My solution lacks in style and it's time consuming ..
Long story short: I need to modify the way some cells are displayed based on the selection in a specific dropdown list.
I need that whenI select Task3 from the dropdown list next to "step1: please select" , everything from row 15 to row21 (both 15 & 21 rows included) and from row 23 on, to disappear.
I have sheets named exactly the same as the entries of a listbox. Now I want excel to copy the value located in e35 in the worksheet previously chosen.
I tried th efollowing, but this doesn't seem to work. I simply recorded a macro doing what I wanted it to do (orange) but replaced the reference to the sheet with what I thought would be the choice the user made (green)
Do While continue = vbYes
UserFormware.Show
Cells(16, 4) = UserFormware.ListBox1.Text
Cells(18, 4) = UserFormware.TextBox1.Value
Sheets("UserFormware.TextBox1.Value").Select
Range("E35").Select
Selection.Copy
Sheets("Calculator").Select
Range("E35").Select
Selection.Paste
If UserFormware.ListBox1.ListIndex = -1 Then
MsgBox "You must select an item"
End If
Unload UserFormware
continue = MsgBox("Do you want to add another warehouse?", 4)
Loop
I am a trainee dermatologist. We undertake allergy patch tests. There is a long list of different patch tests which are selected based on the patients history. I have put each of the types of patch testing on a master sheet. What I would like to be able to do is to have a control button next to each set, and when clicked would add that particular set to a "new patient" worksheet tab. And with every set having its own button, more than one set could be added to a new sheet. In the new patient worksheet id like the sets added with a single row gap between them.
I had tried, and managed to get a single series to work, but then it wouldnt allow me to add the next set, saying that sheet already exists. Ideally finally, id like there to be some way, or message to make sure after printing the new patient worksheet gets deleted.
I hope that all makes sense ! Even if I had a code for a single button that added to a master sheet at the next available row +1 I think I could manipulate the code to suit.
i am making a simple complaint tracking system and there is a column where there are two choices Resolved and Unresolved if you choose resolved it copies the row to the resolved sheet and if it's unresolved it copies the row to the unresolved sheet. i attached a template to give you an idea, i want the first complaint to be copied to the resolved sheet and second one to the unresloved sheet, i don't want the status column which contains the choices to be copied to the other sheets, also the unresolved sheet doesn't have a 'date closed' column because the complaint is not yet resolved so i dont want it to be copied there, i want it only in the resolved sheet.
[URL]
I'd like to know if it is possible to run a macro in a workbook that will open another workbook (of the users choice) extract data from it, such as columns from its sheets then paste that data into the workbook the macro is running from. The file to be opened will change, so i've found some code that enables the user to select the file to open then open it.
Dim strFile As String
strFile = Application. GetOpenFilename
If strFile <> "False" Then Workbooks.Open strFile
This brings up the standard windows choose file to open box, then opens the selected file. Am I correct in thinking that the Dim here will store the file name I select in the open file box? If so, I'd like to know how to select the workbook using the dim so I can manipulate it from the workbook I'm running the macro in. Incidentally, once the the data has been copied, I'd like the workbook opened with the macro to be closed.
I am carrying out some sensitivity testing on a model, and would like to greatly increase the speed of the process by being able to call in from a user defined cell a named range, which is then pasted to the right of the cell.
The attached file steps through the process I have in mind.
I've attached a workbook which contains two sheets:
PAYM
DEVICE_PAYM
Data is updated on DEVICE_PAYM each day with the figures I need located in column "AN". I need to be able to copy the data from "AN" and paste it into a column on the PAYM sheet. The destination column on the PAYM sheet needs to be specified by inputting a specific date - ideally, I would like to use the calendar Add-In as part of this process. I've already input some code for the calendar but am unable to develop this further so that it finds the correct date column and pastes the data across from the other sheet.
I have a list with start dates. These go back about 2 years and forward about 2 years.
What Im after is deleting anything older than say 30 days and anything in future more than say 120 days.
I have found various codes with varying success. This one works a charm....
[Code] .....
the problem is, I dont want the text boxes and would rather I had something like a =today() - 30 OR = today() + 120.
I'm trying to create a macro that removes rows that contain dates past todays date.
E.g, in columns A and B are people's names and in column C are start dates. I need to remove any rows of data that contain a date in column C past todays date.
Here is what I have put together so far, but it doesn't seem to work:-
Private Sub CommandButton1_Click()
Dim LastRow As Long
Dim c As Long
LastRow = Range("c65536").End(xlUp).Row
For c = LastRow To 1 Step -1
If Abs(Cells(c, 9)) > Date Then
Cells(c, 9).EntireRow.Delete
End If
Next
End Sub
I am new to macro and just trying to learn. I have a spreadsheet with 20000 rows and 8 columns. I am trying to identify equal rows based on the values of columns C, D, E and F. then I need to separate equal bunches with a blank row. Then I need to copy the ID number from the first cell of column B of each bunch and paste it for the rest of the rows in that bunch. I have written the following code but this does not put the ID of the first cell in a bunch for the rest of the rows in that bunch.
[Code] .........
I need to build a macro which copies 3 rows every day and pastes the row data into an identical sheet. The three rows will have column "D" as =today(). As the days progress the three rows will change accordingly ( tag to the today's date)
e.g. 28/1/2014
28/1/2014
28/1/2014
I need the macro to recognize the date when pressed and copy the corresponding rows of data and paste them into an identical sheet with the same date. The second sheet is an archive sheet. The date will tick over as per the calendar.
The below code compares the Data in a Field that must be set and collect the duplicate Values in a second Worksheet.
The thing I want it to copy the rows, when a duplicate is found in Col A. editing the code below:
Original Sheet:
"A" "B" "C" "D"
Teil1A11000
Teil1B21001
[Code]....
I have the following on a user form which works fine.
Private Sub CommandButton1_Click()
Dim rngFind As Range
Dim strFirstAddress As String
With Sheet1.Columns("F:F")
Set rngFind = . Find(TextBox1.Text, LookIn:=xlValues)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Do
rngFind.EntireRow.Copy Sheet2.Range("A" & Sheet2.Rows.Count).End(xlUp).Offset(1, 0)
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If
End With
End Sub
I would like to have 2 date entry boxes on the user form and have the macro copy any rows where the date in column F equals or falls between them.
Worksheet is an action log. It has a column containing "due dates". I want to count all rows (dates) that are "less than" today (to see what work is overdue). I also want to count all rows (dates) that will come due in a week. Conditional formatting highlights them OK but I also want to maintain a set of counts. I can do all this in a macro but I don't want to use macros, just formula.
View 2 Replies View RelatedI need help deleting rows which contain a cell with date / time in the format dd/mm/yyyy hh:mm if the value is older than the current date / time
any ideas?
70 rows, Col A is a start date, Col B is an end date
What I want in Col B, row 71 is the average elapsed time between start and end dates...
How can I use a pivot table or advanced filter or macros to view rows by
Only today’s date (1 row) ?Only this week ?Only last week ?Only last month ?Only last 12 months ?All dates ? That is, rows are headed by day. I select the rows that I view.
I have a sequence(or a series is more proper) of dates(without the hours) for. exapmple: 10/22/2007,1025/2007,10/25/2007. What I need is to insert rows with the missing dates. I found a VBE code for a macro which does the work but now the problem is that in some rows the dates are the same and if I have two times 10/25/2007 it adds the row with the next date after the first one and all messes up.
Range("A2").Select
Do Until ActiveCell.Value = Empty
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1 Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Insert
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(1, 0).Select
End If
Loop
I filled sheet1 with the following
Set SourceRange = Worksheets("Sheet1"). Range("A8:A73")
Set fillRange = Worksheets("Sheet1").Range("A6:A64000")
SourceRange.AutoFill Destination:=fillRange
This filled cells with 7:00 AM, 7:15, 7:30.....11:00 PM all the way down to row 64000,in colum A, 65 rows at a time.
After this, I selected rows 8 to 73 and named it Friday_July_7.
How do I name each chunck of 65 rows based on the prior day, the first range idealy named from a variable assigned to the Now method and incremented with a loop?...or something
I also set a "TODAY" button and a range "SHOWDAY", in the (frozen) first 7 rows of sheet1 to show the current day with the following code.
Private Sub TODAYBUTTON_Click()
Worksheets("Sheet1").Activate
ActiveWindow.ScrollRow = 8
Range("SHOWDAY").Select
Range("SHOWDAY").ClearContents
Range("SHOWDAY").Value = Now
End Sub
In a perfect world, opening the workbook would activate a procedure that would display the current day in "SHOWDAY" and also scroll to the cooresponding range. clicking the today button would do the same. From here I could refrence each days worth of data by its range name.
col1 col2 col3
row1 A 1 a1
row2 data data data
row3 data data data
row4 data data data
row5 A 2 a1
row6 A 3 a1
row7 B 1 a1
I'm trying to do is set up a VBA code that will take lines lines 2-4, copy the rows and then paste them in new rows every other row for the rest of the document, so that it appears as...
col1 col2 col3
row1 A 1 a1
row2 data data data
row3 data data data
row4 data data data
row5 A 2 a1
row6 data data data
row7 data data data..............................