Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
pop up window
The code you were given only works great between "B1:B10"
I tried to add a line Set insect=Intersect(Target, Range("C1:C10")) but it didnt work. How can i have a pop up window if I have a larger cell area to work with. Example, B1:B10 C1:C10 D1:D10 E1:E10 thru M1:M10 Thank you. Private Sub Worksheet_Change(ByVal Target As Range) Dim insect As Range Dim Y As String Set insect = Intersect(Target, Range("B1:B10")) If insect Is Nothing Then Exit Sub Y = InputBox("What sheet do you want to put this in?") Sheets(Y).Activate End Sub |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
pop up window
no need for a new post look at your other
"tleehh" wrote: The code you were given only works great between "B1:B10" I tried to add a line Set insect=Intersect(Target, Range("C1:C10")) but it didnt work. How can i have a pop up window if I have a larger cell area to work with. Example, B1:B10 C1:C10 D1:D10 E1:E10 thru M1:M10 Thank you. Private Sub Worksheet_Change(ByVal Target As Range) Dim insect As Range Dim Y As String Set insect = Intersect(Target, Range("B1:B10")) If insect Is Nothing Then Exit Sub Y = InputBox("What sheet do you want to put this in?") Sheets(Y).Activate End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to save a desired window size but hv window comeup fullsz by d | Excel Discussion (Misc queries) | |||
View cell contents as a pop-up window (similar to comments window) | Excel Worksheet Functions | |||
Docking Project Explorer, Properties window and Code window in VBE | Setting up and Configuration of Excel | |||
The window opens in a smaller window not full sized window. | Excel Discussion (Misc queries) | |||
In Excel - how to delete new window created from window on tool ba | Excel Worksheet Functions |