That works beautifully. I did not know you could do that with the Range syntax. I think I will have to rewrite some previous workarounds with this new information.
Thank you once again, for your help, Akhilesh. solved. On Jun 11, 1:40 am, Akhilesh Karna <[email protected]> wrote: > Replace the following line in your code > > Worksheets("Input").Range("source_col:source_col").Copy _ > Destination:=Worksheets("Output").Range("dest_col" & 1) > > with > > Worksheets("Input").Range(source_col & ":" & source_col).Copy _ > Destination:=Worksheets("Output").Range(dest_col & 1) > > Akhilesh Kumar Karna > > On Thu, Jun 11, 2009 at 3:10 AM, Dustin <[email protected]> wrote: > > > Hello Group, > > > The code at the end of this post does not work, but I made it to be > > the best approximation of what I need. How it *should* work: > > > The following is a map with header columns: > > > G H I J > > s ID ClientId q > > > col G holds the ORIGINAL column reference letter > > col H holds data (irrelevant here) > > col I holds data (irrelevant here) > > col J holds the DESTINATION column reference letter > > > What I would like to happen, is to have a loop that goes through each > > row in columns G and J (this part I have working, no problem), > > and then for the values of those cells be the references for selecting > > a column. > > > For instance. The first iteration of the loop chooses "s" as the > > variable "source_col" and "q" as the "dest_col" > > > the lines following that attempt to copy the contents of column S and > > paste it into column Q (on their respective worksheets, input and > > output.) > > > I cannot seem to get this reference to read correctly though. Any > > Thoughts? Thank you!! > > > Dustin > > > code: > > ******************************************************************** > > Sub MoveColumns() > > > Dim countnonblank As Integer, myRange As Range > > Set myRange = Columns("G:G") > > countnonblank = Application.WorksheetFunction.CountA(myRange) > > MsgBox countnonblank > > > For i = 2 To countnonblank > > source_col = Range("G" & i).Value > > dest_col = Range("J" & i).Value > > > Worksheets("Input").Range("source_col:source_col").Copy _ > > Destination:=Worksheets("Output").Range("dest_col" & 1) > > > Next > > > End Sub > > ******************************************************************** --~--~---------~--~----~------------~-------~--~----~ ------------------------------------------------------------------------------------- Some important links for excel users: 1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at http://www.excelitems.com 2. Excel tutorials at http://www.excel-macros.blogspot.com 3. Learn VBA Macros at http://www.vbamacros.blogspot.com 4. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to [email protected] If you find any spam message in the group, please send an email to: Ayush Jain @ [email protected] or Ashish Jain @ [email protected] ------------------------------------------------------------------------------------- -~----------~----~----~----~------~----~------~--~---
