From VBA help:
Worksheets(“Sheet1″).Range(“A1:D4″).Copy _
Destination:=Worksheets(“Sheet2″).Range(“E5″)

Now I understand

Is there a way to cut a row/rows and insert it/them into a sorted order on a different page with other information? I can’t just insert them at the bottom and sort because the rows on the other page are merged and cannot be sorted. This is the last piece to my VBA puzzle. Thank you!

How do you copy Range A7:C11 from the first sheet to all sheets of the workbook (also to A7:C11 on every sheet)? Thanks!

How do I copy the cell no. and paste it another cell. Suppose I want the cell no. of the word “Significant” in the worksheet. Assuming it is in B4. How do I paste it in C1 using macro? The macro should be able to find the cell no.

I have four rows of data that need to be pastes into another worksheet in 1 column? How do I do this?

I have been trying to set cells equal by value, but for some reason, they can’t transpose automatically.

I have also tried the if then statements so that if the data is greater than zero, then the cell automatically paste into the other sheet, but that wont work either? Any ideas as to how to get multiple rows paste into one column across sheets?

Is there a way, using an input form, to tell the macro where to start pasting information? For example:

The typical command is: Range(“B2″).Select
I want to be able to tell the macro a different cell to copy to starting somewhere other than “B2″. Maybe B3 or B4.

Sorry to follow up my own post, but below is the effect I was trying to describe above. So im trying to paste the value ’1′ on the right hand side into 1 on the left, then ignore 1b, 1c etc (these would actually be just blank in my real problem worksheet), and then paste 2 from the right into 2 on the left.

1 1
1b 2
1c 3
1d 4
2 5
2b
2c
2d
3
3b
3c

Why in the world you would do this this way? Selecting in VBA code is pointless. The same operation can be performed with this simple one line of code. And this can be modified as needed to meet the other macros needs.

Sub OneCell()
Range(“A1″).Cut Destination:=Range(“B1″)
End Sub

Can someone please help me? I am not at all familiar with VBA so would like a code as detailed as possible (with comments).

Here’s what I am trying to do – I would like to automate copying of data from one workbook to another based on some criteria. For example – I am making up the layout of my data for confidentiality reasons but this should give a pretty good idea of what I want -

I have a workbook called Apartments with a sheet called “Info”. The columns (not starting at the first row) are labeled as “region”, “Number of rooms”, “price”, “square footage”, “security deposit”.

Then I have another workbook called Detail_info with sheets called “south_1″, “south_2″, “south_3″, “north_1″, “north_2″, etc.

What I need to do is somehow automate filtering of workbook Apartments (sheet-Info) to copy Region (ex. South) and Number of Rooms (ex. 1) and then paste this information to workbook Detail_info – sheet South_1.
I need to do this for all the combinations of region/number of rooms.My list isn’t long so I can type out the combinations in the code if I have a detailed template to work with. Please someone help me!

I am using the following code, but I need it to copy Column A & B onto the new worksheet, but to keep the data on the same row in Sheet2 as it was on Sheet 1. Can someone tell me what I need to add?

I have Sheet2 copied over exactly form Sheet1 so that I can print it and it look the same. This is our invoice. Our customers order things and if it is Back Ordered I want it to copy to Sheet 2 so I can make a Back Ordered Order for them.

Sub Copybo()

‘Copy cells of cols A,B from rows containing “BO” in
‘col D of the active worksheet (source sheet) to cols
‘A,B of Sheet2 (destination sheet)

‘Destination Sheet
Dim DestSheet As Worksheet
Set DestSheet = Worksheets(“Back Order”)

Dim sRow As Long ‘row index on source worksheet
Dim dRow As Long ‘row index on destination worksheet
Dim sCount As Long
sCount = 0
dRow = 1

For sRow = 1 To Range(“D65536″).End(xlUp).Row
‘use pattern matching to find “BO” anywhere in cell
If Cells(sRow, “I”) Like “*BO*” Then
sCount = sCount + 1
dRow = dRow + 1
‘copy cols A & B
DestSheet.Cells(dRow, “A”) = Cells(sRow, “A”)
DestSheet.Cells(dRow, “B”) = Cells(sRow, “B”)
End If
Next sRow

MsgBox sCount & ” BO rows copied”, vbInformation, “Transfer Done”

End Sub

hi there! need your expertise..
i have columnD of sheet1 to sum lists of data in colB.
e.g: colA colB colD
CB 1 =sumif(B:B,”CB”,B:B)
CB 6
so, i’ll be getting ’7′ in my D1 cell.
i ran below code to cut A1:B20 then paste it to last empty row of sheet2. i manage to paste it correctly in sheet2 but somehow my formula in D1(sheet1) changes to >> =sumif(sheet2!B:B,”CB”,sheet2!B:B). how is this so? n how do i correct it?

code:
Sub RoundedRectangle2_Click()
Dim lPart As Long
Dim ws As Worksheet
Dim mySheet As Worksheet
Set mySheet = Worksheets(“checkout”)
mySheet.Range(“A2:H500″).Cut _
Destination:=Worksheets(“dataout”).Range(“A65536″).End(xlUp).Offset(1, 0).Range(“A1″)
Worksheets(“checkout”).Activate

End Sub

thanks in advance!

Hi!
This is a complicate case. May be you can help me.
I have 2 sheets (sheet1 and sheet2) in one xls with a table in each one, same titles, some data is defferent.
I want:
1.- compare both tables by column 2
2.- if data in column 2 of both tables match then, select, copy and insert the entire row in sheet2, so I will have 2 rows with same data in sheet2.

Can you help me, please.
Thank you.

Does anybody know how to keep active that ‘cancel action’ button on the panel after running a macros?