Need to edge out the competition for your dream job? Train for certifications today.
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim rngSrc As Range
Dim rngDst As Range
Dim col As Long
Set wb1 = Workbooks("Book1")
Set wb2 = Workbooks("Book2")
For col = 1 To wb1.Cells(2, Columns.Count).End(xlToLeft).Column
Set rngSrc = wb1.Worksheets("Sheet1").Cells(2,col)
Set rngDst = wb2.Worksheets("Sheet1").Cells(2,col)
Do Until rngSrc.Value = ""
rngDst.Value = rngSrc.Value
Set rngSrc = rngSrc.Offset(1)
Set rngDst = rngDst.Offset(1)
Open in new window
This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.