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 07-12-2013, 23:09   #1
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan seçilen sayfalardan ve sütunlardan veri almak.

Merhaba,
Seçilen sayfaların.Seçilen sütunlarındaki verileri birleştirerek sıralamak (makro ile).Selamlar.
Eklenmiş Dosyalar
Dosya Türü: xlsm Seçilen Sayfalardan,Seçilen verileri Alma.xlsm (341.7 KB, 22 Görüntülenme)

Bu mesaj en son " 10-12-2013 " tarihinde saat 17:33 itibariyle cerit tarafından düzenlenmiştir....
cerit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2013, 11:00   #2
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan

Merhaba,
Sitede sayfalardan veri taşıma ile ilgili çok sayıda örnek var ama,hemen hepsi;bütün sayfalardan ve sıralı sütunların tamamının birleştirilerek aktarılması şeklinde gördüm.Gözümden kaçan bu örneğe uygun çalışma varsa uyarılarınız yardımcı olacaktır.
Bunun farkı hem sayfa seçilecek,hemde sayfadaki yine sadece seçilen sütunlar birleştirilerek aktarılacak.
Selamlar.
cerit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2013, 11:46   #3
ZorBey_
Destek Ekibi
 
Giriş: 14/05/2011
Şehir: Ankara
Mesaj: 2,188
Excel Vers. ve Dili:
Excel 2003 Türkçe
Varsayılan

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.
Eklenmiş Dosyalar
Dosya Türü: rar Sayfalardan Veri Al.rar (93.2 KB, 47 Görüntülenme)
ZorBey_ Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2013, 12:28   #4
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan

Hocam,
İlginiz ve emeğiniz için teşekkür ederim.
Eğer mümkünse:
Sayfa1!deki Ali2,sayfa2'de olursa toplatabilirmiyiz.(her hanği iki sayfada)
Sayfa1 B sütun sonunda çıkan "FIL DOL" nedir?kaldırılabilirmi?
Sayfa va sütunların azaltılıp çoğaltılabilmesi için kod'un "o"yerini kırmızı ile belirtebilirmisiniz?
selamlar.

Bu mesaj en son " 09-12-2013 " tarihinde saat 14:01 itibariyle cerit tarafından düzenlenmiştir....
cerit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2013, 12:44   #5
ZorBey_
Destek Ekibi
 
Giriş: 14/05/2011
Şehir: Ankara
Mesaj: 2,188
Excel Vers. ve Dili:
Excel 2003 Türkçe
Varsayılan

Merhaba Sayın cerit

Sayfalardaki İsimler Örnek İSimler Siz
Sayfalarınızdaki İsimleri Hangi Sayfaya
Yazmak İStiyorsanız O Sayfaya YAzın

Her Sayfanın 1321.Satırında FIL Dol Yazıyor
Sizin Dosyanız Siz Ne OLduğunu Bilmelisiniz
İşinize Gelmiyorsa FIL Dol Yazanları Silin.

İyi Çalışmalar.
ZorBey_ Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2013, 12:57   #6
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan

Hocam.
"FIL DOLU" benim dikkatsizliğim, sizi yoruyorsam özür dilerim.
Ali2 ayın 5 günü sayfa1'de, geriye kalan günlerde sayfa2'de çalışmışsa (veya başka sayfada) aynı kişi olduğu için bunu birleştirerek aktarabilirmiyiz?Veriyi sadece harf olan sayfalardan alacak.dosya üzerinde anlatmaya çalıştım.
İsimler olduğu için esas dosyayı buraya Yükleyemiyorum.posta adresiniz olursa size iletebilirim.siteden bulamadım.İyi çalışmalar, selamlar.
Eklenmiş Dosyalar
Dosya Türü: rar sayfalardan veri al.rar (94.0 KB, 17 Görüntülenme)

Bu mesaj en son " 08-12-2013 " tarihinde saat 19:35 itibariyle cerit tarafından düzenlenmiştir....
cerit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2013, 19:04   #7
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan

Option Compare Text
Private Sub CommandButton1_Click()
Dim S1 As Worksheet, Sayfa As Worksheet, X As Long, Satir As Long
Set S1 = Sheets("BORDRO")
S1.Range("B10:C65536,E10:F65536").ClearContents
Satir = 10
For Each Sayfa In ThisWorkbook.Worksheets
If Sayfa.Name <> "BORDRO" And Sayfa.Name <> "VERİ" Then (VERİ sayfasında olduğu gibi,"FAT" ve "BÖL" sayfalarından değer almamalı)
(seçilen sayfa azaldığında veya çoğaldığında nasıl ekler veya çıkartırım-ekli dosyaya göre örneklenebilirmi.)(aynı şekilde seçilen sütünlar değiştiğinde)(harf olan sayfalardan veri alınacak,diğer sayfalar hariç)
For X = 5 To Sayfa.Range("B65536").End(3).Row
If Sayfa.Cells(X, 2) <> 0 Then
'Cells(Satir, 1) = Satir - 9
S1.Cells(Satir, 2) = Sayfa.Cells(X, 2)
S1.Cells(Satir, 5) = Sayfa.Cells(X, 38)
S1.Cells(Satir, 6) = Sayfa.Cells(X, 37)
Satir = Satir + 1
End If
Next
End If
Next
End Sub
Private Sub CommandButton2_Click()
Range("B10:C65536,E10:F65536").Select
Selection.ClearContents
Range("A1").Select
End Sub
Sub Makro2()
Range("A10:A11").Select
Selection.AutoFill Destination:=Range("A10:A1009")
Range("A10:A1009").Select
Range("A1").Select
End Sub

dosya #6 yüklü.Selamlar.

Bu mesaj en son " 09-12-2013 " tarihinde saat 09:11 itibariyle cerit tarafından düzenlenmiştir.... Neden: Sorunumu daha iyi anlatabilmek
cerit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-12-2013, 07:53   #8
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan

merhaba,
1.iki sayfada olan değeri birleştirerek aktarmak,
2.dosyada olduğu gibi sadece harflerle ifade edilen sayfalardan değer alsın,diğerlerinden (BORDRO sayfası kendisi hariç 3 sayfadan) almasın istiyorum.bunu değer alınmayacak sayfaları sola alıp değer alınacak sayfa sayısını kodu'da ona göre düzenleme yapabilirmi.
selamlar.

Bu mesaj en son " 09-12-2013 " tarihinde saat 14:05 itibariyle cerit tarafından düzenlenmiştir....
cerit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-12-2013, 14:46   #9
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan

Harf olan sayfalar veri alınacak sayfalar,
Renkli olan diğer sayfalar veri alınmayacak sayfalar.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Dim S1 As Worksheet, Sayfa As Worksheet, X As Long, Satir As Long
Set S1 = Sheets("BORDRO")
S1.Range("B10:C65536,E10:F65536").ClearContents
Satir = 10
For Each Sayfa In ThisWorkbook.Worksheets
If Sayfa.Name <> "BORDRO" And Sayfa.Name <> "VERİ" Then (VERİ sayfasında olduğu gibi,"FAT" ve "BÖL" sayfalarından değer almamalı)
(seçilen sayfa azaldığında veya çoğaldığında nasıl ekler veya çıkartırım-ekli dosyaya göre örneklenebilirmi.)(aynı şekilde seçilen sütünlar değiştiğinde)(harf olan sayfalardan veri alınacak,diğer sayfalar hariç)
For X = 5 To Sayfa.Range("B65536").End(3).Row
If Sayfa.Cells(X, 2) <> 0 Then
'Cells(Satir, 1) = Satir - 9
S1.Cells(Satir, 2) = Sayfa.Cells(X, 2)
S1.Cells(Satir, 5) = Sayfa.Cells(X, 38)
S1.Cells(Satir, 6) = Sayfa.Cells(X, 37)
Satir = Satir + 1
End If
Next
End If
Next
End Sub
Sayın asr35 hocamın katkısıyla düzenlemeye çalıştığım bu çalışmayı bitirebilmem ve formüllerin mantığını anlayabilmem için yardımlarınızı ihtiyacım var.
1.Veri alınan ve alınmayan olarak seçitiğim Sayfalar değiştiğinde (sayısı yada adı)ve aynı şekilde sütunlar değiştiğinde kod'da nasıl bir değişiklik yapılmalı.
2."A"sayfasında olan Ali2 "B" sayfasında var,BORDRODA birleştirilebilirmi.
dosyayı yeniden ekliyorum.selamlar.
Eklenmiş Dosyalar
Dosya Türü: rar sayfalardan veri al.rar (93.7 KB, 22 Görüntülenme)

Bu mesaj en son " 09-12-2013 " tarihinde saat 17:57 itibariyle cerit tarafından düzenlenmiştir....
cerit Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-12-2013, 15:36   #10
cerit
Altın Üye
 
Giriş: 01/09/2012
Şehir: Tekirdağ
Mesaj: 166
Excel Vers. ve Dili:
2007 - 2010 Türkçe 32
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
Dim S1 As Worksheet, Sayfa As Worksheet, X As Long, Satir As Long
Set S1 = Sheets("BORDRO")
Application.ScreenUpdating = False
S1.Range("B10:C65536,E10:F65536").ClearContents
Satir = 10
For Each Sayfa In ThisWorkbook.Worksheets
If Sayfa.Name <> "BORDRO" And Sayfa.Name <> "VERİ" Then
If Sayfa.Name <> "FAT" And Sayfa.Name <> "BÖL" Then
For X = 5 To Sayfa.Range("B65536").End(3).Row
If Sayfa.Cells(X, 2) <> 0 Then
'Cells(Satir, 1) = Satir - 9
S1.Cells(Satir, 2) = Sayfa.Cells(X, 2)
S1.Cells(Satir, 5) = Sayfa.Cells(X, 38)
S1.Cells(Satir, 6) = Sayfa.Cells(X, 37)
Satir = Satir + 1
End If
Next
End If
End If
Next
End Sub
Belki benim gibi öğrenmeye çalışan,çok uğraşan birisi faydalanır.Yukarıda kırmızı bölümü ekleyerek sayfa seçme sorununu çözdüm.Selamlar.

Bu mesaj en son " 10-12-2013 " tarihinde saat 16:14 itibariyle cerit tarafından düzenlenmiştir....
cerit Ç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 07:48


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-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden