[Yardım]  Excel İçine Yazdırmak

Komut düğmesi. Komutlarınızı çalıştırmak için tıklayacağınız düğme modeli.

Excel İçine Yazdırmak

İleti#1)  Textiler » 07 Kas 2019 16:27

Merhaba Arkadaşlar,
Ekteki örnekte yer alan dosyada ComboBox1 değerini "Evet" seçersem Label1 görünmez, "Hayır" seçersem görünür oluyor. "YAZDIR" butonuna nasıl bir kod atamalıyım ki yardır dediğim zaman Label1, 2 ve 3'ten görünür olanları excele alt alta yazdırsın? Yardımlarınız için şimdiden teşekkür ediyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Excel İçine Yazdırmak

İleti#2)  şahin » 07 Kas 2019 22:20

Ekte

Kitap1.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 825
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Excel İçine Yazdırmak

İleti#3)  Textiler » 08 Kas 2019 19:04

Şahin Bey,
Elinize ve emeğinize sağlık. [oley]
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Excel İçine Yazdırmak

İleti#4)  Textiler » 08 Kas 2019 20:13

Şahin Bey,
Son bir sorum daha olacaktı. Aşağıda vermiş olduğunuz örnek içinde labeller.Visible = True ve ForeColor = &H000000C0& olanları yazdır şeklinde olması mümkün müdür?

Kod: Tümünü seç
Private Sub CommandButton2_Click()
Sayfa1.Range("A1:A50").ClearContents
yaz = 1
For Each labeller In UserForm1.Controls
       If TypeName(labeller) = "Label" Then
            If labeller.Visible = True Then
                Sayfa1.Cells(yaz, "A") = labeller.Caption
                yaz = yaz + 1
            End If
       End If
Next labeller
End Sub
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

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

Cevap: Excel İçine Yazdırmak

İleti#5)  şahin » 08 Kas 2019 20:35

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

Sayfa1.Range("A1:A50").ClearContents
yaz = 1
For Each labeller In UserForm1.Controls
       If TypeName(labeller) = "Label" Then
            If labeller.Visible = True And labeller.ForeColor = &HC0& Then
                Sayfa1.Cells(yaz, "A") = labeller.Caption
                yaz = yaz + 1
            End If
       End If
Next labeller
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 825
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Excel İçine Yazdırmak

İleti#6)  Textiler » 09 Kas 2019 16:54

Şahin Bey,
Elinize sağlık şkşk
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Excel İçine Yazdırmak

İleti#7)  Textiler » 15 Kas 2019 16:45

Merhaba,
Aşağıda Şahin Bey' in paylaşmış olduğu kodu excelden tamamen bağımsız olarak VB6' ya yazarak exe halinde derlemek istedim ancak excel tablosundan bağımsız bir veri girişini ne şekilde yapabilirim bulamadım. VB6 içerisinde excel tablosu gibi kullanabileceğim bir alan var mıdır?

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

Sayfa1.Range("A1:A50").ClearContents
yaz = 1
For Each labeller In UserForm1.Controls
       If TypeName(labeller) = "Label" Then
            If labeller.Visible = True And labeller.ForeColor = &HC0& Then
                Sayfa1.Cells(yaz, "A") = labeller.Caption
                yaz = yaz + 1
            End If
       End If
Next labeller
End Sub
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Cevap: Excel İçine Yazdırmak

İleti#8)  şahin » 16 Kas 2019 23:50

Textiler yazdı:Merhaba,
Aşağıda Şahin Bey' in paylaşmış olduğu kodu excelden tamamen bağımsız olarak VB6' ya yazarak exe halinde derlemek istedim ancak excel tablosundan bağımsız bir veri girişini ne şekilde yapabilirim bulamadım. VB6 içerisinde excel tablosu gibi kullanabileceğim bir alan var mıdır?

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

Sayfa1.Range("A1:A50").ClearContents
yaz = 1
For Each labeller In UserForm1.Controls
       If TypeName(labeller) = "Label" Then
            If labeller.Visible = True And labeller.ForeColor = &HC0& Then
                Sayfa1.Cells(yaz, "A") = labeller.Caption
                yaz = yaz + 1
            End If
       End If
Next labeller
End Sub


Veritabanı oluşurup (access vs) yada excelden de veri çekip VB6 da formunuza datagrid nesnesi ekleyerek verileri görüntüleyebilirsiniz..
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 30
İleti: 825
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Excel İçine Yazdırmak

İleti#9)  Textiler » 18 Kas 2019 16:32

Merhaba Şahin Bey,
Vermiş olduğunuz bilgiler çok değerli, size tekrar teşekkürlerimi sunuyorum. Kodlamaya yeni başlayan biri olarak bazı terimleri şu an için anlamakta zorluk çekiyorum. Kendimi daha net ifade edebilmek için bir dosya ekledim. Ekteki örnekte yer alan excel dosyasındaki formatı oluşturdum ve sizin göstermiş olduğunuz kodlar ile bu dosya içerisine veri aktarabiliyorum. Bahsetmiş olduğunuz durumda bu exceli VB6 içerisine datagrid nesnesi olarak ekleyerek tek bir exe formatında derleyebiliyorum değil mi? Ulaşmak istediğim nokta ise pdf halinde bir rapor elde etmek. Eğer yanlış anladıysam kusuruma bakmayın lütfen.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Textiler
Yeni Başlamış
 
Adı Soyadı:Mert Bilgi
Kayıt: 19 Şub 2014 14:24
Konum: İzmir
Meslek: Mühendis
Yaş: 35
İleti: 91
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir


Forum CommandButton

Online Kullanıcılar

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

Bumerang - Yazarkafe