'BLOCK3
Range("AD38").Value = Range("AH4").Value
Range("AD39").Value = Range("AI4").Value
Range("AD40").Value = Range("AJ4").Value
Range("AD41").Value = Range("AK4").Value
Range("AD42").Value = Range("AL4").Value
Range("AD43").Value = Range("AM4").Value
Range("AD44").Value = Range("AN4").Value
Rob
Last edited by Robn02; 10-23-2017 at 10:04 AM. Reason: misleading title
Here you have it ... but who of us has a refinery to do it ...
Sub refine() 'Range("AD38").Value = Range("AH4").Value 'Range("AD39").Value = Range("AI4").Value 'Range("AD40").Value = Range("AJ4").Value 'Range("AD41").Value = Range("AK4").Value 'Range("AD42").Value = Range("AL4").Value 'Range("AD43").Value = Range("AM4").Value 'Range("AD44").Value = Range("AN4").Value Range("AD38:AD44").Value = Application.Transpose(Range("AH4:AN4")) End Sub
Last edited by mjr veverka; 10-21-2017 at 08:31 PM.
Thank you !
How do I get this to paste to merged cells? or is that bad practice?
Rob
e.g. in this way, but you will lose some of the data.Originally Posted by Robn02
This is "the beauty" of the merged cells.
Sub refine() 'Range("AD38").Value = Range("AH4").Value 'Range("AD39").Value = Range("AI4").Value 'Range("AD40").Value = Range("AJ4").Value 'Range("AD41").Value = Range("AK4").Value 'Range("AD42").Value = Range("AL4").Value 'Range("AD43").Value = Range("AM4").Value 'Range("AD44").Value = Range("AN4").Value Range("AD38:AD44").Value = Application.Transpose(Range("AH4:AN4")) 'With merged cells, but you will lose some of the data Application.DisplayAlerts = False Range("AD10:AD16").MergeCells = False Range("AD10:AD16").Value = Application.Transpose(Range("AH4:AN4")) Range("AD10:AD16").MergeCells = True Application.DisplayAlerts = True End SubIt depends on what you want to achieve and do you care about all the data or not ?
Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem - not what you think the answer might be. (think google search terms?). Once you have done this please send me a PM and I will remove this request. (Also, include a link to your thread - copy from the address bar)
Many members search our previous posts, and thread titles play a big part of the search. I doubt anybody would do a search based on your title?
To change a Title on your post, click EDIT POST then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.
(note: this change is not optional)
1. Use code tags for VBA. [code] Your Code [/code] (or use the # button)
2. If your question is resolved, mark it SOLVED using the thread tools
3. Click on the star if you think someone helped you
Regards
Ford
Thank you. I'll drop this route and rethink it.
Merged cells are indeed "bad" practice. Use "Center Across Selection" instead.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks