Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Kasım 2004 Cumartesi

TextBox Exit Control






'UserForm1

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] TextBox Exit Control..."
TextBox1.Text = "Türkiye"
Label2.Caption = ""
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
CommandButton1.Enabled = True
Label2.Caption = ""
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If (TextBox1 <> "Türkiye") Then
CommandButton1.Enabled = False
Label2.Caption = "Hatalı Kayıt"
Label2.ForeColor = &HFF&
Cancel = True
TextBox1.SetFocus
Else
Label2.Caption = "Başarılı Kayıt"
Label2.ForeColor = &HC000&
End If
End Sub

10 Kasım 2004 Çarşamba

Cells Find xlByRow



'UserForm1

Option Explicit
Dim Aranan As Variant
Dim Satır As Double

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Cells Find xlByRow..."
TextBox1.Text = "Erzurum"
Me.Show 0
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Aranan = TextBox1.Value
Satır = Cells.Find(Aranan, Range("A1"), xlFormulas, xlPart, xlByRows, xlNext, False, False).Row
Range("A" & Satır & ":D" & Satır).Select
End Sub

1 Kasım 2004 Pazartesi

Cells Find on TextBox




'UserForm1

Option Explicit
Dim i As Byte
Dim BulunanSayfa, BulunanHücre, Aranan, ÖnDeğer, SonDeğer As Variant
Dim Hücre As Range
Dim No, Sayaç As Double

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Cells Find..."
With ComboBox1
.ColumnCount = 4
.ColumnWidths = "18;96;36;12"
.ListWidth = (18 + 96 + 36 + 12)
.Width = 36
End With
TextBox1.Text = "Erzurum"
End Sub
Private Sub ComboBox1_Click()
On Error Resume Next
No = ComboBox1.ListIndex
BulunanSayfa = ComboBox1.List(No, 1)
Label2.Caption = " " & BulunanSayfa
BulunanHücre = ComboBox1.List(No, 2)
Label3.Caption = BulunanHücre
Sheets(BulunanSayfa).Select
Range(BulunanHücre).Select
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
Aranan = TextBox1.Value
If (VBA.Len(Aranan) > 0) Then
ÖnDeğer = Empty: SonDeğer = Empty:
Set Hücre = Nothing
ComboBox1.Clear
Sayaç = 0
For i = 1 To Worksheets.Count
Call TerimBulucu(Worksheets(i).Name)
Next i
End If
End Sub
Private Function TerimBulucu(Sayfa As String)
On Error Resume Next
Set Hücre = Sheets(Sayfa).Cells.Find(Aranan, LookIn:=xlValues)
If Not Hücre Is Nothing Then
SonDeğer = Hücre.Address
Do
Set Hücre = Sheets(Sayfa).Cells.FindNext(Hücre)
ÖnDeğer = Hücre.Address
Sayaç = Sayaç + 1
ComboBox1.AddItem Sayaç
ComboBox1.List(Sayaç - 1, 1) = Sayfa
ComboBox1.List(Sayaç - 1, 2) = ÖnDeğer
Loop While Not Hücre Is Nothing And (ÖnDeğer <> SonDeğer)
End If
End Function

Blog Arşivi

Gadget

Bu içerik henüz şifreli bağlantı üzerinden kullanılamıyor.

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
Anadolu Üniversitesi Açık Öğretim Fakültesi