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
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