[Yardım]  ListBox Sağ Click Yaparak Excel Dosyasına Aktarma

Verilerinizi listeleyebileceğiniz liste kutusu

ListBox Sağ Click Yaparak Excel Dosyasına Aktarma

İleti#1)  hakilkan » 26 Ağu 2013 17:22

Süzme yapılmış olan listbox üzerinde sağ tuşu tıklayarak excel üzerine ayrı bir dosya olarak aktarım yapma imkanı varmıdır ?
Listbox üzerindeki verileri Access data base dosyasından alıyorum bu verileri textbox ile süzme işlemi yapıyorum bu süzme işlemi yapılmış olan verileri yeni bir excel dosyasına aktarmak mümkün olabilirmi dosya adı kitap 1 diye açılabilir isteyen farklı bir isim adı altında kayıt yapmasına izin versin.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#2)  Ozan İLGÜN » 26 Ağu 2013 18:35

Daha önce access ile veri almadığım için bilmiyorum ancak bildiğim şekliyle bir örnek hazırladım. Çalışması için indirdikten sonra herhangi bir klasöre çıkarmalısınız.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#3)  hakilkan » 26 Ağu 2013 19:01

İlginiz için teşekkürler işime yarar fakat ben listbox çift tıklama ile veri çağırıyorum bu sağ tıklama için yardım almam gerekir.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#4)  Ozan İLGÜN » 26 Ağu 2013 19:19

Denedim ancak hangi satırda olduğunuzu söyleyen listindex kodu sağ tıklamada çalışmıyor. Hangi satırda olduğunu bulmanın başla bir yolu varsa bilemiyorum.Listbox sağ tıklama ile yapmak için şu satırlar arasına kodu yazmak gerekiyor
Kod: Tümünü seç
Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then
'kodlar burayagelecek
End If
End Sub

Ancak başka bir yolu var mı bilemiyorum.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#5)  Ozan İLGÜN » 26 Ağu 2013 19:21

Önce sol tıklayıp satırı seçerseniz sonra sağ tıklayacaksanız olur isterseniz
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#6)  hakilkan » 26 Ağu 2013 19:35

Yardımlarınıza teşekkürler . Bir sorum daha olacak sadece bir satırı değil komple listbox aktarmak istersek ne yapmamız gerekir.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#7)  Ozan İLGÜN » 26 Ağu 2013 20:22

Hepsini almak için dosyamda ki çift tıklama olayını şu şekilde değiştirip deneyiniz.
Kod: Tümünü seç
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
isim = InputBox("Yeni dosya adı giriniz", "Yeni dosyanızın ismi ne olsun")
  With Workbooks.Add
  For satno = 1 To ListBox1.ListCount
a = ListBox1.List(satno - 1, 0)
b = ListBox1.List(satno - 1, 1)
c = ListBox1.List(satno - 1, 2)
d = ListBox1.List(satno - 1, 3)

 
     Range("A" & satno).Value = a
      Range("b" & satno).Value = b
      Range("c" & satno).Value = c
       Range("d" & satno).Value = d
       
        Next satno
        .SaveAs Filename:=isim & ".xls"
    End With

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#8)  hakilkan » 26 Ağu 2013 21:04

2 Numaralı sutunda hata veriyor, 0 yerine başlangıcı 1 yapsam gene fayda etmiyor hep aynı rakamda hata veriyor.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#9)  Ozan İLGÜN » 26 Ağu 2013 21:28

Bende hatasız çalışıyor. Kodun başına
Kod: Tümünü seç
on error resume next
Yazıp dener misiniz?
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#10)  hakilkan » 27 Ağu 2013 09:34

Vermiş olduğunuz kodu denedim dediğiniz gibi aktardı , fakat excel üzerine aktardığında metin olanları rakamsal değer olarak görüp 0 getiriyor diğer rakamları para birimi olarak gösteriyor. Value değerlerini text yaptığım anda herhangi bir şey aktarmıyor.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



Cevap: Cevap: Listbox sağ clik yaparak excel dosyasına aktar

İleti#11)  Enes Recep BAĞ » 27 Ağu 2013 09:47

hakilkan yazdı:Vermiş olduğunuz kodu denedim dediğiniz gibi aktardı , fakat excel üzerine aktardığında metin olanları rakamsal değer olarak görüp 0 getiriyor diğer rakamları para birimi olarak gösteriyor. Value değerlerini text yaptığım anda herhangi bir şey aktarmıyor.

Hakan Bey merhaba,
Ozan Beyin örneği gayet güzel çalışmaktadır. Siz hücre biçimlendirmelerinizi kontrol eder misiniz?
Genel olmasını sağlayınız.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8247
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#12)  hakilkan » 27 Ağu 2013 10:05

Excel üzerinden aldığım zaman sorun yok. Benim listbox Access üzerinde verileri alıyor sıkıntım orda listbox üzerine gelen verilerin tamamı Access üzerinden geldiği için hücre biçimlendirmede sorun yaşıyorum.
Kullanıcı avatarı
hakilkan
Siteye Alışmış
 
