excel Worksheet_SelectionChange - copying data -


scenario:

i have 2 worksheets same except "some content" in sheet2 column c-e, , sheet1 containing worksheet_selectionchange handler

when click on column b in sheet1 worksheet_selectionchange changes cell colour , sets column c-e of sheet2 column c

problem:

trouble falls on over application error...

can please, annoying...just how copy data sheet2 sheet 1 in worksheet_selectionchange handler?

if set s1c = "x" (as in hardcoded it's fine), when try reference cell second sheet doesn't work.

many in advance, best regards

code follows:

public benrel public rskopt public resopt public getrow public getcol  private sub worksheet_selectionchange(byval target range)  on error goto exitsubcorrectly 'turn off multiple recurring changes application.enableevents = false  'do not allow range selection if target.cells.count > 1 goto exitsubcorrectly   'only allow selection within our range set myrange = range("b8:b24") if not application.intersect(target, myrange) nothing     ' @ least 1 cell of target within range myrange.     ' carry out action.      getrow = target.row     getcol = target.column       select case range(cells(target.row, target.column), cells(target.row, target.column)).style          case "normal"             range(cells(target.row, target.column), cells(target.row, target.column)).style = "accent1"              getdata             putdata          case "accent1"             range(cells(target.row, target.column), cells(target.row, target.column)).style = "normal"             range(cells(target.row, target.column + 1), cells(target.row, target.column + 3)).value = ""          case else      end select  else     ' no cell of target in in range. out.     goto exitsubcorrectly end if  exitsubcorrectly: ' go , turn on changes ' msgbox err.description worksheets("sheet1").select application.enableevents = true  end sub  sub getdata()  worksheets("sheet2").select range(cells(getrow, getcol), cells(getrow, getcol)).select benrel = range(cells(getrow, getcol), cells(getrow, getcol)).offset(0, 1).value rskopt = range(cells(getrow, getcol), cells(getrow, getcol)).offset(0, 2).value resopt = range(cells(getrow, getcol), cells(getrow, getcol)).offset(0, 3).value   end sub  sub putdata()  worksheets("sheet1").select range(cells(target.row, target.column), cells(target.row, target.column)).offset(0, 1).value = benrel range(cells(target.row, target.column), cells(target.row, target.column)).offset(0, 2).value = rskopt range(cells(target.row, target.column), cells(target.row, target.column)).offset(0, 3).value = resopt  end sub

it looks me replace 3 routines with

private sub worksheet_selectionchange(byval target range)     on error goto exitsubcorrectly    'turn off multiple recurring changes    application.enableevents = false     'do not allow range selection    if target.cells.count > 1 goto exitsubcorrectly     'only allow selection within our range    set myrange = range("b8:b24")    if not application.intersect(target, myrange) nothing       ' @ least 1 cell of target within range myrange.       ' carry out action.       cells(target.row, target.column)          select case .style              case "normal"                .style = "accent1"                .offset(0, 1).resize(, 3).value = worksheets("sheet2").cells(getrow, getcol).offset(0, 1).resize(, 3).value             case "accent1"                .style = "normal"                .offset(0, 1).resize(, 3).clearcontents             case else           end select       end     end if  exitsubcorrectly:    ' go , turn on changes    ' msgbox err.description    application.enableevents = true  end sub

Comments

Post a Comment

Popular posts from this blog

html - How to style widget with post count different than without post count -

i have border below li elements in wordpress widget types appropriate. element inside set block gives them nice easy click full width. the problem, when choose option "show post count" when adding widget such categories or archives displays post count plain text after tag , because tag block pushes post number text line below. whether choose show post count or not show post count still gives exact same element identifyer example "widget_categories". how style post count not on next line still keep links non post count list items full width? here's example on sidebar www.bbmthemes.com/themes/modular/blog-standard/ in order solve problem need remove display:block; for ul.widgets ul a , add in it's place line-height: 33px; what going achieve have same visual effect. what going lose doing links going work on text , not on "box". the other way out of find post count coming , make changes this. example change text count i
Read more

How to remove text and logo OR add Overflow on Android ActionBar using AppCompat on API 8? -

have researched death , cannot find answer. i have actionbar using appcompat. supporting api v7 (api v8 do). actionbar works api v11. api < v11 has problem of removing icon (and feature) actionbar without supplying overflow. big picture have app logo, app title, , 3 icons squidging same actionbar on low end phone. trying make room! i happy 1 of 2 solutions. either: a method of getting overflow functionality can retrieved pull down. (preferred) method of removing icon , text actionbar below current xml api 11+: <resources> <!-- base application theme api 11+. theme replaces appbasetheme res/values/styles.xml on api 11+ devices. --> <style name="appbasetheme" parent="theme.appcompat.light.darkactionbar"> <item name="android:actionbarstyle">@style/liteactionbarstyle</item> <item name="actionbarstyle">@style/liteactionbarstyle</item> </st
Read more

javascript - storing input from prompt in array and displaying the array -

i want take the inputs user prompt, store input in array, , display it. want take 10 inputs user using for loop. have tried do-while shown below. var givennames = new array(); var pattern = /[\w\d]{1,}/ig; do{ var name = prompt("enter names. letters , digits accepted!\nentering empty field stops asking",""); if(name && name.match(pattern)){givennames.push(name);} } while(name != ""); function displaynames(){ if(givennames.length > 0){ document.getelementbyid("list").innerhtml = "<span style='color:navy;font- weight:bold;'>given names are:<\/span><br><br>" + givennames.join("<br><br>"); } else { document.getelementbyid("list").innerhtml = "<span style='color:navy;font-weight:bold;'>nothing has been given!<\/span>"; } } how replace for loop? var givennames = new array();
Read more