Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 03-30-2020, 06:26 PM
naeemakhtar naeemakhtar is offline Copy colored cells to new worksheet (maintain cell position) Windows 10 Copy colored cells to new worksheet (maintain cell position) Office 2016
Novice
Copy colored cells to new worksheet (maintain cell position)
 
Join Date: Apr 2016
Posts: 8
naeemakhtar is on a distinguished road
Default Copy colored cells to new worksheet (maintain cell position)


I have a worksheet with many columns and rows. I have colored coded certain rows. Please provide code that would enable me to transfer the highlighted rows from the current worksheet to another worksheet within the same workbook.
Reply With Quote
  #2  
Old 03-31-2020, 09:27 AM
Logit Logit is offline Copy colored cells to new worksheet (maintain cell position) Windows 10 Copy colored cells to new worksheet (maintain cell position) Office 2007
Expert
 
Join Date: Jan 2017
Posts: 529
Logit is a jewel in the roughLogit is a jewel in the roughLogit is a jewel in the rough
Default

Hopefully this will get you started in the right direction.

vba - Copy paste entire row if the cell has red/green/Yellow color in excel - Stack Overflow
Reply With Quote
  #3  
Old 06-06-2020, 04:02 PM
Purfleet Purfleet is offline Copy colored cells to new worksheet (maintain cell position) Windows 10 Copy colored cells to new worksheet (maintain cell position) Office 2019
Expert
 
Join Date: Jun 2020
Location: Essex
Posts: 345
Purfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to beholdPurfleet is a splendid one to behold
Default

How about somthing like this?


Code:
Sub MoveColours()

Worksheets("Sheet1").Range("a1").CurrentRegion.Copy

Worksheets.Add.Name = "Output"

Worksheets("Output").Range("a1").PasteSpecial xlPasteAll

Range("a1").AutoFilter Field:=1, Operator:=xlFilterNoFill

Application.DisplayAlerts = False
    Range("a1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

ActiveSheet.AutoFilterMode = False

End Sub
Reply With Quote
Reply

Tags
copy cells

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Looking to copy select cells in table using dropdown list to paste to new table in another worksheet CaptainRetired Excel Programming 18 01-04-2018 07:22 PM
Copy colored cells to new worksheet (maintain cell position) Copy a cell's contents across many cells cloa513 Word Tables 13 09-19-2016 11:11 PM
Copy colored cells to new worksheet (maintain cell position) copy cells from a worksheet into other worksheets based on Criteria Elton Wolter Excel Programming 4 04-16-2016 08:44 AM
Copy colored cells to new worksheet (maintain cell position) Looping through rows and copy cell values to another worksheet get4hari Excel Programming 1 10-02-2015 04:51 PM
Can you copy & paste cells across worksheets and preserve reference to worksheet? New Daddy Excel 2 11-27-2013 07:19 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 02:48 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft