excel - Return on Textbox1 value based upon two criterias in combobox and label -

-

hope u're well. need expert after trying lot without sucess, please.

i have price list in sheet1 3 columns:

medical procedure
type
value of procedure

in userform, need return in textbox1 value of procedure based on criteria selected in combobox1 (with values can found in medical procedure column in sheet1) , caption in label1 (wich alrealdy populated value can encounter in type column in sheet1).

i tried found here in stackoverflow user b hart (thanks, b hart!), wasn't able change return in textbox numerical value (this vba insert found value in listbox instead). issue criteria below in 2 combobox. need 2 criterias in combobox , in label. 

private sub getcondstrandvalue() dim irow long dim strvalue string  strvalue = vbnullstring if me.combobox1.value = vbnullstring or me.combobox2.value = vbnullstring exit sub  planilha1     irow = 2 .range("a65536").end(xlup).row         if strcomp(.cells(irow, 1).value, me.combobox1.value, 1) = 0 , _          strcomp(.cells(irow, 2).value, me.combobox2.value, 1) = 0             strvalue = .cells(irow, 3).value             exit         end if     next end  if strvalue = vbnullstring exit sub me.listbox1     'if want single value in listbox un-comment .clear line     'otherwise, values continue added     '.clear     .additem strvalue     .value = strvalue     .setfocus end end sub

maybe this:

private sub combobox1_change()      dim lastrow integer      lastrow = cells(rows.count, 1).end(xlup).row      me          r = 2 lastrow              if sheets("sheet1").cells(r, 1) = .combobox1.value , sheets("sheet1").cells(r, 2) = .label1.caption                 .textbox1.text = sheets("sheet1").cells(r, 3)                 exit             end if          next      end  end sub

Comments

Post a Comment

Popular posts from this blog

Django REST Framework perform_create: You cannot call `.save()` after accessing `serializer.data` -

-
i have following viewset: class artistprofileviewset(viewsets.modelviewset): queryset = artistprofile.objects.all() serializer_class = artistprofileserializer def perform_create(self, serializer): if serializer.is_valid(): serializer.save() with following serializers: class simpleartisttrackserializer(serializers.hyperlinkedmodelserializer): class meta: model = artisttrack fields = (...my fields...) class artistprofileserializer(serializers.hyperlinkedmodelserializer): owners = userserializer(many=true, required=false) tracks = simpleartisttrackserializer(many=true, required=false) class meta: model = artistprofile fields = (...my fields...) i getting following error: assertionerror: cannot call `.save()` after accessing `serializer.data`.if need access data before committing database inspect 'serializer.validated_data' instead. i don't see editing serializer.data object. th...
Read more

Why does Go error when trying to marshal this JSON? -

-
i'm trying rather simple example of trying decode json file structs using golang. however, when attempting error that json: cannot unmarshal object go value of type []main.track which don't understand. here's code in question, , json can found here . package main import ( "encoding/json" "fmt" "net/http" "os" ) // tracks group of track types type tracks struct { tracks []track } // track represents singular track type track struct { name string url string artist artist } // artist represents single artist type artist struct { name string mbid string url string } func main() { url := "http://ws.audioscrobbler.com/2.0/?method=geo.gettoptracks&api_key=c1572082105bd40d247836b5c1819623&format=json&country=netherlands" response, err := http.get(url) if err != nil { fmt.printf("%s\n", err) os.exit(1) } de...
Read more