Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 25-12-2017, 11:44   #11
sward175
Altın Üye
 
Giriş: 04/02/2011
Şehir: istanbul
Mesaj: 472
Excel Vers. ve Dili:
Excel Vers. ve Dili: OFFICE 2007 TÜRKÇE
Varsayılan

DMR 7, Merhaba,

Bahsini yaptığınız excel içindeki sayfalar ise zaten sayfaların yazdırma alanları belirlenmiş demektir.
İlk sayfadasınız Shift' e basılı tutarak yazdırmak istediğiniz son sayfa ismine fare ( maus ) ile dokunun; Ardından yazdır komutu ile tüm sayfaları yazdırabilirsiniz.
Saygılarımla,
sward175
sward175 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 25-12-2017, 12:42   #12
DMR 7
 
Giriş: 14/09/2017
Şehir: Ankara
Mesaj: 80
Excel Vers. ve Dili:
2010 / Tr
Varsayılan

Alıntı:
sward175 tarafından gönderildi Mesajı Görüntüle
DMR 7, Merhaba,

Bahsini yaptığınız excel içindeki sayfalar ise zaten sayfaların yazdırma alanları belirlenmiş demektir.
İlk sayfadasınız Shift' e basılı tutarak yazdırmak istediğiniz son sayfa ismine fare ( maus ) ile dokunun; Ardından yazdır komutu ile tüm sayfaları yazdırabilirsiniz.
Saygılarımla,
sward175
hocam sagolasın. yalnız benim bir excel sayfamda 50 tane sheet var. tek tek tıklamak sorun. ve çıktı alırken bunun gibi bilmem kaç excelden çıktı alıcam.
DMR 7 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 02-01-2018, 16:16   #13
vatansever027
 
Giriş: 20/12/2008
Mesaj: 61
Excel Vers. ve Dili:
office 2003 türkçe
Varsayılan

kardeşim bir deaşagıdaki kodu dene.
öncelikle userforma aşagıdaki öğeleri ekle
1 adet listbox
2 adet CommandButton
1 adet checkbox

Private Sub CheckBox1_Click()
Dim iloop As Integer

For iloop = 1 To ListBox1.ListCount
ListBox1.Selected(iloop - 1) = CheckBox1.Value
Next
End Sub
Private Sub CommandButton1_Click()
Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.List(iloop - 1, 0)).PrintOut
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub

Private Sub CommandButton2_Click()

Dim iloop As Integer
For iloop = 1 To ListBox1.ListCount
If ListBox1.Selected(iloop - 1) = True Then
Sheets(ListBox1.List(iloop - 1, 0)).PrintPreview
ListBox1.Selected(iloop - 1) = False
End If
Next
End Sub

Private Sub UserForm_Initialize()
Dim sSheet
For Each sSheet In Sheets
ListBox1.AddItem sSheet.Name
Next sSheet
'*******************************
'eğer listbox istediğiniz sayfaların gösterilmesini istiyorsanız
'yukarıdaki prosedürü silin ve aşağıdaki kodların başındaki ' işaretini silin

'For pir = 1 To Worksheets.Count 'sayfaları sayar
' If Right(Worksheets(pir).Name, 5) = "Dönem" Then 'eğer sağdan son 5 harfi dönem ile bitenler var ise
' ListBox1.AddItem Worksheets(pir).Name ' listbox a alır
'End If
'Next
End Sub
vatansever027 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 17:21


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden