Free Microsoft Excel 2013 Quick Reference

Copy from row, paste to column, delete empty row Macro

Hi,

I've searched the threads for some code that would allow me to address my needs, but have had mixed success.

Goal: I've got a data set that's copied into Excel for which I need to do some basic formatting, text to columns work, then have a loop run to copy from one row, paste to a column, and delete the empty row.

For example the data is first pasted into Excel as:
First Name: [firstname1]
Last Name: [lastname1]

First Name: [firstname2]
Last Name: [lastname2]

First Name: [firstname3]
Last Name: [lastname3]

First Name: [firstname4]
Last Name: [lastname4]

And I want it to look like:
First Name Last Name
[firstname1] [lastname1]
[firstname2] [lastname2]
[firstname3] [lastname3]
[firstname4] [lastname4]

I'm new to Macros and so I was able to record a Macro to properly handle text to columns, removal of the unnecessary column resulting from text to columns, inserting a row with appropriate headings, and resizing the columns. In the following code, I relayed the pattern I was trying to accomplish through all values starting with the first value after "First Name" heading until there was no more data in that column:

	VB:
	
 NameCleanup() 
     '
     ' NameCleanup Macro
     '
     
     '
    Columns("A:A").Select 
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ 
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ 
    Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ 
    :=":", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True 
    Selection.Delete Shift:=xlToLeft 
    Columns("A:A").Select 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.EntireRow.Delete 
    Rows("1:1").Select 
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    Range("A1").Select 
    Selection.Font.Bold = True 
    ActiveCell.FormulaR1C1 = "First Name" 
    Range("B1").Select 
    Selection.Font.Bold = True 
    ActiveCell.FormulaR1C1 = "Last Name" 
    Columns("A:B").Select 
    Selection.ColumnWidth = 38 
     
    Range("A3").Select 
    Selection.Cut 
    Range("B2").Select 
    ActiveSheet.Paste 
    Rows("3:3").Select 
    Selection.Delete Shift:=xlUp 
    Range("A4").Select 
    Selection.Cut 
    Range("B3").Select 
    ActiveSheet.Paste 
    Rows("4:4").Select 
    Selection.Delete Shift:=xlUp 
    Range("A5").Select 
    Selection.Cut 
    Range("B4").Select 
    ActiveSheet.Paste 
    Rows("5:5").Select 
    Selection.Delete Shift:=xlUp 
End Sub 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
As you can see, I separated the formatting code from where the loop code would live in this macro. Any guidance in handling the loop syntax for the copy, paste, delete row experience would be greatly appreciated!

Thanks in advance.


Post your answer or comment

comments powered by Disqus
I need to copy from AS400 (ISearies) to Excel, return to AS400 and repeate a number of times for a specific AS400 layout. (Example) I would copy for AS400 row 7, column 2 thru row 7 column 10 then paste to Excel A1, repeate for row 8, column 5 thru row 8 column 15 and paste to A2, ETC. I need to keep repeting this about 20 times. I have a group of employees who do this all day. A Macro would speed work. Thanks for your help.

Hi all

I have a problem with a macro script I need to write (unsure where to start probably).

I’m using Excel 2003.

In my spreadsheet I have many worksheets (90+) and I need to copy information from specific cells (the same for each sheet, but the cell range varies each month) from any identified worksheet in the spreadsheet (the specific sheets I want to copy from will differ from month to month but are given in a list.). Then paste this data in sequential order of identified worksheet but transposed into sheet Summary.

In effect this is:

1. Identify the sheet name from the ListingOrder in worksheet LISTING
2. Identify the monthly range of cells
3. Copy the data (Indicator, Month, Name and Activity)
4. Go to sheet SUMMARY
5. Go to next available cell in column A
6. Paste special, transpose
7. Loop to next sheet name in the ListingOrder
8. Undertake actions 1-7 until all relevant sheets have been copied from and pasted to Summary sheet.

The end result is as shown in the Worksheet SummaryExample – no need to worry about formatting.

Samole data and SummaryExample in attached spreadsheet.

Sorry I can’t offer any script at present – I’ve been trying to work it out using Vlookups etc but get the feeling it would be easier via a macro.

Hope someone with more ability than I have can help me out.

Kind regards

