Hi,
I have the following problem, when I create some dropdown boxes via
VBA then all 99 ones have the some height and length in the excel
sheet. But when I save the file and open it again, then some of the
dropdown boxes are smaller or bigger then before. Has anybody a good
idea? Thank you
Code:
Sub Add_Dropdown()
Left1 = 1
Length1 = 60
Height1 = 15
For i = 2 To 100
Adresse = Cells2Range(i, 1) ' Function Converts Cell to Range Data
Range(Adresse).Select
Top1 = Selection.Top
Set ddBox = ActiveSheet.DropDowns.Add(Left1, Top1, Length1,
Height1)
With ddBox
.ListFillRange = "Data!$A$2:$A$10"
.LinkedCell = Adresse
.DropDownLines = 8
.Display3DShading = False
End With
Next
end sub
Function Cells2Range(Zeile, Spalte)
Spalte = Columns(Spalte).Address(False, False)
Spalte = Left(Spalte, InStr(Spalte, ":") - 1)
Cells2Range = Spalte & Zeile
End Function
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. 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
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,700 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
