Çözüldü Sütun sayfa ilişkisi

Cem12 · 30 Eyl 2018

Arkadaşlar merhaba
A sutunundaki herhangi bir değer, o çalışma kitabı içerisindeki, çalışma sayfası ismine eşitse o sayfayı yazıcıda yazdırmak istiyorum.

Örnek olarak
A sutununda herhangi bir yerde abc yazıyor ve ben o çalışma kitabında, ismi abc olan çalışma sayfasını yazıcıya yazdıracağım

Yardımcı olabilirseniz çok sevinirim

Murat OSMA · 1 Eki 2018

Merhaba,

A sütununda herhangi bir yerde abc yazıyor derken tam olarak duruma anlamadım.
Durumu daha net anlatıp bir de örnek dosya eklerseniz iyi olur.

Cem12 · 1 Eki 2018

Merhaba,

Dosyayı ekledim.Dosyada da yapmak istediğimi anlattım

Yardımınızı bekliyorum

Ömer BARAN · 1 Eki 2018

Merhaba.

Alt taraftan GENEL sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın ve
GENEL saygasına ekleyeceğiniz bir düğme/şekil/metin kutusu ile aşağıdaki makroyu ilişkilendirin.
Sayfaya eklediğiniz nesneye tıkladığınızda istenilen gerçekleşir.

Rich (BB code):

Sub SAYFA_YAZDIR()
For Each shf In ThisWorkbook.Sheets
    If shf.Name <> "GENEL" And WorksheetFunction.CountIf(Sheets("GENEL").[A:A], shf.Name) > 0 Then _
        shf.PrintOut Copies:=1, Collate:=1, IgnorePrintAreas:=0
Next
End Sub

Cem12 · 2 Eki 2018

Çok teşekkür ederim emeğinize sağlık harika olmuş.
Yalnız bazı sayfa isimlerim de, gereksiz yere, başlarına veya sonlarına space tuşu ile boşluk yazılmış.Bu boşluklardan ötürü bazılarını çıkartamadım bu boşlukları da otomatik silmem mümkün müdür ?

Cem12 · 2 Eki 2018

Yaptım belki başka arkadaşların da işine yarar diye kodları paylaşıyorum

Sub syfismbosluksil()

Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = Trim(ws.Name)
Next

End Sub

Ömer BARAN · 2 Eki 2018

En güzeli sorunu kendinizin halletmesi.
Kolay gelsin.

Çözüldü Sütun sayfa ilişkisi

Daha fazla seçenek

Cem12

Murat OSMA

Cem12

Ekli dosyalar

Ömer BARAN

Cem12

Cem12

Ömer BARAN