code to move a row based on fix values and paste it Solved/Closed

Question

Hello Gurus,
This is my 1st question and I m a beginner in macros .I wanted a code to move a row based on a fix values  and paste it in the same sheet. ITs like I have downloaded data sheet and the file which I got has split the rows and pasted the remaining data in a row below it.so I would like to add these two rows as one.
as shown below .
User ID Password Role  Description  
plant  material     
11111 222222 aa xxxx  
zzzz 7889    
     
     
After Macro
     
User ID Password Role  Description plant  material 
11111 222222 aa   xxxx           zzzz   7889

Thanks

venkat1926 · Answer

suppose data is like this 

User ID	Password	Role	 Description
plant	 material 		
11111	222222	aa	xxxx
zzzz	7889		
11111	222222	aa	xxxx
zzzz	7889		
11111	222222	aa	xxxx
zzzz	7889		
11111	222222	aa	xxxx
zzzz	7889		


ths is in sheet1. copy this in sheet2 from A1 to preserve the data configuration

now try this macro 

Sub test()Dim j As Integer, k As IntegerWorksheets("sheet1").ActivateRange(Range("A2"), Range("A2").End(xlToRight)).CutRange("a1").End(xlToRight).Offset(0, 1).SelectActiveSheet.PasteRange("a2").EntireRow.Deletej = Range("A1").End(xlDown).RowFor k = j To 2 Step -1If k Mod 2 <> 0 ThenRange(Cells(k, 1), Cells(k, 1).End(xlToRight)).Copy Cells(k - 1, 1).End(xlToRight).Offset(0, 1)Cells(k, 1).EntireRow.DeleteEnd IfNext kEnd Sub

Sub undo()Worksheets("sheet1").Cells.ClearWorksheets("sheet2").Cells.Copy Worksheets("sheet1").Cells(1, 1)End Sub

Code to move a row based on fix values and paste it

1 response

Similar discussions

Subscribe To Our Newsletter!