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 03-11-2014, 15:46   #1
maren
Altın Üye
 
Giriş: 18/05/2009
Şehir: adana
Mesaj: 24
Excel Vers. ve Dili:
excel 2008
Varsayılan kapalı dosyadan veri alma hk.

Arkadaşlar ekli dosyada kapalı excel dosyasından a ile c sütunlarından seçip en son 117 satıra kadar hepsini açık olan excel dosyasına aktarmasını istiyorum. fakat o excel dosyası hep farklı olacak yani 117 satır değil de 250 satırda olabilir.
Şimdiden teşekkürler.
Eklenmiş Dosyalar
Dosya Türü: rar deneme.rar (22.7 KB, 8 Görüntülenme)
maren Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 17:38   #2
Baggwell
Altın Üye
 
Giriş: 13/04/2013
Şehir: Bursa
Mesaj: 767
Excel Vers. ve Dili:
Office Excel 2016 TR Home & Business
Varsayılan

Merhaba

Forumda kapalı dosyadan veri alma diye aratırsanız epey konu mevcut
Baggwell Çevrimdışı   Alıntı Yaparak Cevapla
Eski 03-11-2014, 18:38   #3
maren
Altın Üye
 
Giriş: 18/05/2009
Şehir: adana
Mesaj: 24
Excel Vers. ve Dili:
excel 2008
Varsayılan

Doğrudur arattım 3 gündür de uğraşıyorum hazır dosyalar üzerinden değişiklik yapıyorum fakat bir türlü yapamadım hata veriyor.
Saygılarımla.
maren Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-11-2014, 00:27   #4
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Dosyanız ektedir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Dim conn As Object, rs As Object, sonsat As Long
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
sonsat = Cells(Rows.Count, "A").End(xlUp).Row + 1
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook.Path & "\kapalı.xlsm;extended properties=""excel 12.0;hdr=no;imex1"""
rs.Open "select * from [Sayfa1$];", conn, 1, 3
Application.ScreenUpdating = False
If rs.RecordCount > 0 Then Range("A" & sonsat).CopyFromRecordset rs
Application.ScreenUpdating = True
rs.Close
conn.Close
Set rs = Nothing:  Set conn = Nothing
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub
Eklenmiş Dosyalar
Dosya Türü: zip deneme599.zip (28.3 KB, 56 Görüntülenme)
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-04-2017, 23:41   #5
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 514
Excel Vers. ve Dili:
ofis 2010
Varsayılan sayfa seçimi nasıl değişir.

Alıntı:
Orion1 tarafından gönderildi Mesajı Görüntüle
Dosyanız ektedir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Dim conn As Object, rs As Object, sonsat As Long
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
sonsat = Cells(Rows.Count, "A").End(xlUp).Row + 1
conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook.Path & "\kapalı.xlsm;extended properties=""excel 12.0;hdr=no;imex1"""
rs.Open "select * from [Sayfa1$];", conn, 1, 3
Application.ScreenUpdating = False
If rs.RecordCount > 0 Then Range("A" & sonsat).CopyFromRecordset rs
Application.ScreenUpdating = True
rs.Close
conn.Close
Set rs = Nothing:  Set conn = Nothing
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub
makro sorunsuz çalışor. 15 çalışma sayfası olan çakışma kitabında denedim. sayfalardan birinden bilgileri getiriyor. çalışma sayfasını değiştirme seçeneğini çözemedim. yardımcı olursanız sevinirim. teşekkürler
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-04-2017, 23:46   #6
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,659
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Alıntı:
igultekin2000 tarafından gönderildi Mesajı Görüntüle
makro sorunsuz çalışor. 15 çalışma sayfası olan çakışma kitabında denedim. sayfalardan birinden bilgileri getiriyor. çalışma sayfasını değiştirme seçeneğini çözemedim. yardımcı olursanız sevinirim. teşekkürler
sayfa adını kırmızı renkle belirledim.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
rs.Open "select * from [Sayfa1$];", conn, 1, 3
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 06-04-2017, 22:17   #7
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 514
Excel Vers. ve Dili:
ofis 2010
Varsayılan bir ilave daha mümkün müdür.

Alıntı:
Orion1 tarafından gönderildi Mesajı Görüntüle
sayfa adını kırmızı renkle belirledim.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
rs.Open "select * from [Sayfa1$];", conn, 1, 3
kullanışı pratik ve hızlı, yanlız makroyu her çalıştırdığımızda verileri boş satıra ekliyor. mevcutları silip yerine yenilerini kaydetse veya mevcutlarda güncelleme yapsa daha kullanışlı olacak gibi, teşekkürler
igultekin2000 Ç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 01:36


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 - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve 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- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden