Comboboxtan seçtiğim değeri texbox1 e aktarıyorum ama texbox1 deki değere göre commandbuttona basınca listboksa seriler geliyor. Yanlız ben butona basınca verilerin gelmesini istiyorum. Yani listbox her açılışta boş ya da gizli olabilirse gizli olsun. (listboxa aldıracağım veriler aa12:ae32 arası)
(acemi olduğum için deneme yanılma yoluyla yapıyorum)
İlginize şindiden çok teşekkür ederim emeğinize sağlık
Dosya ekte
Kullandığım kodlarda aşağıdaki gibi
Private Sub CommandButton1_Click()
Dim i As Long, sat As Long
ListBox1.RowSource = ""
For i = 2 To [ab32].End(3).Row
If Cells(i, "ab").Value = Val(TextBox1.Value) Then
ListBox1.AddItem
ListBox1.Column(0, sat) = Cells(i, "ab").Value
ListBox1.Column(1, sat) = Cells(i, "ac").Value
ListBox1.Column(2, sat) = Cells(i, "ad").Value
ListBox1.Column(3, sat) = Cells(i, "ae").Value
sat = sat + 1
End If
On Error GoTo yanlis
yanlis: If Err Then
TextBox1.Text = "Bulamadım"
End If
Next i
End Sub
Private Sub TextBox1_Change()
'TextBoxa girilen karakter uzunluğunu sınırlamak için'
TextBox1.MaxLength = 2
Set s1 = Sheets("dış cephe kaplaması")
If WorksheetFunction.CountIf(s1.[aa:aa], TextBox1) = 0 Then Exit Sub
sat = s1.[aa2:aa9].Find(TextBox1).Row
TextBox2 = FormatCurrency(s1.Cells(sat, "ad"))
End Sub
Private Sub ComboBox1_Click()
TextBox1 = ComboBox1.Column(0)
End Sub
Private Sub UserForm_Activate()
With UserForm1.ComboBox1
.AddItem "3"
.AddItem "4"
.AddItem "5"
End With
End Sub
Private Sub UserForm_Click()
UserForm1.Show
End Sub
Private Sub TextBox3_Change()
[b1] = TextBox3.Text
TextBox3.MaxLength = 5
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.RowSource = "ab12:ae" & Cells(32, "ab").End(xlUp).Row
ListBox1.ColumnWidths = "12;120;33;30" 'sütun genişlikleri
TextBox4 = Format(Date, "dd.mm.yyyy")
TextBox5 = Format(Time, "hh:mm")
End Sub
(acemi olduğum için deneme yanılma yoluyla yapıyorum)
İlginize şindiden çok teşekkür ederim emeğinize sağlık
Dosya ekte
Kullandığım kodlarda aşağıdaki gibi
Private Sub CommandButton1_Click()
Dim i As Long, sat As Long
ListBox1.RowSource = ""
For i = 2 To [ab32].End(3).Row
If Cells(i, "ab").Value = Val(TextBox1.Value) Then
ListBox1.AddItem
ListBox1.Column(0, sat) = Cells(i, "ab").Value
ListBox1.Column(1, sat) = Cells(i, "ac").Value
ListBox1.Column(2, sat) = Cells(i, "ad").Value
ListBox1.Column(3, sat) = Cells(i, "ae").Value
sat = sat + 1
End If
On Error GoTo yanlis
yanlis: If Err Then
TextBox1.Text = "Bulamadım"
End If
Next i
End Sub
Private Sub TextBox1_Change()
'TextBoxa girilen karakter uzunluğunu sınırlamak için'
TextBox1.MaxLength = 2
Set s1 = Sheets("dış cephe kaplaması")
If WorksheetFunction.CountIf(s1.[aa:aa], TextBox1) = 0 Then Exit Sub
sat = s1.[aa2:aa9].Find(TextBox1).Row
TextBox2 = FormatCurrency(s1.Cells(sat, "ad"))
End Sub
Private Sub ComboBox1_Click()
TextBox1 = ComboBox1.Column(0)
End Sub
Private Sub UserForm_Activate()
With UserForm1.ComboBox1
.AddItem "3"
.AddItem "4"
.AddItem "5"
End With
End Sub
Private Sub UserForm_Click()
UserForm1.Show
End Sub
Private Sub TextBox3_Change()
[b1] = TextBox3.Text
TextBox3.MaxLength = 5
End Sub
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 4
ListBox1.RowSource = "ab12:ae" & Cells(32, "ab").End(xlUp).Row
ListBox1.ColumnWidths = "12;120;33;30" 'sütun genişlikleri
TextBox4 = Format(Date, "dd.mm.yyyy")
TextBox5 = Format(Time, "hh:mm")
End Sub