muhammethezer
Altın Üye
- Katılım
- 12 Şubat 2006
- Mesajlar
- 411
- Excel Vers. ve Dili
- Office 365
- Altın Üyelik Bitiş Tarihi
- 12-03-2026
Merhaba Arkadaşlar, Aşağıdaki gibi bir kod bloğu yazdım ama hata alıyorum nerede yanlış yaptım anlamadım. bakabilir misiniz?
"End If WithOut Block If" hatası veriyor.
Private Sub CommandButton1_Click()
Dim i As Long
Me.ListBox1.Clear
'For Column Header
Me.ListBox1.AddItem
For a = 1 To 2
Next a
Me.ListBox1.Selected(0) = True
'For ListBox Fill
For i = 2 To Sheet1.Range("A100000").End(xlUp).Offset(1, 0).Row
For j = 1 To 5
H = Application.WorksheetFunction.CountIf(Sheet1.Range("A" & 2, "B" & i), Sheet1.Cells(i, j))
If H = 1 And LCase(Shhet1.Cells(i, j)) = LCase(Me.TextBox1) Or H = 1 And Sheet1.Cells(i, j) = Val(Me.TextBox1) Then Me.ListBox1.AddItem
For x = 1 To 5
Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet.Cells(i, x)
Next x
End If
Next j
Next i
End Sub
"End If WithOut Block If" hatası veriyor.
Private Sub CommandButton1_Click()
Dim i As Long
Me.ListBox1.Clear
'For Column Header
Me.ListBox1.AddItem
For a = 1 To 2
Next a
Me.ListBox1.Selected(0) = True
'For ListBox Fill
For i = 2 To Sheet1.Range("A100000").End(xlUp).Offset(1, 0).Row
For j = 1 To 5
H = Application.WorksheetFunction.CountIf(Sheet1.Range("A" & 2, "B" & i), Sheet1.Cells(i, j))
If H = 1 And LCase(Shhet1.Cells(i, j)) = LCase(Me.TextBox1) Or H = 1 And Sheet1.Cells(i, j) = Val(Me.TextBox1) Then Me.ListBox1.AddItem
For x = 1 To 5
Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet.Cells(i, x)
Next x
End If
Next j
Next i
End Sub