post to different sheet

[Darrell_Sarrasin via OfficeKB.com]

I have this coding


Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
For Each c In Range("b2:b" & lastrow)
c.Offset(, 5) = c & " [" & c.Offset(, 2) & "]"
Next c
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

End Sub

It basically takes two cells and merges them together to make one. what I
want to do is take the post and merge the two cells together on a different
sheet.

Currently the line c.offset......... is what creates it but have been having
difficulties moving it to the otehr sheet.

 

[joel]

See changes below. I added code to use Sheet1 and Sheet2. Change Sheet
names as required. I added a WITH and the put periods in front of CELLS and
RANGE to reference the ite object in the WITH statement.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
with sheets("Sheet1")
lastrow = .Cells(Rows.Count, "a").End(xlUp).Row
For Each c In .Range("b2:b" & lastrow)
c.Offset(, 5) = c & " [" & c.Offset(, 2) & "]"
Sheets("Sheet2").Range("A1") = c & " [" & c.Offset(, 2) & "]"
Next c
end With
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

End Sub

 

[Darrell_Sarrasin via OfficeKB.com]

Thank you for the information but it is not working. the one before takes
two different cells and combines them together to make 1 someone else on the
same sheet. What you have sent me will post to another sheet but it is only
posting the brackets not the information

See changes below. I added code to use Sheet1 and Sheet2. Change Sheet
names as required. I added a WITH and the put periods in front of CELLS and
RANGE to reference the ite object in the WITH statement.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
with sheets("Sheet1")
lastrow = .Cells(Rows.Count, "a").End(xlUp).Row
For Each c In .Range("b2:b" & lastrow)
c.Offset(, 5) = c & " [" & c.Offset(, 2) & "]"
Sheets("Sheet2").Range("A1") = c & " [" & c.Offset(, 2) & "]"
Next c
end With
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

End Sub

I have this coding

[quoted text clipped - 17 lines]

Currently the line c.offset......... is what creates it but have been having
difficulties moving it to the otehr sheet.

 

[joel]

The value of "C" is nothing just leaving blanks. Try replace "C" with
"C.VALUE". I'm not sure what your code looks like, but you may have a
problem with the way you are setting the value of "C". Look where I place
the period in front of RANGE and CELLS so it refers to your old worksheet. I
suspect that "C" is referencing the wrong worksheet.

Thank you for the information but it is not working. the one before takes
two different cells and combines them together to make 1 someone else on the
same sheet. What you have sent me will post to another sheet but it is only
posting the brackets not the information

See changes below. I added code to use Sheet1 and Sheet2. Change Sheet
names as required. I added a WITH and the put periods in front of CELLS and
RANGE to reference the ite object in the WITH statement.

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
with sheets("Sheet1")
lastrow = .Cells(Rows.Count, "a").End(xlUp).Row
For Each c In .Range("b2:b" & lastrow)
c.Offset(, 5) = c & " [" & c.Offset(, 2) & "]"
Sheets("Sheet2").Range("A1") = c & " [" & c.Offset(, 2) & "]"
Next c
end With
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

End Sub

I have this coding

[quoted text clipped - 17 lines]

Currently the line c.offset......... is what creates it but have been having
difficulties moving it to the otehr sheet.