Here is the macro attached to the command button that populates the
comboboxes:
Private Sub CommandButton3_Click()
Sheet2.Include1.Value = False
Sheet2.Include2.Value = False
Sheet2.Include3.Value = False
Sheet2.Include4.Value = False
Sheet2.Include5.Value = False
Sheet2.Include6.Value = False
Sheet2.Att1_1.Clear
Sheet2.Att1_2.Clear
Sheet2.Att1_3.Clear
Sheet2.Att1_4.Clear
Sheet2.Att1_5.Clear
Sheet2.Att1_6.Clear
Sheet2.att2_1.Clear
Sheet2.att2_2.Clear
Sheet2.att2_3.Clear
Sheet2.att2_4.Clear
Sheet2.att2_5.Clear
Sheet2.att2_6.Clear
Sheet2.att3_1.Clear
Sheet2.att3_2.Clear
Sheet2.att3_3.Clear
Sheet2.att3_4.Clear
Sheet2.att3_5.Clear
Sheet2.att3_6.Clear
Sheet2.att4_1.Clear
Sheet2.att4_2.Clear
Sheet2.att4_3.Clear
Sheet2.att4_4.Clear
Sheet2.att4_5.Clear
Sheet2.att4_6.Clear
Sheet2.Att1_1.Value = ""
Sheet2.Att1_2.Value = ""
Sheet2.Att1_3.Value = ""
Sheet2.Att1_4.Value = ""
Sheet2.Att1_5.Value = ""
Sheet2.Att1_6.Value = ""
Sheet2.att2_1.Value = ""
Sheet2.att2_2.Value = ""
Sheet2.att2_3.Value = ""
Sheet2.att2_4.Value = ""
Sheet2.att2_5.Value = ""
Sheet2.att2_6.Value = ""
Sheet2.att3_1.Value = ""
Sheet2.att3_2.Value = ""
Sheet2.att3_3.Value = ""
Sheet2.att3_4.Value = ""
Sheet2.att3_5.Value = ""
Sheet2.att3_6.Value = ""
Sheet2.att4_1.Value = ""
Sheet2.att4_2.Value = ""
Sheet2.att4_3.Value = ""
Sheet2.att4_4.Value = ""
Sheet2.att4_5.Value = ""
Sheet2.att4_6.Value = ""
Dim a As Variant
Dim b As Variant
Dim c As Variant
Dim d As Variant
Dim e As Variant
Dim f As Variant
Dim g As Variant
Dim h As Variant
Dim i As Variant
Dim j As Variant
Dim k As Variant
Dim l As Variant
Dim m As Variant
Dim n As Variant
Dim o As Variant
Dim p As Variant
Dim q As Variant
Dim r As Variant
Dim s As Variant
Dim t As Variant
Dim u As Variant
Dim v As Variant
Dim w As Variant
Dim x As Variant
a = Range("b11")
b = Range("b12")
c = Range("b13")
d = Range("b14")
e = Range("b15")
f = Range("b16")
g = Range("b20")
h = Range("b21")
i = Range("b22")
j = Range("b23")
k = Range("b24")
l = Range("b25")
m = Range("b29")
n = Range("b30")
o = Range("b31")
p = Range("b32")
q = Range("b33")
r = Range("b34")
s = Range("b38")
t = Range("b39")
u = Range("b40")
v = Range("b41")
w = Range("b42")
x = Range("b43")
Sheet2.Att1_1.AddItem a
Sheet2.Att1_1.AddItem b
Sheet2.Att1_1.AddItem c
Sheet2.Att1_1.AddItem d
Sheet2.Att1_1.AddItem e
Sheet2.Att1_1.AddItem f
Sheet2.att2_1.AddItem g
Sheet2.att2_1.AddItem h
Sheet2.att2_1.AddItem i
Sheet2.att2_1.AddItem j
Sheet2.att2_1.AddItem k
Sheet2.att2_1.AddItem l
Sheet2.att3_1.AddItem m
Sheet2.att3_1.AddItem n
Sheet2.att3_1.AddItem o
Sheet2.att3_1.AddItem p
Sheet2.att3_1.AddItem q
Sheet2.att3_1.AddItem r
Sheet2.att4_1.AddItem s
Sheet2.att4_1.AddItem t
Sheet2.att4_1.AddItem u
Sheet2.att4_1.AddItem v
Sheet2.att4_1.AddItem w
Sheet2.att4_1.AddItem x
Sheet2.Att1_2.AddItem a
Sheet2.Att1_2.AddItem b
Sheet2.Att1_2.AddItem c
Sheet2.Att1_2.AddItem d
Sheet2.Att1_2.AddItem e
Sheet2.Att1_2.AddItem f
Sheet2.att2_2.AddItem g
Sheet2.att2_2.AddItem h
Sheet2.att2_2.AddItem i
Sheet2.att2_2.AddItem j
Sheet2.att2_2.AddItem k
Sheet2.att2_2.AddItem l
Sheet2.att3_2.AddItem m
Sheet2.att3_2.AddItem n
Sheet2.att3_2.AddItem o
Sheet2.att3_2.AddItem p
Sheet2.att3_2.AddItem q
Sheet2.att3_2.AddItem r
Sheet2.att4_2.AddItem s
Sheet2.att4_2.AddItem t
Sheet2.att4_2.AddItem u
Sheet2.att4_2.AddItem v
Sheet2.att4_2.AddItem w
Sheet2.att4_2.AddItem x
Sheet2.Att1_3.AddItem a
Sheet2.Att1_3.AddItem b
Sheet2.Att1_3.AddItem c
Sheet2.Att1_3.AddItem d
Sheet2.Att1_3.AddItem e
Sheet2.Att1_3.AddItem f
Sheet2.att2_3.AddItem g
Sheet2.att2_3.AddItem h
Sheet2.att2_3.AddItem i
Sheet2.att2_3.AddItem j
Sheet2.att2_3.AddItem k
Sheet2.att2_3.AddItem l
Sheet2.att3_3.AddItem m
Sheet2.att3_3.AddItem n
Sheet2.att3_3.AddItem o
Sheet2.att3_3.AddItem p
Sheet2.att3_3.AddItem q
Sheet2.att3_3.AddItem r
Sheet2.att4_3.AddItem s
Sheet2.att4_3.AddItem t
Sheet2.att4_3.AddItem u
Sheet2.att4_3.AddItem v
Sheet2.att4_3.AddItem w
Sheet2.att4_3.AddItem x
Sheet2.Att1_4.AddItem a
Sheet2.Att1_4.AddItem b
Sheet2.Att1_4.AddItem c
Sheet2.Att1_4.AddItem d
Sheet2.Att1_4.AddItem e
Sheet2.Att1_4.AddItem f
Sheet2.att2_4.AddItem g
Sheet2.att2_4.AddItem h
Sheet2.att2_4.AddItem i
Sheet2.att2_4.AddItem j
Sheet2.att2_4.AddItem k
Sheet2.att2_4.AddItem l
Sheet2.att3_4.AddItem m
Sheet2.att3_4.AddItem n
Sheet2.att3_4.AddItem o
Sheet2.att3_4.AddItem p
Sheet2.att3_4.AddItem q
Sheet2.att3_4.AddItem r
Sheet2.att4_4.AddItem s
Sheet2.att4_4.AddItem t
Sheet2.att4_4.AddItem u
Sheet2.att4_4.AddItem v
Sheet2.att4_4.AddItem w
Sheet2.att4_4.AddItem x
Sheet2.Att1_5.AddItem a
Sheet2.Att1_5.AddItem b
Sheet2.Att1_5.AddItem c
Sheet2.Att1_5.AddItem d
Sheet2.Att1_5.AddItem e
Sheet2.Att1_5.AddItem f
Sheet2.att2_5.AddItem g
Sheet2.att2_5.AddItem h
Sheet2.att2_5.AddItem i
Sheet2.att2_5.AddItem j
Sheet2.att2_5.AddItem k
Sheet2.att2_5.AddItem l
Sheet2.att3_5.AddItem m
Sheet2.att3_5.AddItem n
Sheet2.att3_5.AddItem o
Sheet2.att3_5.AddItem p
Sheet2.att3_5.AddItem q
Sheet2.att3_5.AddItem r
Sheet2.att4_5.AddItem s
Sheet2.att4_5.AddItem t
Sheet2.att4_5.AddItem u
Sheet2.att4_5.AddItem v
Sheet2.att4_5.AddItem w
Sheet2.att4_5.AddItem x
Sheet2.Att1_6.AddItem a
Sheet2.Att1_6.AddItem b
Sheet2.Att1_6.AddItem c
Sheet2.Att1_6.AddItem d
Sheet2.Att1_6.AddItem e
Sheet2.Att1_6.AddItem f
Sheet2.att2_6.AddItem g
Sheet2.att2_6.AddItem h
Sheet2.att2_6.AddItem i
Sheet2.att2_6.AddItem j
Sheet2.att2_6.AddItem k
Sheet2.att2_6.AddItem l
Sheet2.att3_6.AddItem m
Sheet2.att3_6.AddItem n
Sheet2.att3_6.AddItem o
Sheet2.att3_6.AddItem p
Sheet2.att3_6.AddItem q
Sheet2.att3_6.AddItem r
Sheet2.att4_6.AddItem s
Sheet2.att4_6.AddItem t
Sheet2.att4_6.AddItem u
Sheet2.att4_6.AddItem v
Sheet2.att4_6.AddItem w
Sheet2.att4_6.AddItem x
Sheet2.segment1.Caption = Range("e37")
Sheet2.segment2.Caption = Range("e38")
Sheet2.segment3.Caption = Range("e39")
End Sub
On Aug 25, 5:21 am, kamal shah <kamal...@gmail.com> wrote:
> Could you paste your Macro Codes here and probably it will be easy to
> identify solution.
> May be your macros are event based.
>
> Kamal
>
> On Mon, Aug 24, 2009 at 5:09 PM, Joseph Choi <jsk.c...@gmail.com> wrote:
> > you may need to save the user input state of your controls (combo box,
> > listbox) and save it on your workbook, into cells. then, at startup (or
> > workbook/sheet load), read these values and reapply them to your controls.
>
> > of course, someone here may have a solution to actually save the form.
>
> > On Mon, Aug 24, 2009 at 8:41 AM, Jene <jene.grandm...@gmail.com> wrote:
>
> >> Hi all, I'm new to your board and hope you might be able to help me
> >> out. I've been searching for an answer to this problem and coming up
> >> empty - maybe I'm not using the correct terms. I have a set of macros
> >> that create combo and list boxes on a worksheet in my workbook. When
> >> you click on a command button it populates all of those boxes based on
> >> cell inputs. If I save the workbook, all of the boxes are still
> >> populated, but when I close and re-open the saved workbook the data
> >> disappear. What am I doing wrong here?
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 5,200 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
