excel - Why does `Empty` not work in this VBA code? -

-

the code below supposed check if cell empty and, if empty, paste contents of b26 cell. if cell not empty, moves on check cell below it. tried using isempty didn't work, figured excel defaulting empty cells 0. tried using empty(as shown in code below) doesn't work either. 

sub part1_component_1_foam_color() ' ' transfers component 1 data if foam or color '  ' windows("transfer template.xlsm").activate range("b26").select selection.copy windows("protected_jd_form.xls").activate     if range("b27:c27") = empty         range("b27:c27").select         selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _             xlnone, skipblanks:=false, transpose:=false             exit sub     elseif range("b28:c28") = empty         range("b28:c28").select         selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _             xlnone, skipblanks:=false, transpose:=false             exit sub     elseif range("b29:c29") = empty         range("b29:c29").select         selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _             xlnone, skipblanks:=false, transpose:=false             exit sub     elseif range("b30:c30") = empty         range("b30:c30").select         selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _             xlnone, skipblanks:=false, transpose:=false             exit sub     end if windows("transfer template.xlsm").activate range("a1").select end sub

you can use

if application.worksheetfunction.counta(range("b27:c27")) = 0

instead of

if range("b27:c27") = empty

by way, there no need select range before pasting data.

this code

    range("b27:c27").select     selection.pastespecial paste:=xlpastevaluesandnumberformats, operation:= _         xlnone, skipblanks:=false, transpose:=false

can replaced with

    range("b27:c27").pastespecial paste:=xlpastevaluesandnumberformats, operation:= _         xlnone, skipblanks:=false, transpose:=false

Comments

Post a Comment

Popular posts from this blog

Fail to load namespace Spring Security http://www.springframework.org/security/tags -

-
i have problem namespace of spring security on xhtml page. don't understand why can't load uri, , have following issue: whitelabel error page application has no explicit mapping /error, seeing fallback. tue jul 21 16:58:12 utc 2015 there unexpected error (type=not found, status=404). please need help! possible uri has been changed? best regards you using incorrect namespace url. correct url http://www.springframework.org/schema/security the error page seeing spring source website since not recognize url. try visiting http://www.springsource.org/security/tags in browser update : spring security tags used in jsp page correct tag lib declaration is: <%@ taglib prefix="sec" uri="http://www.springframework.org/security/tags" %>
Read more

Maven Javadoc 'Cannot find default setter' and fails -

-
i'm trying generate javadocs maven project, , i'm running error every time. unable parse configuration of mojo org.apache.maven.plugins:maven-javadoc-plugin:2.10.3:javadoc parameter #: cannot find default setter in class org.apache.maven.plugin.javadoc.options.group . command i'm using mvn javadoc:javadoc root directory, pom is. i don't have groups configured @ all, or have special configuration @ all. same error whether omit plugin in pom completely, add reporting, or add build plugin. i've tried adding empty groups well, , while message changes somewhat, still appears. i ran across this question , a. don't have testng dependencies, b. i'm not using command line parameters, , c. never resolved. it selenium project, suppose there similar, can't figure out. ideas? i've included maven debug stack trace below. [error] failed execute goal org.apache.maven.plugins:maven-javadoc-plugin:2.10.3:javadoc (default-cli) on project selenium: un...
Read more

sql - MySQL query optimization using coalesce -

-
can explain me why second query faster first? (first 1 takes around 40 seconds, second 1 less 0.1) select releases.feature_code, releases.platform_id, version, release_date, general_available, uri, filesize, display_name, feature_name.full_name, if ((select exists(select 1 release_exceptions releases.feature_code = release_exceptions.feature_code , releases.platform_id = release_exceptions.platform_id , releases.version = release_exceptions.version) = 1), 1, 0) release_exceptions releases left outer join platform using(platform_id) left outer join feature_name using(feature_code) order version desc; ~~~ query 2 ------------------ ~~~ select feature_code, version, release_date, general_available, platform_id, uri, filesize, display_name, feature_name.full_name, coalesce(release_exceptions, 0) release_exceptions mus.releases left outer join ( select distinct feature_code, version, platform_id, 1 release_exceptions mus.release_exceptions ) release_exceptions using ...
Read more