Hi All,
I have truly searched basically everwhere I could. My userform has about 133 Combo and Textboxes, some of them take data to the worksheet, and the other retrieve data from the worksheet. I have one Textbox (PBUT101) that returns data from the worksheet, but I have tried everything to get it to display the value as eg 23.45 %, I keep on getting a string value.
As soon as I change the code to Dec or Dbl from Str I get a Run-time error '13' - Type mismatch. I really do not know what to change anymore.
just that one TextBox that needs to display correctly
Code
Option Explicit
Private Sub RESULTS_Click()
Dim Ques As Worksheet
Set Ques = ThisWorkbook.Sheets("Questionare")
Ques.Range("D15").Value = Me.cbb_supplierassessed
Ques.Range("D16").Value = Me.tb_vendorno
Ques.Range("D20").Value = Me.cbb_ass_type
Ques.Range("D21").Value = Me.cbb_lead_ass
Ques.Range("D22").Value = Me.cbb_sec_ass
Ques.Range("D23").Value = Me.tb_assessmentdate
Ques.Range("D24").Value = Me.tb_scope_of_work
Ques.Range("D25").Value = Me.tb_vendorno2
Ques.Range("D26").Value = Me.tb_vendor_contact
Ques.Range("D27").Value = Me.tb_designation
Ques.Range("D28").Value = Me.tb_address
Ques.Range("D29").Value = Me.tb_telephone
Ques.Range("D30").Value = Me.tb_fax
Ques.Range("D31").Value = Me.tb_email
Ques.Range("E34").Value = Me.tb_bee_expiry
Ques.Range("E35").Value = Me.tb_compensation_expiry
Ques.Range("E36").Value = Me.PE36
Ques.Range("E37").Value = Me.tb_tax_expiry
Ques.Range("E38").Value = Me.PE38
Ques.Range("E39").Value = Me.PE39
Ques.Range("E40").Value = Me.PE40
Ques.Range("L50").Value = Me.tb_corebusiness
Ques.Range("D45").Value = Me.tb_yearsinoperation
Ques.Range("L51").Value = Me.tb_yearsinoperation
'DATA ENTRY FOR ORGANISATION
Ques.Range("L50").Value = Me.PM50
Ques.Range("L51").Value = Me.PM51
Ques.Range("L52").Value = Me.PM52
Ques.Range("L53").Value = Me.PM53
Ques.Range("L54").Value = Me.PM54
Ques.Range("L55").Value = Me.PM55
Ques.Range("L56").Value = Me.PM56
Ques.Range("H50").Value = Me.PH50.Text
Ques.Range("H51").Value = Me.PH51.Text
Ques.Range("H52").Value = Me.PH52.Text
Ques.Range("H53").Value = Me.PH53.Text
Ques.Range("H54").Value = Me.PH54.Text
Ques.Range("H55").Value = Me.PH55.Text
Ques.Range("H56").Value = Me.PH56.Text
'DATA ENTRY FOR FINANCIAL/COST
Ques.Range("L59").Value = Me.PL59
Ques.Range("L60").Value = Me.PL60
Ques.Range("L61").Value = Me.PL61
Ques.Range("L62").Value = Me.PL62
Ques.Range("L63").Value = Me.PL63
Ques.Range("L64").Value = Me.PL64
Ques.Range("L65").Value = Me.PL65
Ques.Range("H59").Value = Me.PH59.Text
Ques.Range("H60").Value = Me.PH60.Text
Ques.Range("H61").Value = Me.PH61.Text
Ques.Range("H62").Value = Me.PH62.Text
Ques.Range("H63").Value = Me.PH63.Text
Ques.Range("H64").Value = Me.PH64.Text
Ques.Range("H65").Value = Me.PH65.Text
'DATA ENTRY FOR HUMAN RESOURCES
Ques.Range("L68").Value = Me.PL68
Ques.Range("L69").Value = Me.PL69
Ques.Range("L70").Value = Me.PL70
Ques.Range("L71").Value = Me.PL71
Ques.Range("L72").Value = Me.PL72
Ques.Range("L73").Value = Me.PL73
Ques.Range("L74").Value = Me.PL74
Ques.Range("H68").Value = Me.PH68.Text
Ques.Range("H69").Value = Me.PH69.Text
Ques.Range("H70").Value = Me.PH70.Text
Ques.Range("H71").Value = Me.PH71.Text
Ques.Range("H72").Value = Me.PH72.Text
Ques.Range("H73").Value = Me.PH73.Text
Ques.Range("H74").Value = Me.PH74.Text
'DATA ENTRY FOR DOCUMENT CONTROL
Ques.Range("L78").Value = Me.PL78
Ques.Range("L79").Value = Me.PL79
Ques.Range("L80").Value = Me.PL80
Ques.Range("L81").Value = Me.PL81
Ques.Range("L82").Value = Me.PL82
Ques.Range("H78").Value = Me.PH78.Text
Ques.Range("H79").Value = Me.PH79.Text
Ques.Range("H80").Value = Me.PH80.Text
Ques.Range("H81").Value = Me.PH81.Text
Ques.Range("H82").Value = Me.PH82.Text
'DATA ENTRY FOR CAPACITY vs. CAPABILITY OF SUPPLY/SERVICE
Ques.Range("L85").Value = Me.PL85
Ques.Range("L86").Value = Me.PL86
Ques.Range("L87").Value = Me.PL87
Ques.Range("L88").Value = Me.PL88
Ques.Range("L89").Value = Me.PL89
Ques.Range("L90").Value = Me.PL90
Ques.Range("H85").Value = Me.PH85.Text
Ques.Range("H86").Value = Me.PH86.Text
Ques.Range("H87").Value = Me.PH87.Text
Ques.Range("H88").Value = Me.PH88.Text
Ques.Range("H89").Value = Me.PH89.Text
Ques.Range("H90").Value = Me.PH90.Text
'DATA ENTRY FOR PROCURE,MATERIALS AND INVENTORY MANAGMENT
Ques.Range("L94").Value = Me.PL94
Ques.Range("L95").Value = Me.PL95
Ques.Range("L96").Value = Me.PL96
Ques.Range("L97").Value = Me.PL97
Ques.Range("L98").Value = Me.PL98
Ques.Range("H94").Value = Me.PH94.Text
Ques.Range("H95").Value = Me.PH95.Text
Ques.Range("H96").Value = Me.PH96.Text
Ques.Range("H97").Value = Me.PH97.Text
Ques.Range("H98").Value = Me.PH98.Text
'DATA ENTRY FOR TRANSPORT AND LOGISTICAL SUPPORT
Ques.Range("L101").Value = Me.PL101
Ques.Range("L102").Value = Me.PL102
Ques.Range("L103").Value = Me.PL103
Ques.Range("L104").Value = Me.PL104
Ques.Range("L105").Value = Me.PL105
Ques.Range("H101").Value = Me.PH101.Text
Ques.Range("H102").Value = Me.PH102.Text
Ques.Range("H103").Value = Me.PH103.Text
Ques.Range("H104").Value = Me.PH104.Text
Ques.Range("H105").Value = Me.PH105.Text
'DATA ENTRY FOR TECH, RESEARCH AND DEVELOPMENT
Ques.Range("L108").Value = Me.PL108
Ques.Range("L109").Value = Me.PL109
Ques.Range("L110").Value = Me.PL110
Ques.Range("L111").Value = Me.PL111
Ques.Range("L112").Value = Me.PL112
Ques.Range("H108").Value = Me.PH108.Text
Ques.Range("H109").Value = Me.PH109.Text
Ques.Range("H110").Value = Me.PH110.Text
Ques.Range("H111").Value = Me.PH111.Text
Ques.Range("H112").Value = Me.PH112.Text
'DATA ENTRY FOR SERVICE AND/OR MARKETING
Ques.Range("L115").Value = Me.PL115
Ques.Range("L116").Value = Me.PL116
Ques.Range("L117").Value = Me.PL117
Ques.Range("H115").Value = Me.PH115.Text
Ques.Range("H116").Value = Me.PH116.Text
Ques.Range("H117").Value = Me.PH117.Text
'DATA ENTRY FOR QUALITY
Ques.Range("L120").Value = Me.PL120
Ques.Range("L121").Value = Me.PL121
Ques.Range("L122").Value = Me.PL122
Ques.Range("L123").Value = Me.PL123
Ques.Range("L124").Value = Me.PL124
Ques.Range("L125").Value = Me.PL125
Ques.Range("L126").Value = Me.PL126
Ques.Range("L127").Value = Me.PL127
Ques.Range("L128").Value = Me.PL128
Ques.Range("L129").Value = Me.PL129
Ques.Range("L130").Value = Me.PL130
Ques.Range("L131").Value = Me.PL131
Ques.Range("L132").Value = Me.PL132
Ques.Range("L133").Value = Me.PL133
Ques.Range("H120").Value = Me.PH120.Text
Ques.Range("H121").Value = Me.PH121.Text
Ques.Range("H122").Value = Me.PH122.Text
Ques.Range("H123").Value = Me.PH123.Text
Ques.Range("H124").Value = Me.PH124.Text
Ques.Range("H125").Value = Me.PH125.Text
Ques.Range("H126").Value = Me.PH126.Text
Ques.Range("H127").Value = Me.PH127.Text
Ques.Range("H128").Value = Me.PH128.Text
Ques.Range("H129").Value = Me.PH129.Text
Ques.Range("H130").Value = Me.PH130.Text
Ques.Range("H131").Value = Me.PH131.Text
Ques.Range("H132").Value = Me.PH132.Text
Ques.Range("H133").Value = Me.PH133.Text
Ques.Range("K136").Value = Me.PK136.Text
Ques.Range("L136").Value = Me.tb_otherriskfactors
Me.PK57.Value = CStr(Ques.Range("K57").Value)
Me.PK66.Value = CStr(Ques.Range("K66").Value)
Me.PK76.Value = CStr(Ques.Range("K76").Value)
Me.PK83.Value = CStr(Ques.Range("K83").Value)
Me.PK91.Value = CStr(Ques.Range("K91").Value)
Me.PK106.Value = CStr(Ques.Range("K106").Value)
Me.PK113.Value = CStr(Ques.Range("K113").Value)
Me.PK118.Value = CStr(Ques.Range("K118").Value)
Me.PK134.Value = CStr(Ques.Range("K134").Value)
'This Textbox should display as decimal and not string
Me.PBUT101.Value = CStr(Ques.Range("L151").Value * 100 & "%")
Me.tb_leveldescription.Text = CStr(Ques.Range("E17").Value)
Me.tb_levelidentified.Value = CStr(Ques.Range("J17").Value)
Dim file As Worksheet
Set file = ThisWorkbook.Sheets("File")
file.Range("B4").Value = Me.PBB4
file.Range("B5").Value = Me.PBB5
file.Range("B6").Value = Me.PBB6
file.Range("B7").Value = Me.PBB7
file.Range("B8").Value = Me.PBB8
file.Range("B9").Value = Me.PBB9
file.Range("B10").Value = Me.PBB10
file.Range("B11").Value = Me.PBB11
file.Range("B12").Value = Me.PBB12
file.Range("B13").Value = Me.PBB13
file.Range("B14").Value = Me.PBB14
file.Range("D4").Value = Me.PDD4
file.Range("B17").Value = Me.PBB17
file.Range("B18").Value = Me.PBB18
file.Range("B19").Value = Me.PBB19
file.Range("B20").Value = Me.PBB20
file.Range("B21").Value = Me.PBB21
file.Range("B22").Value = Me.PBB22
file.Range("D17").Value = Me.PDD17
file.Range("B25").Value = Me.PBB25
file.Range("B26").Value = Me.PBB26
file.Range("B27").Value = Me.PBB27
file.Range("B28").Value = Me.PBB28
file.Range("B29").Value = Me.PBB29
file.Range("D25").Value = Me.PDD25
file.Range("B32").Value = Me.PBB32
file.Range("B33").Value = Me.PBB33
file.Range("B34").Value = Me.PBB34
file.Range("B35").Value = Me.PBB35
file.Range("B36").Value = Me.PBB36
file.Range("D32").Value = Me.PDD32
file.Range("B39").Value = Me.PBB39
file.Range("B40").Value = Me.PBB40
file.Range("D39").Value = Me.PDD39
file.Range("B43").Value = Me.PBB43
file.Range("B44").Value = Me.PBB44
file.Range("D43").Value = Me.PDD43
file.Range("B47").Value = Me.PBB47
file.Range("B48").Value = Me.PBB48
file.Range("B49").Value = Me.PBB49
file.Range("D47").Value = Me.PDD47
file.Range("B52").Value = Me.PBB52
file.Range("B53").Value = Me.PBB53
file.Range("B54").Value = Me.PBB54
file.Range("B55").Value = Me.PBB55
file.Range("D52").Value = Me.PDD52
file.Range("B58").Value = Me.PBB58
file.Range("B59").Value = Me.PBB59
file.Range("D58").Value = Me.PDD58
file.Range("B62").Value = Me.PBB62
file.Range("B63").Value = Me.PBB63
file.Range("D62").Value = Me.PDD62
file.Range("B66").Value = Me.PBB66
file.Range("B67").Value = Me.PBB67
file.Range("D66").Value = Me.PDD66
file.Range("B70").Value = Me.PBB70
file.Range("B71").Value = Me.PBB71
file.Range("B72").Value = Me.PBB72
file.Range("D70").Value = Me.PDD70
End Sub
Display More