|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Want to get the cell value on the bases of dropdown select. Want to copy the data from cell
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Activate Application.ScreenUpdating = False If Not Application.Intersect(Range("B13"), Range(Target.Address)) Is Nothing Then Select Case Target.Value Case Is = "BAY - UNDEGROUND PLACEMENT": Sheet13.Rows("1:4").EntireRow.Hidden = False Sheet13.Rows("5:34").EntireRow.Hidden = True Sheet13.Rows("35:37").EntireRow.Hidden = False Sheet13.Rows("38:88").EntireRow.Hidden = True Case Is = "BAY - AERIAL PLACEMENT": Sheet13.Rows("2:4").EntireRow.Hidden = True Sheet13.Rows("5:7").EntireRow.Hidden = False Sheet13.Rows("8:37").EntireRow.Hidden = True Sheet13.Rows("38:40").EntireRow.Hidden = False Sheet13.Rows("41:88").EntireRow.Hidden = True Case Is = "BAY - UG + AERIAL PLACEMENT": Sheet13.Rows("2:7").EntireRow.Hidden = True Sheet13.Rows("8:10").EntireRow.Hidden = False Sheet13.Rows("11:40").EntireRow.Hidden = True Sheet13.Rows("41:45").EntireRow.Hidden = False Sheet13.Rows("46:88").EntireRow.Hidden = True Case Is = "BAY - ENERGIZE": Sheet13.Rows("2:10").EntireRow.Hidden = True Sheet13.Rows("11:13").EntireRow.Hidden = False Sheet13.Rows("14:25").EntireRow.Hidden = True Sheet13.Rows("26:28").EntireRow.Hidden = False Sheet13.Rows("29:88").EntireRow.Hidden = True Case Is = "BAY - ENERGIZE (2ND NNI PORT)": Sheet13.Rows("2:13").EntireRow.Hidden = True Sheet13.Rows("14:16").EntireRow.Hidden = False Sheet13.Rows("17:28").EntireRow.Hidden = True Sheet13.Rows("29:31").EntireRow.Hidden = False Sheet13.Rows("32:88").EntireRow.Hidden = True Case Is = "BAY - TESTING": Sheet13.Rows("2:16").EntireRow.Hidden = True Sheet13.Rows("17:19").EntireRow.Hidden = False Sheet13.Rows("20:31").EntireRow.Hidden = True Sheet13.Rows("32:34").EntireRow.Hidden = False Sheet13.Rows("35:88").EntireRow.Hidden = True Case Is = "SF - PLACEMENT": Sheet13.Rows("2:19").EntireRow.Hidden = True Sheet13.Rows("20:22").EntireRow.Hidden = False Sheet13.Rows("23:42").EntireRow.Hidden = True Sheet13.Rows("43:45").EntireRow.Hidden = False Sheet13.Rows("46:88").EntireRow.Hidden = True Case Is = "SF - ENERGIZE": Sheet13.Rows("2:22").EntireRow.Hidden = True Sheet13.Rows("23:25").EntireRow.Hidden = False Sheet13.Rows("26:42").EntireRow.Hidden = True Sheet13.Rows("43:45").EntireRow.Hidden = False Sheet13.Rows("46:88").EntireRow.Hidden = True Case Is = "BAY - UNDEGROUND PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:46").EntireRow.Hidden = True Sheet13.Rows("47:49").EntireRow.Hidden = False Sheet13.Rows("50:70").EntireRow.Hidden = True Sheet13.Rows("71:73").EntireRow.Hidden = False Sheet13.Rows("78:88").EntireRow.Hidden = True Case Is = "BAY - AERIAL PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:52").EntireRow.Hidden = True Sheet13.Rows("53:55").EntireRow.Hidden = False Sheet13.Rows("56:76").EntireRow.Hidden = True Sheet13.Rows("77:79").EntireRow.Hidden = False Sheet13.Rows("80:88").EntireRow.Hidden = True Case Is = "BAY - UG + AERIAL PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:58").EntireRow.Hidden = True Sheet13.Rows("59:61").EntireRow.Hidden = False Sheet13.Rows("62:82").EntireRow.Hidden = True Sheet13.Rows("83:85").EntireRow.Hidden = False Sheet13.Rows("86:88").EntireRow.Hidden = True Case Is = "SF - PLACEMENT(2ND NNI PORT)": Sheet13.Rows("2:43").EntireRow.Hidden = True Sheet13.Rows("44:46").EntireRow.Hidden = False Sheet13.Rows("47:64").EntireRow.Hidden = True Sheet13.Rows("65:67").EntireRow.Hidden = False Sheet13.Rows("68:88").EntireRow.Hidden = True Case Is = "SF - PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:43").EntireRow.Hidden = True Sheet13.Rows("44:46").EntireRow.Hidden = False Sheet13.Rows("47:67").EntireRow.Hidden = True Sheet13.Rows("68:70").EntireRow.Hidden = False Sheet13.Rows("71:88").EntireRow.Hidden = True Case Is = "BAY - UNDEGROUND PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:49").EntireRow.Hidden = True Sheet13.Rows("50:52").EntireRow.Hidden = False Sheet13.Rows("53:73").EntireRow.Hidden = True Sheet13.Rows("74:76").EntireRow.Hidden = False Sheet13.Rows("77:88").EntireRow.Hidden = True Case Is = "BAY - AERIAL PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:55").EntireRow.Hidden = True Sheet13.Rows("56:58").EntireRow.Hidden = False Sheet13.Rows("59:79").EntireRow.Hidden = True Sheet13.Rows("80:82").EntireRow.Hidden = False Sheet13.Rows("83:88").EntireRow.Hidden = True Case Is = "BAY - UG + AERIAL PLACEMENT(ENERGIZE FBT)": Sheet13.Rows("2:61").EntireRow.Hidden = True Sheet13.Rows("62:64").EntireRow.Hidden = False Sheet13.Rows("65:85").EntireRow.Hidden = True Sheet13.Rows("86:88").EntireRow.Hidden = False End Select End If Application.ScreenUpdating = True End Sub Sir this is the code of hide and unhide now i want like if i select case 1 the data display in cell B3 i want to copy that record and if select any other case then i want to select data from that cell. I want to copy the data from cell on the bases of DDL selection. How to do that. |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to copy data to a specific cell by clicking on source cell? | LearnerExcel | Excel | 3 | 08-25-2021 04:46 AM |
Cell A1 Select car maker = Cell B1 shows menu for car models | jaywizz1 | Excel | 1 | 03-11-2016 05:09 PM |
copy a cell from 1 file to another when data changes | jpreeshl | Excel | 5 | 01-20-2016 09:06 AM |
Copy matching data from one report cell to another cell report | mbesspiata | Excel | 9 | 01-15-2015 01:49 PM |
Using Input from cell to select data from another sheet | bbhe | Excel | 2 | 09-10-2014 01:50 PM |