Pull Column Data (Sheet3) from Master.xls and past to Column 4, Sheet4 of WorkingSS.xls

I'm assuming this would be done with VBA or a really exotic macro.

The Funky Part would be that the WorkingSS.xls file column data is being copied/pasted too (WorkingSS1.xls or WorkingSS2.xls ect) the file may be different every time so I would need an insert in macro or VBA to "Choose File Please..." then continue.

The Master.xls workbook has spreadsheet lets say "Sheet1" in which I need all the data in Column A (except the header or cell A:1) copied TO WorkingSS1.xls on Sheet4, Column B, but Column B already has about 6000 rows of info, so I need it copied to the very end of (A:6001 although it will be different everytime) or the first empty cell at the bottom of that column.

next another Column from Master.xls workbook lets say "Sheet1" again in which I need all the data in lets say "Column B" copied to the WorkingSS1.xls on Sheet4, Column F. Caveat this time is that the data needs to copied to the same row as the first copy/past. So it would be pasted into F:6001. Double caveat is that the Column F contains no other data except for what we are about to paste in.

I have several more steps of automation to be done here but this is the beginning and a big hump I need to get past. The rest I think I can do.

Thanks in advance for your help.

I've done all the search but could not find the one I want

I'm so sure this is possible but would really like an advice from you experts. Now, I've created task form in Form sheet (Excel 2003), a form where I can just fill in Request ID, address, comments, date of completed, etc and print it out to give it to the blue collars to carry out the work.
On the other sheet (Task sheet), I have long list of works to be done in every row of the sheet like the 1st column is Request ID, the 2nd column is address and the 3rd is comments and so on.

Is it possible to just copy a row (4th row)of those ID, address, comments, date of complete and paste those individuals from Task sheet to Form sheet in separate cells at the same time?
Like ID from Task sheet (A4) to Form sheet (C4), address from Task sheet (B4) to Form sheet (c10) and so one

I think it so much easier than just copy and paste one as a time from one sheet to another in different cell

Thanx in advance

Greetings all!

I am running Excel 2000 on a Windows XP Pro machine. I have two
workbooks. Each row in either workbook is a description of a document
with a date by which a review of that document is due (among other
things) and, in workbook1, a date by which the final review of the
document is due. This date is in the last cell of the row, and is
calculated using a formula.

If the document is *not* reviewed by the final review date, the row with
the document's entry is cut from workbook1 and pasted into workbook2.
The only difference between the two workbooks is that the last cell in
the row from workbook1 doesn't appear in workbook2.

The employee, who shall remain nameless, who cuts and pastes has, in the
past, selected cells in the row up to, but not including, the last cell
in workbook1 before pasting the data into workbook2. Then the employee
deletes the contents of the last cell that was left behind, and deletes
the empty row. What we have discovered is that Excel is creating an
automatic link between workbook1 and workbook2 when we go through this
process. We don't want that.

Is the best answer the obvious one, which I think is select the entire
row in workbook1, cut, and paste in workbook2, and ignore the last cell?
Or is it simply a matter of copying from workbook1, pasting in
workbook2, and *then* deleting the row in workbook1? Are there other
options? Is Excel *supposed* to be creating this link automatically? Can
I turn off automatic link generation?

Thanks,

Mike Bro.

Hi All,

I am hoping a vba guru could help me please.

I have am using a code that copies from two sheets to another 'Overview' sheet in the following way:

1. Copies cells from Sheet 'Call Move' from cell a6 to c6 and down however many records there are and pastes into Sheet 'Overview' from cell a13 to c13 and downwards.

2. After the last record it then pastes a 3 row title from Sheet 'Fixed Move' cells A1:I3

3. Then pastes cells from Sheet 'Fixed Move' from cell a14:e14 and down however many records there are.

4. Again after last record it then pastes a 5 Row title from Sheet 'Fixed Move' cells A4:I8.

I need to adapt this slightly. So:

1. Copies cells from Sheet 'Call Move' from cell a6 to c6, also cell e6 and down however many records there are and pastes into Sheet 'Overview' from cell a13 to c 13 and cell e13 and downwards (column d not to be copied and to remain blank in sheet 'overview').

2. Same as above after the last record it then pastes a 3 row title from Sheet 'Fixed Move' cells A1:I3

3. Then pastes cells from Sheet 'Fixed Move' from cell a14:e14 and down however many records there are. BUT this time I would like the record only to show if the value in column c does not equal zero.

4. Same as above again after last record it then pastes a 5 Row title from Sheet 'Fixed Move' cells A4:I8.

5. Then pastes cells from Sheet 'Fixed Move' from cell a14,b14,f14,g14 and down however many records there are and paste a into a, b into b, f into c and g into e, but I would like the record only to show if the value in column f does not equal zero.

I hope this makes sense. Can someone please help.
Thank you so much for help.

Code I was using before is:

	VB:
	
 
Sub TransferInfo_Data() 
    Dim x As Long, LastRow As Long 
    Dim LastRowDst As Long 
    Dim dst As Worksheet 
    Dim ws As Worksheet 
    Set dst = Sheets("Overview") 
    LastRowDst = dst.Cells(Cells.Rows.Count, "A").End(xlUp).Row 
    If LastRowDst > 12 Then 
        dst.Range("A13:Z" & LastRowDst).ClearContents 
    End If 
    For Each ws In Sheets(Array("Call Move", "Fixed Move")) 
        LastRow = ws.Cells(Cells.Rows.Count, "A").End(xlUp).Row 
        LastRowDst = dst.Cells(Cells.Rows.Count, "A").End(xlUp).Row 
        If LastRowDst < 13 Then 
            LastRowDst = 13 
        Else 
            LastRowDst = LastRowDst + 1 
        End If 
        If ws.Name = "Fixed Move" Then 
            ws.Range("A14:E" & LastRow).Copy _ 
            dst.Range("A" & LastRowDst) 
        Else 
            ws.Range("A6:C" & LastRow).Copy _ 
            dst.Range("A" & LastRowDst) 
             
        End If 
         
        If ws.Name = "Call Move" Then 
            LastRowDst = dst.Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1 
            Sheets("Fixed Move").Range("A1:I3").Copy _ 
            dst.Range("A" & LastRowDst) 
        ElseIf ws.Name = "Fixed Move" Then 
            LastRowDst = dst.Cells(Cells.Rows.Count, "A").End(xlUp).Row + 1 
            Sheets("Fixed Move").Range("A4:I8").Copy _ 
            dst.Range("A" & LastRowDst) 
        End If 
         
         
    Next 
End Sub 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines


i having many columns having different formulas. i want to coy all formulas
to next many rows of all columns.

example

col-A
COL - B
1 =SUMIF((AA100:AA1000="AD"),(AB100:AB1000))
=COUNTIF(AA100:AA1000="AD",1,0)

IF I COPY FROM ROW 1 TO 2, RANGES CHANGED TO AA101:AA1001.
BUT I WANT SAME TO BE COPY TO THE BELOW ROWS.

REQUEST YOUR HELP PLEASE.
-PERANISH

Hi all

I'm struggling with a looping script which has ben written for me. Unfortunately I cannot resolve the issue.

The code I'm using fails on line:

This occurs after all the data has been copied to the Summary worksheet - which means, it copies and pastes correctly, but
fails when the cell becomes 'blank' in the looping process based on worksheet "Listing".

Sub
CreateSummary()

  Dim Item As Variant
  Dim LastCell As Range
  Dim NextCell As Range
  Dim Rng As Range
  Dim SumWks As Worksheet
  Dim Wks As Worksheet
  Dim WksList As Variant
  Dim SumDate As Variant          'Date
 
  
    Set SumWks = Worksheets("Summary") 'Worksheet "Summary"
    Set LastCell = SumWks.Cells(Rows.Count, "A").End(xlUp)
    Set NextCell = IIf(LastCell.Row < 3, SumWks.Cells(3, "A"), LastCell.Offset(1, 0))
    Set NextCell = NextCell.Resize(1, 7) 'Controls number of rows in data sheet it copies from
    
      With Worksheets("Listing")
        Set Rng = .UsedRange.Offset(1, 0)
        Set Rng = Rng.Resize(RowSize:=Rng.Rows.Count - 1, ColumnSize:=1)
        WksList = Rng.Value 'Working woksheet name = cell value in list
      End With
      
        SumDate = SumWks.Cells(1, "C").Text 'Date from "Summary" cell C1
            
        
            For Each Item In WksList
            
                Set Wks = Worksheets(Item) 'FAILS ON THIS LINE!!!
                
                Set Rng = Wks.UsedRange.Rows(7) 'Row in data where date is
                Set Rng = Rng.Find(SumDate, , xlValues, xlWhole, xlByColumns, xlNext, False)

                    If Not Rng Is Nothing Then
                        Set Rng = Rng.Offset(-3, 0).Resize(7, 1)
                               NextCell.Value = WorksheetFunction.Transpose(Rng.Value)
                        Set NextCell = NextCell.Offset(1, 0)
                    End If
            
            Next Item
            
End Sub

In effect what I'm trying to achieve is explained below.

I’m using Excel 2003.

In my spreadsheet I have many worksheets (90+) and I need to copy information from specific cells (the same for each sheet, but the cell range varies each month) from any identified worksheet in the spreadsheet (the specific sheets I want to copy from will differ from month to month but are given in a list.). Then paste this data in sequential order of identified worksheet but transposed into sheet Summary.

In effect this is:

1. Identify the sheet name from the ListingOrder in worksheet LISTING
2. Identify the monthly range of cells from cell C1 worksheet SUMMARY
3. Copy the data (VS Indication Reference No, VS Indicator Description, Responsible Officer, Reporting Period, Comments, Actions and Progress to Date)
4. Go to sheet SUMMARY
5. Go to next available cell in column A
6. Paste special, transpose
7. Loop to next sheet name in the ListingOrder
8. Undertake actions 1-7 until all relevant sheets have been copied from and pasted into Summary sheet.

The end result is as shown in the Worksheet SummaryExample – no need to worry about formatting.

Sample data and SummaryExample in attached spreadsheet.

I'm at a loss to resolve this, and I hope someone can help me out.

Kind regards

NoCanDo

Hi

I would like a macro that will select the 65536th row to be used to paste format from rows 2 to the last empty cell in column a.

Any help appreciated.

Thanks very much,

Steve

I am trying to copy from one work sheet to another in excel 03. Every time something is copied to the next file I want want it to move over a column or down a row. So far I have the the code to copy from one sheet to another but can not get it to move to the next row or column.If you could help me out that would be great!

This is what I have for rows:

Sub cablef()
'
' cablef Macro
' Macro recorded 7/27/2011 by Anthony Bryant
'
' Keyboard Shortcut: Ctrl+q
'
    Range("C8").Select
    Selection.Copy
    Sheets("Cable Fab").Select
    Range("C19").Select
    ActiveSheet.Paste
End Sub

I want it to paste at C20 next time and C21 after that. Is there a loop or something that I can do for this. 

This is what the code I have for selecting columns. 
 
