![Çözüldü](images/icons/cozuldu.png)
çok teşekkür ederim emeğinize sağlık
Private Sub UserForm_Initialize()
Dim Ws 'sayfa adı sil
With ListBox1
.MultiSelect = fmMultiSelectExtended
For Each Ws In Worksheets
.AddItem Ws.Name
Next Ws
End With
End Sub
ListBox1.ColumnCount = 4 'listbox sutün sayısını belirler
ListBox1.ColumnWidths = "100;125;100" 'listbox sutün aralığını belirler
Dim sayfa As Worksheet
For Each sayfa In ThisWorkbook.Worksheets
If sayfa.Name <> "VERİ" And sayfa.Name <> "yenimüşteri" Then
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = sayfa.Name
End If
Next sayfa
TextBox1.SetFocus
Alıntı:...birkaç userformun kodlama kısmında değişken tanımlamalarının birçoğunu oluşturmadığınız için bu hataları vermekte.hataları geçersiz kılmayın ki,nerede ne sorun var farkında olabilesiniz.gerekli düzeltmeleri yaptım.Option Compare Database kullanmak yerine Option Explicit kullanmanız yerinde olacaktır...