[Yardım]  İki sayfayı tek sayfada birleştirme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

İki sayfayı tek sayfada birleştirme

İleti#1)  Bedrettin DEMİRCİ » 05 Kas 2019 08:25

Değerli forum arkadaşlarım
Ekte gönderdiğim dosyada 3 sayfa var
İki sayfa dolu bir sayfa boş
Boş olan "birleştirme" sayfasına diğer iki sayfayı yan yana sütunlara birleştirilmem gerekiyor
Yardımcı olurmusunuz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#2)  Bedrettin DEMİRCİ » 07 Kas 2019 08:37

Her iki sayfada bulunan listeler büyük oranda aynı ama birinde olan diğerinde olmayabiliyor diğerinde de aynı şekilde eksik fazla olabiliyor
Birleştirme sayfasına birleştirirken kütük liste belirlemem lazım sonra her iki sayfadaki değerleri bu listeye eklemek laızm
Kodla yapılabilirse çok sağlıklı olacak
Eğer yardımcı olursanız çok memnun olurum
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#3)  Bedrettin DEMİRCİ » 07 Kas 2019 15:44

Birleştir sayfasında Her iki sayfada da olan ürünleri teke düşürüp yanındaki değerleri Birleştir sayfasına çekecek bir kod olması lazım.
Yardımcı olursanız çok memnun olurum.. :)
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#4)  Bedrettin DEMİRCİ » 09 Kas 2019 07:09

Birleştir sayfasında
Her iki sayfada da olan ürünleri
teke düşürüp
yanındaki değerleri Birleştir sayfasına çekecek
bir kod olması lazım.

Yardımcı olursanız çok memnun olurum.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: İki sayfayı tek sayfada birleştirme

İleti#5)  Bedrettin DEMİRCİ » 11 Kas 2019 11:03

2 SAYFA VAR TEK SAYFAYA BİRLEŞECEK
Yardımcı olursanız memnun olurum
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#6)  Bedrettin DEMİRCİ » 12 Kas 2019 07:43

GÜNAYDIN ARKADAŞLAR
Bu iki sayfayı birleştirecek yok mu ?
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: İki sayfayı tek sayfada birleştirme

İleti#7)  Bedrettin DEMİRCİ » 13 Kas 2019 10:09

Günaydın Değerli forum sakinleri :)
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#8)  Bedrettin DEMİRCİ » 14 Kas 2019 16:33

Arkadaşlar... [upp]
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#9)  erseldemirel2 » 14 Kas 2019 20:29

Basit birşey yaptım. İşe yararmı bir deneyin. Ekim ayını el ile birleştir sayfasına kopyaladım. Ekime ait değerler
birleştir sayfasında yer aldı. Ardından makro ile kasım ayındaki bilgileri onlara dağıttım. Burada sadece stok no ve magaza kodunu dikkate aldım. Ama haliyle uzun sürmektedir. 2-3 dakika olabiliyor. 17 milyon kez işlem yapıyor. "Scripting.Dictionary" kullanılarak daha iyi yapılabilir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: İki sayfayı tek sayfada birleştirme

İleti#10)  erseldemirel2 » 14 Kas 2019 22:33

Tools > References. Microsoft Scripting Runtime mutlaka ekli olmalı. Ekte örnek var. Basit bir Scripting.Dictionary örneği. Meyvelerin toplamın buluyor aynı olanlardan. Sizin talebinize belki uyarlanabilir
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: İki sayfayı tek sayfada birleştirme

İleti#11)  Bedrettin DEMİRCİ » 15 Kas 2019 07:47

erseldemirel2 yazdı:Basit birşey yaptım. İşe yararmı bir deneyin. Ekim ayını el ile birleştir sayfasına kopyaladım. Ekime ait değerler
birleştir sayfasında yer aldı. Ardından makro ile kasım ayındaki bilgileri onlara dağıttım. Burada sadece stok no ve magaza kodunu dikkate aldım. Ama haliyle uzun sürmektedir. 2-3 dakika olabiliyor. 17 milyon kez işlem yapıyor. "Scripting.Dictionary" kullanılarak daha iyi yapılabilir.


Yavaş olsada iş yapar
Sorun şu ki Ekim sayfasında fazlalıklar var kasımda da var
Ekim manuel alındığı için o fazlalıklar zaten birleştir sayfasında
ama kasımın fazla olanları dışarda kalıyor
oda çözülürse olur
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#12)  Bedrettin DEMİRCİ » 15 Kas 2019 09:07

Orjinal koda İlave yaptım ve kasım ayında eksik olanları bulmak için

