-
Merhaba Ziyaretçi,
Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.
Abone Olun -
ESTE - Microsoft Office Eğitimleri
Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.
👉 Microsoft Office Eğitim Talebi
- Durum
nasyarx
Yeni Üye
- Katılım
- 11 Tem 2018
- Mesajlar
- 79
- En iyi yanıt
- 0
- Puanları
- 8
- Yaş
- 42
- Konum
- Muş
- Ad Soyad
- Ensar Mansur
- Office Vers.
- 2016
Listelenen sayfaları silmek veya seçtiğim bir sayfaya gitmek istiyorum. Silme işlemi tamam fakat sayfaya gidemiyorum. Ayrıca seçtiğim sayfaları toplu yazdırabilir miyim? Teşekkürler
Kod:
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 SubSayfaya gitte listboxda seçili olan sayfaya mı gidecek, yoksa texboxda yazılı olana mı? Listboxda seçili olan ilk sayfaya gitmesi için kodlar.
Kod:
Private Sub git_Click()
On Error Resume Next
If ListBox1.ListCount < 1 Then Exit Sub
liste = ListBox1.ListCount
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets(ListBox1.List(i, 1)).Select
Exit For
End If
Next i
' Sheets(ListBox1.List(liste, 1)).Select
' If Err = 13 Then
' MsgBox "Boş alana tıklayamazsınız !"
' Exit Sub
' End If
On Error GoTo 0
Application.Visible = True
' Unload NasYar
End Sub- Durum