excel - How do I Copy/Paste specific cells from other worksheet to current worksheet? -

-

i'm using code take username search of associate info multiple transactions. should paste them current worksheet. seems run, in doesn't throw errors , executes final "select" command, doesn't return pasted data.

option explicit sub investorreport()  dim investorname string dim finalrow integer dim integer 'row counter  sheets("sheet1").range("d6:k50").clearcontents  investorname = sheets("sheet1").range("b3").value finalrow = sheets("investments").range("i1000").end(xlup).row   = 2 finalrow     if sheets("investments").cells(i, 1) = investorname         msgbox ("works")          range(cells(i, 2), cells(i, 12)).copy          sheets("sheet1").range("d100").end(xlup).offset(1, 0).pastespecial         end if next   range("b3").select  end sub

this code reference sheets:

option explicit  sub investorreport()     dim investorname string     dim finalrow long     dim long 'row counter      sheets("sheet001") '<--| refer "sheet1" sheet         .range("d6:k50").clearcontents '<--| every initial "dot" keep referencing object after "with" keyword ("sheet1" sheet, in case)         investorname = .range("b3").value     end      sheets("investments") '<--| refer "investments" sheet         finalrow = .cells(.rows.count, "i").end(xlup).row '<--| .cells , .rows refer "investments" sheet         = 2 finalrow             if .cells(i, 1) = investorname                 .range(.cells(i, 2), .cells(i, 12)).copy '<--| .range , .cells refer "investments" sheet                 sheets("sheet001").range("d100").end(xlup).offset(1, 0).pastespecial '<--| here references explicitly made "sheet1" sheet             end if         next     end      sheets("sheet001").range("b3").select end sub

and here follows code avoid loops , exploiting autofilter:

sub investorreport2()     dim investorname string     dim finalrow long     dim long 'row counter      sheets("sheet001") '<--| refer "sheet1" sheet         .range("d6:k50").clearcontents '<--| every initial "dot" keep referencing object after "with" keyword ("sheet1" sheet, in case)         investorname = .range("b3").value     end      sheets("investments") '<--| refer "investments" sheet         .range("a1", .cells(.rows.count, "l").end(xlup)) '<--| refer "investments" sheet columns fom row 1 (header) down last non empty 1 in column             .autofilter field:=1, criteria1:=investorname '<--| filter data on first column values matching "investorname"             if application.worksheetfunction.subtotal(103, .cells.resize(, 1)) > 1 '<--| if cell has been filtered...                 .offset(1, 1).resize(.rows.count - 1, .columns.count - 1).specialcells(xlcelltypevisible).copy '<--| ... copy filtered cells skipping headers , first column...                 sheets("sheet001").range("d100").end(xlup).offset(1, 0).pastespecial '<--| ...and paste them             end if         end         .autofiltermode = false '<--| .. show rows back...     end      sheets("sheet001").range("b3").select end sub

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