[Yardım]  Yazdırma Seçeneği Eklentisi Hk.

Seçenek düğmesi

Yazdırma Seçeneği Eklentisi Hk.

İleti#1)  talebeyim » 24 Arl 2015 13:07

Arkadaşlar,
Aşağıdaki gibi bir kod bloğum mevcut, burada kodlardaki amaç seçilen OptionButtonuna göre Textbox2 miktara bakarak, ilgili aralıkları yazdırmak;
Örnek veriyorum;
Eğer OptionButton8 seçili ise , Formda B sütununa bakacak bu sütundaki "X-B.E." yazılı
hücrelerin arasında ne kadar satır sütun "B1:V" metin var hepsini Textbox2 değeri kadar yazdıracak.

Benim amacım ise şu ben iki tane daha OptionButton koymak istiyorum. OptionButton13 ve OptionButton14;

Eğer OptionButton 13 seçili ise, Textbox2 değerine bakmadan,
"X-B.E." arasındaki değerlerden 10 adet
"X-G1" arasındaki değerlerden 4 adet
"X-C2" arasındaki değerlerden 6 adet

yazdırmasını istiyorum.

Eğer OptionButton 14 seçili ise, Textbox2 değerine bakmadan,
"X-B.Y." arasındaki değerlerden 10 adet
"X-G2" arasındaki değerlerden 4 adet
"X-C2" arasındaki değerlerden 6 adet

yazdırmasını istiyorum. Teşekkür ederim.

Kod: Tümünü seç
Private Sub CommandButton2_Click()

    Dim Aranan As String, Son As Long, Bul1 As Range, Bul2 As Range
    If OptionButton7 Then
        Aranan = "X-B.E."
    ElseIf OptionButton8 Then
        Aranan = "X-B.Y."
    ElseIf OptionButton9 Then
        Aranan = "X-G1"
    ElseIf OptionButton10 Then
        Aranan = "X-G2"
    ElseIf OptionButton11 Then
        Aranan = "X-C1"
    ElseIf OptionButton12 Then
        Aranan = "X-C2"
    ElseIf OptionButton13 Then
        MsgBox "Tamamını çıktı almak doğru bir adım değil, Tek sayfada gösterim Verileri okunaksız hale gelir. <çıktı vermeyecektir.>", , vbCritical
        Aranan = "*"
    End If
   
    Son = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
           
    If Aranan = "*" Then
        Range("B1:V" & Son).PrintOut , , TextBox2
    Else
        Set Bul1 = Range("B:B").Find(Aranan, Range("B" & Son), , xlWhole)
        Set Bul2 = Range("B:B").Find(Aranan, Bul1, , xlWhole)
        If Not Bul1 Is Nothing And Not Bul2 Is Nothing Then
            Range("B" & Bul1.Row & ":V" & Bul2.Row).PrintOut , , TextBox2
        Else
            MsgBox "Aranan kriter bulunamadı!", vbCritical
        End If
     
    End If

End Sub
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 22:25
Meslek: Özel Sektör
Yaş: 45
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Yazdırma Seçeneği Eklentisi Hk.

İleti#2)  TAMERR89 » 24 Arl 2015 14:21

Örnek dosya paylaşırsanız daha hızlı yardımcı olunmaya çalışılır,
Kullanıcı avatarı
TAMERR89
Siteye Alışmış
 
Adı Soyadı:Remzi TAMER
Kayıt: 29 Nis 2011 12:30
Konum: İSTANBUL
Meslek: Ar-Ge Metod Mühendisliği Müdürü
Yaş: 33
İleti: 124
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Cevap: Yazdırma Seçeneği Eklentisi Hk.

İleti#3)  talebeyim » 24 Arl 2015 14:58

TAMERR89 yazdı:Örnek dosya paylaşırsanız daha hızlı yardımcı olunmaya çalışılır,


Tamer bey, O dosyayı paylaşamıyorum, gerek boyut gerek içeriği açısından devasa bir tablo.

Fakat Ekteki gibi bir örnek yaptım. anlaşılır olması açısından, Yukarıdaki orjinal kod bloğuna standartlarına uygun olarak.
    Eğer optionButton1 seçili ise; (sarı alanlar)
    "X-B.E." arasındaki değerlerden 10 adet
    "X-G1" arasındaki değerlerden 4 adet
    "X-C2" arasındaki değerlerden 6 adet

    Eğer optionButton2 seçili ise; (kırmızı alanlar)
    "X-B.Y." arasındaki değerlerden 10 adet
    "X-G2" arasındaki değerlerden 4 adet
    "X-C2" arasındaki değerlerden 6 adet
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 22:25
Meslek: Özel Sektör
Yaş: 45
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

Cevap: Yazdırma Seçeneği Eklentisi Hk.

İleti#4)  talebeyim » 28 Arl 2015 12:26

Yardımcı olabilecek arkadaş varmı ?
Kullanıcı avatarı
talebeyim
Yeni Başlamış
 
Adı Soyadı:mustafa sen
Kayıt: 24 Haz 2008 22:25
Meslek: Özel Sektör
Yaş: 45
İleti: 73
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: konya

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum OptionButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

cron
Bumerang - Yazarkafe