excel vba - VBA - Open form within loop then wait for OK click -


i have script checks new shops in sheet. if finds new shop should open form , prompt user select shop category , click ok. when the user clicks ok value dropdown should selected , form closes , loop continues.

the form calles "shopkat"

this how works:

for = lbound(distshops) ubound(distshops)         if not isempty(distshops(i))             curcell = getrows             curshop = distshops(i)             findout = checkifinsheet(curshop)             if findout = false                  cells(curcell + 1, 1) = curshop                 'show form                 shopkat.show vbmodal                 'shop current shop                 shopkat.shop.caption = curshop                  'get value combo                 cells(curcell + 1, 2) = shopkat.shopkatcombo.value                  'if user click ok continue               end if         end if     next

could help. lot!

//////////////////////////// updated /////////////////////////////// module1:

public curcell long dim ws worksheet

form shopkat:

private sub shopkatok_click()     if not shopkat.shopkatcombo.value = ""         ws.cells(curcell + 1, 2) = shopkat.shopkatcombo.value         unload me     end if end sub

loop sheet(shopcategories)

 set ws = thisworkbook.sheets("shopcategories")      = lbound(distshops) ubound(distshops)         if not isempty(distshops(i))             curcell = getrows()             curshop = distshops(i)             findout = checkifinsheet(curshop)              if findout = false                   shopkat.shop.caption = curshop                  'show form                 shopkat.show                 if not isempty(cells(curcell + 1, 2).value)                     ws.cells(curcell + 1, 1) = curshop                 end if             end if         end if     next

ok this. (untested)

a) insert module , paste these lines

public curcell long dim ws worksheet

b) next in userform's ok button paste code

private sub commandbutton1_click()     ws.cells(curcell + 1, 2) = shopkat.shopkatcombo.value     unload me end sub

c) , lastly amend above code this

sub sample()     '     '~~> rest of code     '      '~~> change applicable     set ws = thisworkbook.sheets("sheet1")      = lbound(distshops) ubound(distshops)         if not isempty(distshops(i))             curcell = getrows             curshop = distshops(i)             findout = checkifinsheet(curshop)              if findout = false                 ws.cells(curcell + 1, 1) = curshop                  shopkat.shop.caption = curshop                  'show form                 shopkat.show '<~~ no need mention vbmodal. default             end if         end if     next      '     '~~> rest of code     ' end sub

Comments

Post a Comment

Popular posts from this blog

image - ClassNotFoundException when add a prebuilt apk into system.img in android -

i'm in trouble add prebuilt apk system.img based taiwan mtk android phone platform, when push apk onto device,after reboot phone,the apk can installed succecessfully,but if add apk alps/out/target/product/$prj/system/app or vendor/mediatek/$prj/artifacts/out/target/product/$prj/system/app ,and produce system.img,the apk can't installed normally,the logcat say: a.lang.runtimeexception: unable instantiate activity componentinfo{com.sec.android.widgetapp.ap.hero.accuweather.widget/com.sec.android.widgetapp.ap.hero.accuweather.widget.weatherclock}: java.lang.classnotfoundexception: com.sec.android.widgetapp.ap.hero.accuweather.widget.weatherclock. can tell me what's problem ? when package manager installs apps part of system partition different installing apps on data partition. looks app using libraries somewhere else. when install on data lib directory created in apps data directory , symlinked /data/app-lib/. when apps installed on system it's expecte...
Read more

I need to import mysql 5.1 to 5.5? -

i have mysql 5.1 database , need import localhost running 5.5. how import 5.5 or downgrade mysql? install phpmyadmin 5.1 os: http://www.wikihow.com/install-phpmyadmin-on-your-windows-pc or https://www.digitalocean.com/community/articles/how-to-install-and-secure-phpmyadmin-on-ubuntu-12-04 then login, click on database, hit export, , export in sql format (quick fine). import .sql file 5.5 server (after installing phpmyadmin) logging in clicking database , hit import. hope helps!
Read more

Java, Hibernate, MySQL - store UTC date-time -

i saw here on few related questions (like this one , of course, this one )... essentially, want store date-time utc, , let application user choose time zone wants display date-time in. since seems date-time fields affected underlying jdbc driver, wonder if acceptable way go storing utc date-time: set both mysql , application server machine utc time zone (no need separate) both mysql , jvm should pick underlying system time settings (if not instructed otherwise) use datetime table columns on mysql side use java.util.date corresponding mapping on hibernate side (i guess java.sql.timestamp used too) let application worry interpreting date-time fields - i.e. let user choose preferred time zone is ok? edit clarify - here meant refer timestamps created strictly on server (e.g.date-time of record creation). application server instantiates date objects (new date() equals current date-time on server, , time zone agnostic). if client user wants supply date searching/filte...
Read more