excel vba - Copying cell with VBA using If statement -


i'm beginner vba , i'm wondering how add if else statement code: want enable copy cells if filled , if not filled msgbox must pop-up

code:

private sub commandbutton3_click()   application.screenupdating = false      dim nextrow range      sheet1.range("f7,f10,f13,f16,f19,f22,f25,f28").copy      sheets("overzicht").select     set nextrow = activesheet.cells(cells.rows.count, 1).end(xlup).offset(1, 0)     nextrow.select     selection.pastespecial (xlvalues), transpose:=true      msgbox "invoer opgeslagen"      application.cutcopymode = false     application.screenupdating = true  end sub

welcome stackoverflow.com

you have wrap copy code block for loop, if-else statement , boolean type variable.

firstly, want iterate on specified range of cells , make sure filled 

 dim allfilled boolean     dim long     = 7 28 step 3         if not isempty(sheet1.range("f" & i))             allfilled = true         else             allfilled = false         end if     next

if can proceed copying-pasting , if not program show message box: not cells filled! cant copy

your complete code:

sub commandbutton3_click()  application.screenupdating = false      dim allfilled boolean     dim long     = 7 28 step 3         if not isempty(sheet1.range("f" & i))             allfilled = true         else             allfilled = false         end if     next      if allfilled ' = if (allfilled = true)         dim nextrow range         sheet1.range("f7,f10,f13,f16,f19,f22,f25,f28").copy          sheets("overzicht").select         set nextrow = activesheet.cells(cells.rows.count, 1).end(xlup). _                        offset(1, 0)         nextrow.select         selection.pastespecial (xlvalues), transpose:=true          msgbox "invoer opgeslagen"          application.cutcopymode = false         application.screenupdating = true     else         msgbox "not cells filled! cant copy"     end if end sub

update, from comments:

yes, it's possible execute different checks individually too, example:

dim allfilled boolean if not isempty(range("f7, f10, f13, f16")) , isempty(range("f8"))     ' f7, f10, f13, f16 not empty , f8 empty     allfilled = true elseif isempty(range("f28"))     ' f28 empty cannot execute copy-paste     allfilled = false else     allfilled = false end if

Comments

Post a Comment

Popular posts from this blog

curl - PHP fsockopen help required -

i trying work on cloudflare api , have found in documentation. unfortunately have no idea how can use in fsockopen or through curl. here example of post request. need know how can make request below data post using curl or fsockopen curl https://www.cloudflare.com/api_json.html -d 'a=cache_lvl' \ -d 'tkn=8afbe6dea02407989af4dd4c97bb6e25' \ -d 'email=sample@example.com' \ -d 'z=example.com' \ -d 'v=agg' here link cloudflare https://www.cloudflare.com/docs/client-api.html#s4.2 try one: $ch = curl_init("https://www.cloudflare.com/api_json.html"); curl_setopt($ch, curlopt_returntransfer,1); curl_setopt($ch, curlopt_followlocation, 1); curl_setopt($ch, curlopt_ssl_verifypeer,false); // handling of -d curl parameter here. $param = array( 'a' => 'cache_lvl', 'tkn' => '8afbe6dea02407989af4dd4c97bb6e25', 'email' => 'sample@example.com', 'z' =...
Read more

HTTP/1.0 407 Proxy Authentication Required PHP -

i working in restricted network/limited access internet. since have use proxy make web service call. here php code calling web service , response . $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host' => $proxy_host, 'proxy_port' => $proxy_port, 'proxy_login' => $proxy_login, 'proxy_password' => $proxy_password)); response is fatal error: uncaught soapfault exception: [wsdl] soap-error: parsing wsdl: couldn't load ' http://www.xyz.com/abc/wsdls/login.wsdl ' : failed load external entity if copy url error message , paste in browser(with same proxy settings) works. 2nd scenario is, if pass values instead of variables giving me diffarant response $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host' ...
Read more

c# - Resource not found error -

i have problem accessing method on homecontroller. show code of method : [httpget] public actionresult decriptidentifiantetredirige(string login_crypter, string mdp_crypter) { string loginacrypter = _globalmanager.protegemotdepasse(login_crypter); string mdpacrypter = _globalmanager.protegemotdepasse(mdp_crypter); user userapp = new models.user(login_crypter, mdp_crypter); if (userapp.authentificationvalidee(userapp.userlogin, userapp.password)) { session["name"] = userapp.userlogin; return redirecttoaction("accueil", "home"); } else { return redirecttoaction("validerauthentification", "home"); } } then in routeconfig.cs wrote route : routes.maproute( name: "authentificationapresdecryptage", url: "{controller}/{action}/{login_crypter}/{mdp_crypter}", defaults: new...
Read more