how to copy all of table information with dynamic vba cells in excel -

-

i have table in sheet shown below

enter image description here

also have vba codes in optionbuttons. codes optionbuttons looks this:

private sub optionbutton11_click()     worksheets("sheet1").activate     range("$j$6").activate     activecell.formular1c1 = "=rc[-5]*4"     activecell.offset(5, 0).select      activecell.select     activecell.formular1c1 = "=sum(r[-7]c:r[-1]c)" end sub

and this: 

private sub     worksheets("sheet1").activate     range("$j$8").activate     activecell.formular1c1 = "=rc[-5]*2"     activecell.offset(3, 0).select      activecell.select     activecell.formular1c1 = "=sum(r[-7]c:r[-1]c)" end sub

i have 45 such tables on same sheet , not want code every radio button. code works 1st table how can copy rest?

i wanna sheet in attachment

enter image description here

  1. you have first understand pattern followed code. if can identify pattern have use code buttons.

  2. also instead of using activex option button, use form control option button. reason can tie option buttons same code using assign macro

  3. the next trick use name option button in sequence can use number (for ex: 1 "option button 1") our calculations

here basic example on how use multiple buttons achieve same functionality

let's our worksheet looks this. want whichever button choose cell j in respective row should have value.

enter image description here

put code in module. next in each option button, right click , click on assign macro. choose common code wrote. in example choose sample.

notice how use application.caller name of option button achieve want.

sub sample()     dim long      = val(trim(replace(application.caller, "option button", "")))      sheet1.range("j" & + 1).value = "blah blah blah" end sub

enter image description here

enter image description here

in case code can written this. have identify pattern , amend below code accordingly.

sub sample()     dim long     dim multiplier long      = val(trim(replace(application.caller, "option button", "")))      multiplier = + 3      sheet1.range("j" & + 5)         .formular1c1 = "=rc[-5]" & "*" & multiplier         .offset(i + 5, 0).formular1c1 = "=sum(r[-7]c:r[-1]c)"     end end sub

note: above can achieved activex controls have work array controls shown in vba – control arrays


Comments

Post a Comment

Popular posts from this blog

Spring Boot + JPA + Hibernate: Unable to locate persister -

-
i trying work entity inside request method of spring boot application. entity in project , pom.xml has dependencies it. why error message?: org.hibernate.unknownentitytypeexception: unable locate persister: com.ric.bill.model.bs.par package com.ric.web; import java.util.concurrent.atomic.atomiclong; import javax.persistence.entitymanager; import javax.persistence.persistencecontext; import net.sf.ehcache.cachemanager; import net.sf.ehcache.management.cache; import net.sf.ehcache.management.cachestatistics; import org.hibernate.stat.statistics; import org.springframework.beans.factory.annotation.autowired; import org.springframework.boot.autoconfigure.domain.entityscan; import org.springframework.cache.annotation.enablecaching; import org.springframework.transaction.annotation.enabletransactionmanagement; import org.springframework.transaction.annotation.propagation; import org.springframework.transaction.annotation.transactional; import org.springframework.web.bind.annotati...
Read more

go - Golang: panic: runtime error: invalid memory address or nil pointer dereference using bufio.Scanner -

-
i implementing go program uses bufio.scanner , bufio.writer have packaged code follows package main import ( "fmt" "player/command" "strings" ) func main() { //enter code here. read input stdin. print output stdout commands.scanner.scan() { //scan new line , send comand variable check command exist or not input := strings.split(strings.trim(commands.scanner.text(), " "), " ") command := input[0] if command == "" { fmt.printf("$ %s:", commands.pwd) continue } if !commands.commands[command] { commands.throwerror("cannot recognize input.") } else { commands.execute(command, input[1:], nil) } fmt.printf("$ %s:", commands.pwd) } } i using init.go file in main package follows package main import ( "flag" "player/sourc...
Read more

c - double free or corruption (fasttop) -

-
this code reads null terminated string file (file containing null terminated strings & should provide index wanted string). error: *** error in `./main': double free or corruption (fasttop): 0x090a4a80 *** aborted code: char *tmp_realloc=null; char *sstring=null; int i=1; /*set file pointer point string*/ fseek(fh,index,seek_set); sstring=(char*)malloc(sizeof(char)); if(sstring == null) return null; tmp_realloc=sstring; while( (*(sstring+i-1)=(char)fgetc((file*)fh)) != 0x0 ) { /*reallocate more memory*/ tmp_realloc=(char*)realloc((char*)sstring,++i); /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strcpy((char*)tmp_realloc,(char*)sstring); free(sstring); sstring=tmp_realloc; } } could tell me pointer causing issue (& reason) ? remove part /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strc...
Read more