Sub start()
'
' start Macro
' Macro recorded 7/27/2011 by Anthony Bryant
'
' Keyboard Shortcut: Ctrl+u
'
    Sheets("Start #'s").Select
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:G2"), Type:=xlFillDefault
    Range("F2:G2").Select
    Range("G3").Select
    Sheets("Jun 11").Select
    Range("D8").Select
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G4").Select
    Sheets("Jun 11").Select
    Range("D10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G5").Select
    Sheets("Jun 11").Select
    Range("D13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G6").Select
    Sheets("Jun 11").Select
    Range("D14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Sheets("Jun 11").Select
    Range("D15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    Range("G7").Select
    ActiveSheet.Paste
    Range("G8").Select
    Sheets("Jun 11").Select
    Range("D16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G9").Select
    Sheets("Jun 11").Select
    Range("D17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G10").Select
    Sheets("Jun 11").Select
    Range("D18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G11").Select
    Sheets("Jun 11").Select
    Range("D19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G12").Select
    Sheets("Jun 11").Select
    Range("D22").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    Range("G13").Select
    ActiveSheet.Paste
    Range("G14").Select
    Sheets("Jun 11").Select
    Range("D23").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
    Range("G12").Select
    Sheets("Jun 11").Select
    Range("D21").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Start #'s").Select
    ActiveSheet.Paste
End Sub
I want to be able copy from a sheet and then add to row H. Is there a loop that I could run for this?
Any information would help!
Thanks!

If I want to just copy row 3 to row 4, why does the following copy the data fine, but not paste and give error "Object does not support this property or method"?


	VB:
	
Worksheets("Sheet1").Rows(3).Copy 
Worksheets("Sheet1").Rows(4).Paste 

If you like these VB formatting tags please consider sponsoring the author in support of injured Royal Marines
Thanks for any help.
Andy

For some reason I cannot copy from one workbook to another. My typical
method for copying is to hit Ctrl+C, switch workbooks, then hit Ctrl+V
although attempts to use the toolbar and right-clicking don't seem to
work either.

The copy function works fine. I get the "marching ants" to indicate
the area I've selected to copy. However, when I switch to another
workbook, the clipboard seems to empty itself so I cannot paste what
I've copied. I can copy/paste within the same workbook without a
problem. This only occurs when I want to copy from one workbook to
another.

Any help would be appreciated.

Mike.

I have two workbooks one called monthly and the other called EOM.

The monthly workbook has 14 sheets (i.e. one for each month {e.g. Jan
Feb..}). One that has data is used in the 12 monthly sheets as a pick list.
The last sheet (sheet name charge) has month names that need to be invoiced
for (e.g. FEB MAR APRIL (in cells A1 A2 and A3).

Is there a way that a macro can be written that will do the following: -

First month specified, copy the whole spreadsheet;

Second and third months specified, copy from row 3 to the end.

Data should be copied to workbook EOM, sheet EOM. If sheet EOM exists, it
should be replaced. All the data that needs to be copied should be copied as
values (as there are formulas in the sheets) and if at all possible the
formatting in terms of column heights, widths and other cell characteristics
should be retained.

The copying to the EOM should only occur when the sheet charge is populated
with data in cells a1 through a3.

Finally I want sheet EOM sorted by column A, G and H.

Any help would be greatly appreciated.

For some reason I cannot copy from one workbook to another. My typical
method for copying is to hit Ctrl+C, switch workbooks, then hit Ctrl+V
although attempts to use the toolbar and right-clicking don't seem to
work either.

The copy function works fine. I get the "marching ants" to indicate
the area I've selected to copy. However, when I switch to another
workbook, the clipboard seems to empty itself so I cannot paste what
I've copied. I can copy/paste within the same workbook without a
problem. This only occurs when I want to copy from one workbook to
another.

Any help would be appreciated.

Mike.

Hi there!

I have the following problem:

I have an Excel workbook with 7 sheet: (i) Control (ii-vi) Case1, Case2, Case3, Case 4, Case5 and (vii) Output. What I would like to do is the following:

I want to copy certain rows for certain columns from the Cases1-3 (whereas Case 1 and 2 are mandatory and Cases 3-5 can be selected) to Output depending on the following entries in the Control sheet. The heading row for each block (one block is row(x) for Case1-5) is always taken from Case1. The fromat shall always be the same as the row has in Case1(e.g. date, number etc.)

Entries to be made:

- Case 3-5 are in E2-4, dropdown "yes/no" in F2-5 (if yes, include in copy; if no, do not include in copy)
- Heading Row definition in D2
- Start column definition in B2
- End column definition in C2
- Rows definition in A2, A3, A4 ......

Any idea?

Thanks!!!!! svm

Hi all

Leith Ross kindly supplied the original script which worked fine without failure.

However, upon implementation into a 'cut-down' real-time spreadsheet, the script fails on line:

This occurs after all the data has been copied to the Summary worksheet.

In effect what I'm trying to achieve is explained below.

I’m using Excel 2003.

In my spreadsheet I have many worksheets (90+) and I need to copy information from specific cells (the same for each sheet, but the cell range varies each month) from any identified worksheet in the spreadsheet (the specific sheets I want to copy from will differ from month to month but are given in a list.). Then paste this data in sequential order of identified worksheet but transposed into sheet Summary.

In effect this is:

1. Identify the sheet name from the ListingOrder in worksheet LISTING
2. Identify the monthly range of cells from cell C1 worksheet SUMMARY
3. Copy the data (VS Indication Reference No, VS Indicator Description, Responsible Officer, Reporting Period, Comments, Actions and Progress to Date)
4. Go to sheet SUMMARY
5. Go to next available cell in column A
6. Paste special, transpose
7. Loop to next sheet name in the ListingOrder
8. Undertake actions 1-7 until all relevant sheets have been copied from and pasted into Summary sheet.

The end result is as shown in the Worksheet SummaryExample – no need to worry about formatting.

Sample data and SummaryExample in attached spreadsheet.

I'm at a loss to resolve this, and I hope someone can help me out.

Kind regards

NoCanDo

Hi guys!

Newbie here and don't have a programming background but i'm lucky to understand some basic excel macro or vba by looking at examples.

1. I wanted to write or to have a vba or macro to copy tables/pages from a specific HTML (i'm using win XP & IE) automatically. Please take into consideration that I have many open application running or in standby, let us say, i have 5 open web pages, 2 excel spreadsheet, windows explorer.

2. If I manually selected datas from one of the open IE and press CTRL+C or copy, can I paste it to excel using a macro?
- anyone knows the location where XP temporarily save the data when I press CTRL+C on the IE?
- what's the basic code to change to another application & activate it?

Thank you in advance for your assistance and I look forward for your valuable inputs.

regards,
StreetTrader_13

Hello All,

I am trying to copy selected row data to another sheet.
Example : In sheet1 column "M", i have list with three values (i.e., BOOKED,NOT INTERESTED,CONCEDERING).If i select a value from list, the entire row has copy to next sheet means sheet2.
Please let me know some suggestions to achieve this.

Sample Data.xlsx

Thanks,
Raj

Hi

Can somebody tweak the macro called “convert” which is in module 4 to ignore the header row of sheet called “2011” and only copy over everything from row 2 downwards to the results sheet? The problem is there is a bug as it is for the time being. Sometimes it takes the header text to results sheet and sometimes it won't take the header text to results sheet. It's usually when I have run the macro “test” which in module 3 more than once and then running macro “convert” in module 4. It then produces a result without header text. So maybe it's easier to ignore that header row and not to bring that header row to results screen at all. Now comes the second part. Can you create me a macro that clears everything on sheet “2011” row 2 downwards, then takes everything (from row 1 to downwards) from sheet “Results” and places them to back to sheet “2011” row 2 downwards. So the header row that is still intact and is nicely there.

Anyone can help but I think watersev might help me out as he is familiar with these macros in question.

Cheers

Hi, I know way to little of VBA, i need some help in copying values from one workbook to another workbook.... these is the problem.... I have book1.xls with some data, and book2.xlsm where i do the calculation.

I want to search for a specific string values in a specific column (lets say "D") from rows 3 to the last filled row. if the value is true..... then copy the row in a sheet name "configuration" in the next blank row in book2.xlm.

I'm sending a sample where i'm testing the formulas to see how far i can get. but i feel stuck at the moment.

please help

I am getting desperate to find a solution to shorten the time I need to do what I am describing below. I like to use codes for this.

I have a workbook that contains 4 worksheets named as Summary, Hotel, Podium and External. They all have the same layout except only those items relating to the "Hotel" will be in the Hotel worksheet and so on. At times it will be entered as "All" which means this item is to be into all the different worksheets.

Basically the macro needs to do the following.

Look in the Summary worksheet. Select and copy from row 5 onwards (first 4 rows is the headers that I do not to copy over in the other worksheet) when Col A contains either "Hotel" or "All" to the Hotel worksheet. This apply as well to the Podium and External worksheet.

I hope I am clear with my request.

Here is what is going on. I have 2 worksheets. One work sheet I have three sets of data. These sets of data expand and contract. Some weeks 3 rows, some weeks 20 rows. Unfortunately they all have to be on the same worksheet, they are divided by blank lines, and headers. What I am trying to do is copy the rows over to another worksheet removing the blank lines and headers. I have figured out how to copy my data from one sheet to another when there is a fixed starting point. But since the worksheet has 3 sets of data that flex, there will never be a fixed starting point for each set, just the top one. Can anyone help?

Dear all,

I want to search someting like 042 in Column E from row 1 to Last Row. If found in any row the the row will be highlighted as yellow color

Is there any formula or macro etc ?

Please help me

FAROOQ

Hello!

I need some help. I received data to analyze which was inputed by columns instead of rows. I am wondering if there is any way to switch the row data to column data?

Also, does anyone know if you can filter by row if the above is imposible?

thanks!


No luck finding an answer? You could always try Google.