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-09-2011, 17:51   #1
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 424
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan ADO ile listboxtan seçtiğimiz dosyaya veri girme

Arkadaşlar formda çok aradım ama bulamadım bir userform üzerinde 2 listbox var
biri klasörler içindeki dosyaları sıralıyor diğeri ise yapmasını istediğim

1. listbox1 de seçim yaptıgımız zaman kitap içindeki bilgileri 2. listbox2 de bilgilerin aktarılmasını ve değişmesini kayıt yapılmasını saglamalı bunu yapılması mümkünmü ekte örnek bir dosya gönderiyorum
Eklenmiş Dosyalar
Dosya Türü: rar PegemMT.rar (74.4 KB, 49 Görüntülenme)
ikikan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-09-2011, 18:12   #2
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 424
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan ADO ile listboxtan seçtiğimiz dosyaya veri girme

Arkadaşlar yapmak istediğim Listbox1 da sectigim dosyanın içeriğini listbox2 görmek ve bu seçim yapılmış dosyaya kayı yapmak bir örnek dosya gönderiyorum şimdiden teşekürler
Eklenmiş Dosyalar
Dosya Türü: rar PegemMT.rar (74.4 KB, 27 Görüntülenme)
ikikan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-09-2011, 18:30   #3
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 424
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan ADO ile listboxtan seçtiğimiz kapalı dosyalara veri girme

yapmak istediğim arkadaş listbox1 de seçtiğim dosyanın içeriğini listbox2 de görmek ve bu dosyay veri girişi yapabilmek bu mümkünmüdür acaba ?

ekte bir örnek dosya gönderiyorum
Eklenmiş Dosyalar
Dosya Türü: rar PegemMT.rar (74.4 KB, 62 Görüntülenme)
ikikan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-09-2011, 19:05   #4
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 424
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan kapalı dosyalardan listbox a veri alma ve değiştirme

Yapmak istediğim arkadaş listbox1 de seçtiğim dosyanın içeriğini listbox2 de görmek ve bu dosyay veri girişi yapabilmek bu mümkünmüdür acaba ?
ikikan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-09-2011, 23:23   #5
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,903
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Aynı konu için neden 4 farklı konu açtınız acaba ?

http://www.excel.web.tr/f48/kapaly-d...tml#post568169
http://www.excel.web.tr/f48/ado-ile-...tml#post568173
http://www.excel.web.tr/f48/kapaly-d...tml#post568186

Tek bir mesajınız kalsın ki, aynı konu için farklı arkadaşlar sorunuza yanıt için vakit kaybetmesinler.
Bu şekilde sürekli aynı konuyu açtığınızda bence kimsenin içinden size yanıt vermek gelmiyordur...

Haksız mıyım ?

İyi akşamlar.
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-09-2011, 09:23   #6
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,650
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Konuların hepsi tarafımca birleştirilmiştir.
__________________





Forum Kuralları
Ofis 2003 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104854.html
Ofis 2007 için makro güvenlik ayarları
http://www.excel.web.tr/f157/ofis-20...k-t104852.html
Timer Nesnesinin kurulumu
http://www.excel.web.tr/f167/timer-n...mu-t78713.html
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-09-2011, 23:45   #7
Murat OSMA
Altın Üye
 
Murat OSMA kullanıcısının avatarı
 
Giriş: 23/05/2011
Şehir: İstanbul
Mesaj: 4,903
Excel Vers. ve Dili:
Excel 2016 - Türkçe
Varsayılan

Teşekkürler Halit Bey...
Murat OSMA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-09-2011, 15:24   #8
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 424
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan kusura bakmayın

farketmeden oldu yonetiçi onaylı yayınlanan bir konu olduğunu farketiğimde hata veriyor sanıp bir kackere aynı konuyu göndermiştim kusura bakmayın
ikikan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-09-2011, 17:50   #9
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 424
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan

neden kod hata veriyor yardım edebilirmisiniz


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As ADODB.Connection
Dim yol As ADODB.Recordset
Set baglanti = New ADODB.Connection
Set yol = New ADODB.Recordset

ListBox2.Clear
yer = ("E:\PEGEM2008\YAPTIGIM PROGRAMLAR\PegemMT\KartP\")
dosya = "" & ListBox1.Value & ".xlsx"
baglanti.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= yer & dosya & ;Extended Properties=""Excel 12.0 Macro;HDR=YES';"""
yol.Open "SELECT * FROM [Sayfa1$];", baglanti, adOpenStatic, adLockReadOnly
yol.MoveFirst

Do Until yol.EOF
ListBox2.AddItem yol(1)
ListBox2.ColumnCount = 10
yol.MoveNext
Loop
baglanti.Close


End Sub
ikikan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-10-2011, 15:18   #10
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 424
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan neden value degeri atıyamıyorum

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim baglanti As Object, yer As Object, sayfa As Object
Set baglanti = New ADODB.Connection
Set yer = New ADODB.Recordset

acab kaplı dosyaları acmak için neden value degeri belirliyemiyorum

ListBox2.Clear
baglanti.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & _
ThisWorkbook.Path & "\KartP\" & ListBox1.Value & ".xlsx ;Extended Properties='Excel 12.0 Macro;HDR=YES';"
yer.Open "Select * From [Sayfa1$];", baglanti, 1, 1
With ListBox2
.AddItem
.ColumnCount = 1
.List(0, 0) = yer(0)
End With
Label1.Caption = ""
Label1.Caption = ListBox1.Value
yer.Close
baglanti.Close
End Sub
ikikan Ç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 04:54


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden