Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
mango
 
Posts: n/a
Default how to make dropdown arrow disappear in vba

dear all, may i know which part to disappear the dropdown arrow after input
the data in the cell?
thanks alot


Option Base 1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Columns("E")) Is Nothing Then
Call AddDropDown(Target)
Cancel = True
End If

End Sub



Sub AddDropDown(Target As Range)
Dim ddBox As DropDown
Dim i As Integer
Dim lookuplist As Variant


lookuplist = Array(Sheet1.Cells.Range("a2:a300"))

With Target
Set ddBox = Sheet4.DropDowns.Add(.Left, .Top, .Width, .Height)
End With

With ddBox
For i = LBound(lookuplist) To UBound(lookuplist)
.AddItem lookuplist(i)

Next i
End With
End Sub


  #2   Report Post  
mango
 
Posts: n/a
Default

dear all,
can anyone give me the advice?
thanks alot


"mango" wrote:

dear all, may i know which part to disappear the dropdown arrow after input
the data in the cell?
thanks alot


Option Base 1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Columns("E")) Is Nothing Then
Call AddDropDown(Target)
Cancel = True
End If

End Sub



Sub AddDropDown(Target As Range)
Dim ddBox As DropDown
Dim i As Integer
Dim lookuplist As Variant


lookuplist = Array(Sheet1.Cells.Range("a2:a300"))

With Target
Set ddBox = Sheet4.DropDowns.Add(.Left, .Top, .Width, .Height)
End With

With ddBox
For i = LBound(lookuplist) To UBound(lookuplist)
.AddItem lookuplist(i)

Next i
End With
End Sub


  #3   Report Post  
Dave Peterson
 
Posts: n/a
Default

You've got lots of replies to your original thread.

mango wrote:

dear all,
can anyone give me the advice?
thanks alot

"mango" wrote:

dear all, may i know which part to disappear the dropdown arrow after input
the data in the cell?
thanks alot


Option Base 1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Not Intersect(Target, Columns("E")) Is Nothing Then
Call AddDropDown(Target)
Cancel = True
End If

End Sub



Sub AddDropDown(Target As Range)
Dim ddBox As DropDown
Dim i As Integer
Dim lookuplist As Variant


lookuplist = Array(Sheet1.Cells.Range("a2:a300"))

With Target
Set ddBox = Sheet4.DropDowns.Add(.Left, .Top, .Width, .Height)
End With

With ddBox
For i = LBound(lookuplist) To UBound(lookuplist)
.AddItem lookuplist(i)

Next i
End With
End Sub



--

Dave Peterson
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I make a 3-dimensional plot in Excel? John W. Mordosky Charts and Charting in Excel 6 April 3rd 23 06:58 PM
how do I make make my hyperlinks show the email address they are . Dustin Excel Discussion (Misc queries) 0 January 13th 05 02:39 AM
make a cell empty based on condition mpierre Charts and Charting in Excel 2 December 29th 04 02:01 PM
How to make this plot? springwinterfall Charts and Charting in Excel 2 December 22nd 04 08:35 PM
dropdown value from range in other sheet mango Excel Worksheet Functions 11 December 2nd 04 04:19 AM


All times are GMT +1. The time now is 11:27 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"