Trevor3007
Well-known Member
- Joined
- Jan 26, 2017
- Messages
- 667
- Office Version
- 365
- Platform
- Windows
Hi,
i have this code:-
sometimes there is more than one entry to copy over, and I was wondering if some clever coder can sort so that it would paste the data into the next available blank row and a Yes No box would pop up asking to repeat or end?
MTIA & stay safe
Trevor3007
i have this code:-
VBA Code:
Sub sortRawData()
'
' sortRawData Macro
Sheets("Raw").Select
Range("B1").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B2").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("C2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B3").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("D2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B4").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("E2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B5").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("F2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B6").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("G2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B7").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("H2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B8").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("I2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B9").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("J2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Range("B10").Select
Selection.Cut
Sheets("New_unregistered_devices_requir").Select
Range("K2").Select
ActiveSheet.Paste
Sheets("Raw").Select
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Sheets("New_unregistered_devices_requir").Select
Range("A2").Select
End Sub
sometimes there is more than one entry to copy over, and I was wondering if some clever coder can sort so that it would paste the data into the next available blank row and a Yes No box would pop up asking to repeat or end?
MTIA & stay safe
Trevor3007