excel - calculating loop didn't work vba -


i trying calculate range m13:m22 using conditional values , looping, of code works in cell m13 , doesn't loop cell m22. how solve problem?

here code:

private sub commandbutton1_click()      dim pelanggan range, alamat range, diskon range, jdiskon range, tanggal range, jtempo range     dim rout(1 10) variant, long     dim path string      path = "\\faizal\data d faizal\daftar harga\price list"     filename = dir(path & "database.xlsx")      set pelanggan = range("e7")     set alamat = range("e8")     set diskon = range("l25")     set tanggal = range("l7")     set jdiskon = range("p13")     set jtempo = range("k30")      getalamat = application.worksheetfunction.vlookup(pelanggan & range("j7"), workbooks("database.xlsx").worksheets("db").range("a6:n1350"), 14, false)     getdiskon = application.worksheetfunction.vlookup(pelanggan & range("j7"), workbooks("database.xlsx").worksheets("db").range("a6:n1350"), 6, false)     getjdiskon = application.worksheetfunction.vlookup(pelanggan & range("j7"), workbooks("database.xlsx").worksheets("db").range("a6:n1350"), 11, false)     getjtempo = application.worksheetfunction.vlookup(pelanggan & range("j7"), workbooks("database.xlsx").worksheets("db").range("a6:n1350"), 13, false)      alamat.value = getalamat     diskon.value = getdiskon / 100     jdiskon.value = getjdiskon     tanggal.value = datevalue(now)     jtempo.value = getjtempo     'here calculation won't go loop     = 13 22         getharga = application.worksheetfunction.vlookup(range("d" & i) & range("e" & i), workbooks("database.xlsx").worksheets("gold").range("e4:h80"), 4, false)         if jdiskon = "nett"             range("m" & i).value = getharga - (getharga * diskon)             range("l25").clearcontents         elseif jdiskon = "pot"             range("m" & i).value = getharga             range("l25").value = diskon         elseif jdiskon = "diskon kitir"             range("m" & i).value = getharga             range("l25").clearcontents         end if      next  end sub

your question: "... code works in cell m13 , doesn't loop cell m22. how solve problem?"

your loop ok, not problem have solve. have debug find causes of loop not performing actions mean to.

i posting below modified code, 2 features: 1) qualifies ranges, avoid unexpected errors, may want check this; 2) uses msgboxes, 1 way of debugging.

this pinpoint "error".

private sub commandbutton1_click()      dim pelanggan range, alamat range, diskon range, jdiskon range, tanggal range, jtempo range     dim rout(1 10) variant, long     dim path string      path = "\\faizal\data d faizal\daftar harga\price list"     filename = dir(path & "database.xlsx")      dim wb workbook, ws1 worksheet, ws2 worksheet, rng1 range     set wb = workbooks("database.xlsx")     set ws1 = wb.worksheets("db")     set ws2 = wb.worksheets("gold")     set rng1 = ws.range("a6:n1350")      set pelanggan = ws1.range("e7")     set alamat = ws1.range("e8")     set diskon = ws1.range("l25")     set tanggal = ws1.range("l7")     set jdiskon = ws1.range("p13")     set jtempo = ws1.range("k30")      dim rng2 range     set rng2 = ws1.range(pelanggan.value & ws1.range("j7").value)      getalamat = application.worksheetfunction.vlookup(rng2, rng1, 14, false)     getdiskon = application.worksheetfunction.vlookup(rng2, rng1, 6, false)     getjdiskon = application.worksheetfunction.vlookup(rng2, rng1, 11, false)     getjtempo = application.worksheetfunction.vlookup(rng2, rng1, 13, false)      alamat.value = getalamat     diskon.value = getdiskon / 100     jdiskon.value = getjdiskon     tanggal.value = datevalue(now)     jtempo.value = getjtempo     'here calculation won't go loop     = 13 22         dim rng3 range         set rng3 = ws1.range(ws1.range("d" & i).value & ws1.range("e" & i).value)         getharga = application.worksheetfunction.vlookup(rng3, ws2.range("e4:h80"), 4, false)         msgbox "getharga = " & getharga & " = " &         if jdiskon = "nett"             ws1.range("m" & i).value = getharga - (getharga * diskon)             ws1.range("l25").clearcontents         elseif jdiskon = "pot"             ws1.range("m" & i).value = getharga             ws1.range("l25").value = diskon         elseif jdiskon = "diskon kitir"             ws1.range("m" & i).value = getharga             ws1.range("l25").clearcontents         else             msgbox "jdiskon = " & jdiskon & " = " &         end if     next  end sub

(ps: not have system excel, code may need little adjustments).


Comments

Post a Comment

Popular posts from this blog

angularjs - ADAL JS Angular- WebAPI add a new role claim to the token -

i have created angular spa webapi backend using adal js authentication.as there no roles in ad, need manually add role claims in order give users access different api controllers. the roles stored in database. expecting inject claim through call webapi after authentication ad. webapi code might this. identity.addclaim(new claim("role", "user")); var ticket = new authenticationticket(identity, props); var accesstoken = startup.oauthbeareroptions.accesstokenformat.protect(ticket); is possible replace adal idtoken new token? is viable solution or there other better way handle this? as initial token generated azuread, possible edit token add new claim? appreciated. graph api supporting group claims. see here: http://justazure.com/azure-active-directory-part-4-group-claims/ if @ examples on page, users assigned groups , app can check group in claims. in current version of portal, need app manifest , modify it.
Read more

node.js - Using Node without global install -

i'm working on few node & electron (atom shell) projects , i'm curious how them work without user having install node globally. i've seen few applications including node directory in project contains node.exe binary. how go setting node project use binary? edit: thought should add, i've searched everywhere answer this, unrelated results.
Read more

php - CakePHP HttpSockets send array of paramms -

i problem when make request (i can request). $link = 'http://uri/path/?param1=1&sid=2&sid=3&sid=4' $http = $httpsocket = new httpsocket(); $res = $httpsocket->get($link); if check request pr($http); i see : [line] => /url/path/?param1=1&sid%5b0%5d=2&sid%5b1%5d=3&sid%5b2%5d=4 http/1.1 and i'm getting empty response because server doesn't know parameters sid%5b0%5d=2 when try send parameters array : $data = array('param1' => '1', 'sid' => array('2','3', '4')); i see same changes %5b0%5d - additional indexes. how fix it? unfortunately , can not change server side, if send request in browser, i'll normal response in json format. when make request, can parameters this: $param1 = $_get['param1']; $sid= $_get['sid']; tip: use diferente names parameters. have multiples sid. use sid1, sid2, sid3... update: can parameters this:...
Read more