AÇILIR FORM

[ocamsul]

ARKADAÞLAR BENİM SİZDEN İSTEÐİM; BİR EXCEL SAYFASI YAPALIM BU SAYFADA BİR BUTONA TIKLADIÐIMIZDA EKRANA FORM GELSİN BU FORMUN ÜZERİNDE SİCİL NO, ADI, SOYADI UNVANI GİBİ Ã?ZLÜK BİLGİLERİ OLSUN. YARDIM EDERSENİZ SEVİNİRİM. MAKRO İLE YAPILACAÐI İÇİN PEK ANLAMIYORUM.

 

[xxrt]

Boş bir excel çalışma Kitabı açarak,
*Alt+F11 Tuşuna Basınız.
*Bir UserForm açınız (Insert>UserForm)
*Form Üzerine Toolbox'tan Bir CommandButton vs...ekleyin.
*Daha sonra Çalışma Sayfasına Dönerek,
-Denetim Araç Çubuğundan Konut Düğmesi seçin ve çift tıklayara,
--Açılan Kod sayfasına

UserForm1.Show

Yazın.Ve Tasarım Modundan çıkarak Butonu tıklayın.
Gerisi size kalıyor..

 

[class37]

Merhaba Benimde çorbada tuzum olsun.1 Listbox 4 tanede TextBox yerleştirin aşağıdaki kodu Userformun kod sayfasına yapıştırın.Not:Çalışa sayfasında İsmler A1 den başlamak üzere a sütununda.

Private Sub TextBox1_Change()
Dim MyRange As Range
Dim noA As Integer
ListBox1.Clear
noA = WorksheetFunction.CountA(Sheets("Sayfa1").Range("A:A"))
For Each MyRange In Sheets("Sayfa1").Range("A1:A" & noA)
If Left(LCase(MyRange), Len(TextBox1)) = LCase(TextBox1) Then ListBox1.AddItem (MyRange)
Next
End Sub

Private Sub ListBox1_Click()
Dim x As Integer
x = Sheets("Sayfa1").Range("A:A").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
TextBox1.Value = ListBox1

TextBox2 = Sheets("Sayfa1").Cells(x, 2)
TextBox3 = Sheets("Sayfa1").Cells(x, 3)
TextBox4 = Sheets("Sayfa1").Cells(x, 4)
End Sub