Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

10 Ağustos 2006 Perşembe

ComboBox Cntrl 2




'UserForm1

Option Explicit
Dim No

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets("Sayfa1").Cells(ComboBox1.ListIndex + 1, 1).Select
End Sub
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
No = ActiveWindow.ScrollRow
If KeyCode = 13 Then Cells(No, 1).Activate
End Sub
Private Sub UserForm_Initialize()
On Error Resume Next
Sheets("Sayfa1").Rows("1:20").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ComboBox1.RowSource = "Sayfa1!A1:A20"
ComboBox1.ListIndex = -1
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul