[hakilkan]

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.

[Ozan İLGÜN]

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.

[hakilkan]

İ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.

[Ozan İLGÜN]

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.

[Ozan İLGÜN]

Önce sol tıklayıp satırı seçerseniz sonra sağ tıklayacaksanız olur isterseniz

[hakilkan]

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.

[Ozan İLGÜN]

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


[hakilkan]

2 Numaralı sutunda hata veriyor, 0 yerine başlangıcı 1 yapsam gene fayda etmiyor hep aynı rakamda hata veriyor.

[Ozan İLGÜN]

Bende hatasız çalışıyor. Kodun başına

Kod: Tümünü seç

on error resume next

Yazıp dener misiniz?

[hakilkan]

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.

[Enes Recep BAĞ]

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.

[hakilkan]

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.

[Enes Recep BAĞ]

Konunun ben access ile hiç bir bağını göremedim.
Accessli örneğinizi ekleyebilir misiniz?

[bktsklc]

Ö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.

[Ozan İLGÜN]

Eğer dosyanız varsa basitleştirilmiş bir halini yükler misiniz?

[bktsklc]

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

[tolgacobanoglu]

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?

[askmadige34]

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


[mechatronicer]

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.