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 16-01-2018, 22:04   #1
mttari
Altın Üye
 
Giriş: 19/11/2010
Şehir: ankara
Mesaj: 9
Excel Vers. ve Dili:
2007
Varsayılan sayfadan sayfaya toplu veri aktarma

Merhabalar,

sayfa1 de 5 sütunlu ve 500 satırlı bir veriyi sayfa2 ye makro yardımıyla toplu aktarmak istiyorum, sonraki gün de aynı işlemi tekrar yaptığımda sayfa1 deki verileri sayfa2 de 501 inci satırdan itibaren veri aktarımı yapacak bu konuda bana yardımcı olabilirmisiniz?

birde bununun haricinde excelde bir veriye ait değerleri internet sayfasından çekebiliyormuyuz? örnek; herhangi bir hisse senedine ait değerleri...

Şimdiden teşekkürler
Mehmet Tari

Bu mesaj en son " 16-01-2018 " tarihinde saat 23:26 itibariyle mttari tarafından düzenlenmiştir....
mttari Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2018, 23:10   #2
saban20152015
 
Giriş: 06/07/2015
Mesaj: 623
Excel Vers. ve Dili:
2003
Varsayılan

Hangi sütunlar, hangi satırdan başlayarak kopyalanacak ve sayfa2 de hangi satırdan itibaren yapıştırılacak. Sorulan tarih her bir satırın yanına tek tek yazdırılacak mı ? vb...

Sorunuzu örnek bir dosya ile destekleyin. Aksi takdirde bu belirsizliklerden dolayı konu uzayacaktır.
__________________
İnsanlık, para karşısında bugün de değer kaybetti.
saban20152015 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-01-2018, 23:50   #3
tulpar59
 
Giriş: 15/01/2018
Şehir: paris
Mesaj: 5
Excel Vers. ve Dili:
excel 2016
Varsayılan

yer = ComboBox2.Text
If yer = "" Then
MsgBox "aktarılacak sayfa seçimini yapmadınız"
Exit Sub
End If
yer1 = ComboBox1.Text
sat2 = 0
Sheets(yer).Cells(1, 1).Value = Sheets(yer1).Cells(1, 1).Value
For n = 2 To Val(ListView1.ColumnHeaders.Count)
Sheets(yer).Cells(1, n).Value = Sheets(yer1).Cells(1, n + sat2).Value
Next
sat1 = Worksheets(yer).[b65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count
For i = 0 To ListView1.ColumnHeaders.Count
On Error Resume Next
Sheets(yer).Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text
Next i
sat1 = sat1 + 1
Next r
Sheets(ComboBox2.Value).Select
Columns.EntireColumn.AutoFit
MsgBox "Verller sayfaya aktarıldı"

Kodları çalışmanıza uyarlayın.
__________________
NE MUTLU TÜRKÜM DİYENE. M.K.ATATÜRK.
tulpar59 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 09:48   #4
mttari
Altın Üye
 
Giriş: 19/11/2010
Şehir: ankara
Mesaj: 9
Excel Vers. ve Dili:
2007
Varsayılan sayfadan sayfaya toplu veri aktarma

ekli dosyada sayfa3 A3, H409 arası tüm değerleri yine aynı formatta sayfa6 içindeki değişkenlerin altına değerleri getirmek istiyorum.

ertrsi gün aynı işlemi tekrar yaptığımda sayfa3 teki yine A3, H409 arası verileri sayfa6 da 410 ncu satırdan itibaren veri atacak.

Teşekkürler
Eklenmiş Dosyalar
Dosya Türü: xlsx ornek hisse.xlsx (150.6 KB, 5 Görüntülenme)
mttari Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 11:10   #5
mttari
Altın Üye
 
Giriş: 19/11/2010
Şehir: ankara
Mesaj: 9
Excel Vers. ve Dili:
2007
Varsayılan

Alıntı:
tulpar59 tarafından gönderildi Mesajı Görüntüle
yer = ComboBox2.Text
If yer = "" Then
MsgBox "aktarılacak sayfa seçimini yapmadınız"
Exit Sub
End If
yer1 = ComboBox1.Text
sat2 = 0
Sheets(yer).Cells(1, 1).Value = Sheets(yer1).Cells(1, 1).Value
For n = 2 To Val(ListView1.ColumnHeaders.Count)
Sheets(yer).Cells(1, n).Value = Sheets(yer1).Cells(1, n + sat2).Value
Next
sat1 = Worksheets(yer).[b65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count
For i = 0 To ListView1.ColumnHeaders.Count
On Error Resume Next
Sheets(yer).Cells(sat1, i).Value = ListView1.ListItems(r).ListSubItems(i).Text
Next i
sat1 = sat1 + 1
Next r
Sheets(ComboBox2.Value).Select
Columns.EntireColumn.AutoFit
MsgBox "Verller sayfaya aktarıldı"

Kodları çalışmanıza uyarlayın.
ekli dosyada sayfa3 A3, H409 arası tüm değerleri yine aynı formatta sayfa6 içindeki değişkenlerin altına değerleri getirmek istiyorum.

ertrsi gün aynı işlemi tekrar yaptığımda sayfa3 teki yine A3, H409 arası verileri sayfa6 da 410 ncu satırdan itibaren veri atacak. bunun üzerinden yardımcı olabilirmisiniz

Teşekkürler
Eklenmiş Dosyalar
Dosya Türü: xlsx ornek hisse.xlsx (150.7 KB, 2 Görüntülenme)

Bu mesaj en son " 17-01-2018 " tarihinde saat 13:17 itibariyle mttari tarafından düzenlenmiştir....
mttari Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 15:49   #6
mttari
Altın Üye
 
Giriş: 19/11/2010
Şehir: ankara
Mesaj: 9
Excel Vers. ve Dili:
2007
Varsayılan

eklediğim örnek dosya ve istediklerim ile ilgili yardımcı olabilecekmisiniz?
mttari Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 23:37   #7
saban20152015
 
Giriş: 06/07/2015
Mesaj: 623
Excel Vers. ve Dili:
2003
Varsayılan

Altın üye olmadığımızdan dosyanızı göremiyor ve yardımcı olup olamayacağım konusunda da birşey söyleyemiyorum. Dilerim diğer üyelerden yardım alırsınız. Kolay gelsin...
__________________
İnsanlık, para karşısında bugün de değer kaybetti.
saban20152015 Ç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 18:57


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- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden