MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub ee26208387() Application.ScreenUpdating = False Application.EnableEvents = False Dim wsFrom As Worksheet Dim wsTo As Worksheet Dim rFrom As Range Dim rTo As Range Set wsFrom = Sheets("Source") Set wsTo = Sheets("Sheet2") Set rFrom = wsFrom.Range("A2") Set rTo = wsTo.Range("A7") While rFrom <> "" rFrom.Resize(, 6).Copy rTo rFrom.Resize(, 6).Copy rTo.PasteSpecial xlPasteValues rFrom.Offset(3, 4).Resize(, 13).Copy rTo.Offset(, 6) Set rFrom = rFrom.Offset(5) Set rTo = rTo.Offset(1) Wend Application.EnableEvents = True Application.ScreenUpdating = True Application.ScreenUpdating = False Call Headers Call Checkbox_Data Application.ScreenUpdating = True End Sub
|copy selected column based on selected value to new worksheet||2||34|
|how to loop through and process two columns in excel||8||26|
|How can I put values from different columns in a single cell||11||21|