If magaza = brs.Range("B" & i) And stok = brs.Range("D" & i) Then
satir = brs.Range("B" & i).Row
brs.Range("H" & satir) = ksm.Range("F" & j)
brs.Range("I" & satir) = ksm.Range("G" & j)
ksm.Range("H" & j).Value = "Ekl"
End If
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#13)  Bedrettin DEMİRCİ » 15 Kas 2019 16:10

Bu kod iyi iş yapıyor ama çok yavaş
çok bekliyorum.
hızlanamaz mı

Sub hesapla()
Application.ScreenUpdating = False
Dim ekm As Worksheet
Dim ksm As Worksheet
Dim brs As Worksheet
Set ekm = Sheets("Ekim")
Set ksm = Sheets("Kasım")
Set brs = Sheets("Birleştir")
sonsatirksm = ksm.Range("B65536").End(3).Row
sonsatirbrs = brs.Range("B65536").End(3).Row
For j = 2 To sonsatirksm
magaza = ksm.Range("B" & j)
stok = ksm.Range("D" & j)
For i = 2 To sonsatirbrs
If magaza = brs.Range("B" & i) And stok = brs.Range("D" & i) Then
satir = brs.Range("B" & i).Row
brs.Range("H" & satir) = ksm.Range("F" & j)
brs.Range("I" & satir) = ksm.Range("G" & j)
ksm.Range("H" & j).Value = "Ekl"
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: İki sayfayı tek sayfada birleştirme

İleti#14)  erseldemirel2 » 16 Kas 2019 12:32

2.mudule ekledim ve liste adlı geçici bir sayfa oluşturdum. az sürede yaptı bende.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: İki sayfayı tek sayfada birleştirme

İleti#15)  erseldemirel2 » 16 Kas 2019 13:40

For i = 2 To sonsatirbrs Kısmını değiştirdim. Binlerce satırı taratmaya gerek kalmadı. mağaza kodu örneğin 103 ise hangi satır aralığında geçiyorsa o aralıkda işlem yaptırdım. Böylece işlem tasarrufu yaptırıldı.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: İki sayfayı tek sayfada birleştirme

İleti#16)  erseldemirel2 » 16 Kas 2019 19:11

En sadeleştirdiğim hali ekte 20 saniyede işlem yapıyor
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 487
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: İki sayfayı tek sayfada birleştirme

İleti#17)  osmanyd » 17 Kas 2019 15:07

Kolay gelsin, kolay ve basit şekilde çözüm, naçizane belki işine yarar.
1-FÖRMÜLLÜ İki sayfayı tek sayfada birleştirme.xlsm
2-MAKROLU İki sayfayı tek sayfada birleştirme.xlsm
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 15:35
Konum: istanbul
Meslek: öğrenci
Yaş: 55
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: İki sayfayı tek sayfada birleştirme

İleti#18)  osmanyd » 17 Kas 2019 15:14

Kolay gelsin, kolay ve basit şekilde çözüm, naçizane belki işine yarar.
1-FÖRMÜLLÜ İki sayfayı tek sayfada birleştirme.xlsm
2-MAKROLU İki sayfayı tek sayfada birleştirme.xlsm
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanyd
Yeni Başlamış
 
Adı Soyadı:Osman Yagmurdereli
Kayıt: 19 Tem 2011 15:35
Konum: istanbul
Meslek: öğrenci
Yaş: 55
İleti: 96
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Istanbul

Cevap: Cevap: İki sayfayı tek sayfada birleştirme

İleti#19)  Bedrettin DEMİRCİ » 18 Kas 2019 07:23

osmanyd yazdı:Kolay gelsin, kolay ve basit şekilde çözüm, naçizane belki işine yarar.
1-FÖRMÜLLÜ İki sayfayı tek sayfada birleştirme.xlsm
2-MAKROLU İki sayfayı tek sayfada birleştirme.xlsm


Teşekkür ederim emeğinize sağlık

İki sayfayı birleştirirken eksik olmuş
sadece stokları baz almışsınız
hangi stok hangi şubede her iki ayda ne kadar adet ve tutar varmış bunu görebilmeliyiz
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cevap: İki sayfayı tek sayfada birleştirme

İleti#20)  Bedrettin DEMİRCİ » 18 Kas 2019 07:24

erseldemirel2 yazdı:En sadeleştirdiğim hali ekte 20 saniyede işlem yapıyor


Eksik kalanlar var
her iki sayfadada diğer sayfada olmayan stok var Ekim ayı tamam çünkü aynen kopyalıyoruz ama kasım ayında fazlalık olan stok var onlarıda birleştirilen sayfay aalmalıyız
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 39
İleti: 1721
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe