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

Popular posts from this blog

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

sql - MySQL query optimization using coalesce -

unity3d - Unity local avoidance in user created world -