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 12-11-2017, 22:58   #1
acar6783
 
Giriş: 06/07/2008
Şehir: ANKARA--ZONGULDAK
Mesaj: 1,399
Excel Vers. ve Dili:
OFFİCE 2007- TÜRKÇE
Varsayılan Çoklu commandbutton alternatif

Merhabalar,

Bir sayfa tasarlaycağım ;
Her 5 sütun ve her 45 satır aralığında bir yazdırma butonu koymam gerekiyor.

Bu şekilde olursa toplamda 310 adet buton eklemem gerekiyor ve herbutona da ayrı bir kod.

Alternatif olarak ilgili satır ve sütunlardaki hücrelere (if intersect(target....)ile yapmak istedim onda da cok olasılık var.

Öneriniz hangi yönde olur?

Saygılarımla
acar6783 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 00:40   #2
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,633
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Seçim yapıp yazdırma işlemi yaptırsanız daha pratik olmaz mı?
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 01:08   #3
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,784
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Alternatif:
yazdırma aralıklarını bir sayfa yada iki sütunda ve makro içerisinde tanımlarım derseniz eki inceleyin. (ben ayrı bir sayfada tanımladım)

Link:
http://s4.dosya.tc/server5/dhwtdb/ac...alani.zip.html
Eklenmiş Dosyalar
Dosya Türü: zip acar6783-yazdırma alanı.zip (26.9 KB, 3 Görüntülenme)
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 08:08   #4
acar6783
 
Giriş: 06/07/2008
Şehir: ANKARA--ZONGULDAK
Mesaj: 1,399
Excel Vers. ve Dili:
OFFİCE 2007- TÜRKÇE
Varsayılan

Alıntı:
Korhan Ayhan tarafından gönderildi Mesajı Görüntüle
Seçim yapıp yazdırma işlemi yaptırsanız daha pratik olmaz mı?
Korhan bey merhabalar,

Aslında her yazdır butonu olacak yerin üstünde günlük veri girişleri yapılan bölümler var .Buton ile bu hücrelerdeki verileri farklı bir sayfaya aktarıp o sayfayı yazdırıyorum.
Aslında buton hangi sütun grubunun altında ise o verileri tasıyıp yazdırılıacak sayfayı önizeleme olarak açıyor.
Daha önceki yaptığım kod bu şekilde idi;

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
stn = Target.Column
  
If Intersect(Target, Cells(32, stn)) Is Nothing Then Exit Sub
 Application.Calculation = xlManual
 Set t = Sheets("KASİYER_TUTANAK")
 
 t.Range("S9:AC19").ClearContents
  t.Range("AD20:AM20").ClearContents
t.Range("AN9:AX20").ClearContents
 t.Range("S9") = Cells(13, stn + 2)
 t.Range("S10") = Cells(14, stn + 2)
 t.Range("S11") = Cells(15, stn + 2)
 t.Range("S12") = Cells(16, stn + 2)
 t.Range("S13") = Cells(17, stn + 2)
 t.Range("S14") = Cells(18, stn + 2)
 t.Range("AD20") = Cells(19, stn + 2)
 t.Range("AN3") = Format(ActiveSheet.Name & "." & Month(Date) & "." & Year(Date), "dd.mm.yyyy")
t.Range("AN4") = Now
t.Range("AN9") = WorksheetFunction.Sum(t.Range("ad9:am20"))
  Application.Calculation = xlAutomatic
 t.PrintOut Copies:=1, Preview:=True


  
 Cells(4, stn + 3).Select
End Sub
acar6783 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 08:13   #5
acar6783
 
Giriş: 06/07/2008
Şehir: ANKARA--ZONGULDAK
Mesaj: 1,399
Excel Vers. ve Dili:
OFFİCE 2007- TÜRKÇE
Smile

Alıntı:
muygun tarafından gönderildi Mesajı Görüntüle
Merhaba;
Alternatif:
yazdırma aralıklarını bir sayfa yada iki sütunda ve makro içerisinde tanımlarım derseniz eki inceleyin. (ben ayrı bir sayfada tanımladım)

Link:
http://s4.dosya.tc/server5/dhwtdb/ac...alani.zip.html
Sayın Muygun Dosyayı inceledim. Teşekkür ederim fakat benim istediğim yukarıda anlattığım şekilde bir yazdırma olacaktı.
Daha önce eksik anlattım sanırım
acar6783 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-11-2017, 10:57   #6
acar6783
 
Giriş: 06/07/2008
Şehir: ANKARA--ZONGULDAK
Mesaj: 1,399
Excel Vers. ve Dili:
OFFİCE 2007- TÜRKÇE
Varsayılan

Aslında bu şekilde de bir yöntem
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Target) Is Nothing Then Exit Sub
If Cells(Target.Row, Target.Column).Value <> "YAZDIR" Then Exit Sub
'Kodlar
End Sub
ile isteğim kısmen oluyor. Buradaki sorun ise Enter tuşuna basıldığında "YAZDIR" olan hücreye gittiğinde yazdırma ekranı açılması.Yani kodların çalışması.

Burada kısaca Çift tıklama olmadan sadece "YAZDIR" yazılı hücreye basıldığında yazdıran alternatif kod ne yazabilirim?
acar6783 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 07:41   #7
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,784
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Kodları deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sat = Selection.Cells.Row
süt = Selection.Cells.Column
If Cells(sat, süt).Value = "YAZDIR" Then
MsgBox ("kod çalıştı")
End If
End Sub

İyi çalışmalar.
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-11-2017, 10:31   #8
acar6783
 
Giriş: 06/07/2008
Şehir: ANKARA--ZONGULDAK
Mesaj: 1,399
Excel Vers. ve Dili:
OFFİCE 2007- TÜRKÇE
Varsayılan

Teşekkür ederim sayın Muygun yardımınız için,

Sanırım tek tıklamayla olunca her enter tuşuna basınca yazdırolan hücreyi seçince kodlar çalışacaktı o sebepten çifttık olayına kodları yerleştirdim

Teşekkür ederim
acar6783 Ç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 14:25


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden