copy value of a cell to another cell on another sheet

[cfinch100]

hi
i have been given this code

[ Dim x As Integer [For x = 3 To Sheets("MFR_List").UsedRange.Rows.Count]
[If Application.CountBlank(Range(Cells(x, 1), Cells(x, 5))) = 0 Then]
Range(Cells(x, 1), Cells(x, 6)).Copy Sheets("Completed").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)]
it copies contents of sheet to another sheet works well, now i need to copy just one cell to another sheet to specific location,
like from sheet "completed" a5 to sheet" invoice" b9 ,and to be upgradable meaning i need to add extra cells later which i would like to try and do myself before asking for help any help wood be good
cheers colin

[cfinch100]

hi
can anyone tell me whats happening here have copied from form completed to form invoice it should go on line 26 which it did first now it goes on anyline it wants to eg 50 , 76, 102
rows , just does not opoulate 26 all the time any help please
cheers colin

[AB33]

You have many codes on your book
This code is copying in to completed sheet, not form sheet. Where is the code which is copying in to invoice sheet?

Please Login or Register  to view this content.

[cfinch100]

hi
code for invoices form is in userform4 ,
data comes from mfr_list to completed to stored contracts and also invoice, which is where having problem it will not just populate one row it keeps moving rows ,was trying to populate boxes on invoice sheet but it keeps moving row nos so will not work
cheers colin

[AB33]

Sorry! I have not idea how to use a code within user form, but if you have a code like the above one, please post it and will have a look at it.

[cfinch100]

hi
this is the code to populate invoice sheet its on userform4 but only cotrolled by cmdbutton it populates invoice by macro and then moves data to right boxes

on invoices sheet

Please Login or Register  to view this content.

cheers colin

[AB33]

Colin,
Please wrap your code with tags.
Okay,is this line of code which is supposed to copy in to an invioice sheet and is not working as you intended?

Please Login or Register  to view this content.

[cfinch100]

hi yes this sends to invoice originally at the end offset i set to 26,0 to put it down the sheet then moved them around with the code below those lines
but as i said it does not just stay on row 26 even if i clear all forms except mfr_list it just moves about
cheers colin

have put code tags on using #is that right
cheers colin

[AB33]

Colin,
Yes, I have tested it.
Reason: The code is looking for the next empty row after the last row on invoice sheet, so it is not going to stay at row 26 if you have data which appear well below row 26 because VBA thinks that your last row is not 26. I think you have two options. If you want the code to start at 26, you need to clear all data below 26, so that VBA will treat your last row as 26.
If this is not what you want to do, the other option is to use this code:
This code paste in to a specifc cell in this case it starts at 26(Change to what ever your choice is)

Please Login or Register  to view this content.

[cfinch100]

hi
excellent many thanks
cheers colin