Private Sub UserForm_Initialize()
Dim Sayfa As Worksheet
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "30;50"
For Each Sayfa In Worksheets
If Sayfa.Name <> "Veri" And Sayfa.Name <> "Chizelge" Then
If UCase(Replace(Replace(Sayfa.Name, "i", "İ"), "ı", "I")) Like "*" & UCase(Replace(Replace(nsyrara.Text, "i", "İ"), "ı", "I")) & "*" Then
ListBox1.AddItem
ListBox1.Column(0, X) = X + 1
ListBox1.Column(1, X) = Sayfa.Name
X = X + 1
End If
End If
Next
End Sub
Private Sub yazdir_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets(ListBox1.List(i, 1)).PrintOut
End If
Next i
End Sub