Adı Soyadı:Hakan Amaç
Kayıt: 19 Arl 2010 00:38
Konum: İzmir
Meslek: Tekstil
Yaş: 48
İleti: 463
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir/Bornova



Cevap: Listbox sağ clik yaparak excel dosyasına aktarma

İleti#13)  Enes Recep BAĞ » 27 Ağu 2013 12:29

Konunun ben access ile hiç bir bağını göremedim.
Accessli örneğinizi ekleyebilir misiniz?
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8247
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

Cevap: Cevap: Listbox sağ clik yaparak excel dosyasına aktar

İleti#14)  bktsklc » 06 Mar 2018 12:57

Ozan İLGÜN yazdı:Önce sol tıklayıp satırı seçerseniz sonra sağ tıklayacaksanız olur isterseniz



Hocam merhaba,
Eski bir konu ama tamda bu mesajınızda ki koda ihtiyacım var, siz veya yapabilecek başka bir arkadaşımın yardımını rica edeceğim, Listbox da sol butonla seçimi yaptıktan sonra sağ tıklayınca menü açabilirmi ?

Açılan menüde diyelim ki "1. sütunda ki veriyi kopyala" gibi bir seçenek olsa ve tıkladığımda "Listbox1.List(Listbox1.listindex,0)" verisini kopyalasa, aynı mantıkla 2.sütunda ki için de bir seçenek olsa, olurmu? Ben böyle kabaca anlattım ama bu kadarını siz yaparsanız iki seçenekli bir açılır menü ben onu kendime uyarlamaya çalışacağım.
Kullanıcı avatarı
bktsklc
Siteye Alışmış
 
Kayıt: 12 Oca 2016 18:58
Meslek: üretim planlama
Yaş: 29
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: ListBox Sağ Click Yaparak Excel Dosyasına Aktarma

İleti#15)  Ozan İLGÜN » 06 Mar 2018 13:08

Eğer dosyanız varsa basitleştirilmiş bir halini yükler misiniz?
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: ListBox Sağ Click Yaparak Excel Dosyasına Aktarma

İleti#16)  bktsklc » 06 Mar 2018 13:14

Ozan bey merhaba,

Öncelikle ilginiz için teşekkür ederim, dosyam var evet ama sql bağlantıları ile veri alıyorum, onu basitleştirmek yerine sizin 2.mesajınızda ki dosyadan ilerlesek mahsuru olur mu size? Çünkü bende yapsam öyle yapacağım ancak :(
Kullanıcı avatarı
bktsklc
Siteye Alışmış
 
Kayıt: 12 Oca 2016 18:58
Meslek: üretim planlama
Yaş: 29
İleti: 215
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: ListBox Sağ Click Yaparak Excel Dosyasına Aktarma

İleti#17)  tolgacobanoglu » 06 Arl 2018 18:36

Merhabalar,
ilgili örneğinize istinaden uygulamamda bunu gerçekleştirdim.fakat programım açık olduğu sürede yeni açılan excel dosyasında kapatma dahil işlem yapamıyorum.programı kapattığımda excelde işlem yapabiliyorum.bu sorunu nasıl çözebilirim?
Kullanıcı avatarı
tolgacobanoglu
 
Kayıt: 21 Kas 2018 14:48
Meslek: satış
Yaş: 28
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bilecik

Cevap: ListBox Sağ Click Yaparak Excel Dosyasına Aktarma

İleti#18)  askmadige34 » 06 Arl 2018 21:46

Kodları aşağıdaki ile değiştirin açılan sayfayı kapatır. Ya da userformu kapatma komutu kullanmanız gerekli.
Userform açık olduğu için işlem yapamıyorusunuz.
Kod: Tümünü seç
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
isim = InputBox("Yeni dosya adı giriniz", "Yeni dosyanızın ismi ne olsun")
If isim = Empty Then Exit Sub
With Workbooks.Add
    For satno = 1 To ListBox1.ListCount
        a = ListBox1.List(satno - 1, 0)
        b = ListBox1.List(satno - 1, 1)
        c = ListBox1.List(satno - 1, 2)
        d = ListBox1.List(satno - 1, 3)

        Range("A" & satno).Value = a
        Range("b" & satno).Value = b
        Range("c" & satno).Value = c
        Range("d" & satno).Value = d
       
    Next satno
    .SaveAs Filename:=isim & ".xls"
    .Close
End With

End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1583
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: ListBox Sağ Click Yaparak Excel Dosyasına Aktarma

İleti#19)  mechatronicer » 07 Arl 2018 09:53

programda son bir hata var velevki yanlışlıkla bir satıra çift tıkladık cancel a tıklayınca debug hatası veriyor. bunu da çözmek gerek.
Kullanıcı avatarı
mechatronicer
 
Adı Soyadı:Kemal Sürmelioğlu
Kayıt: 29 Eyl 2013 13:56
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri


Forum ListBox

Online Kullanıcılar

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

Bumerang - Yazarkafe