İki exceli karşılaştırıp ana excele aktarma

  • Konuyu başlatan Konuyu başlatan selis
  • Başlangıç tarihi Başlangıç tarihi

selis

Kullanıcı
Katılım
17 Mar 2021
Mesajlar
721
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Arkadaşlar herkese selamlar, ekteki dosyada 2 adet excel ve 1 ana excel bulunmaktadır. 2 adet excel ( zpp001 ve zpp043 isimli)

zpp043'te yer alan fis no sütunu zpp001'de yer alan fis no C sütunu ile aynı ise (tüm satırları kontrol eder) zpp001'de N sütununu "-" çizgisinden ayırıp zpp043'te E sütununu yine "-" kısmından ayırıp aynı değil ise ana excele KYOK exceline ZPP043'teki FİŞ NO(C SÜTUNU) VE PYP NUM(B SÜTUNU), malzeme (E sütununu) SHEET1'E yazsın.
 
Performans değerlendirme formu
hakki83
İşaretlenmiş sonuçların listelenmesi

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
@selis

KYOK belgesinde, olması gereken sonuçlara göre (gerekirse elle yazarak) örneklendirme yaparsanız iyi olur.
Ayrıca bu sonuçlara nasıl ulaştığınıza dair kısa/net ve belge/sayfa/hücre bilgilerini net ifade ederek açıklama yazmanızda yarar var.

Bir de karşılaştırılacak belgelerin isimleri sabit midir, KYOK belgesiyle diğer karşılaştırılacak belgeler bilgisayarınızda aynı klasörde midir...
gibi işleyişle ilgili genel bilgiler vermeniz de önemli tabi. Son olarak 001 isimli belgede değil ama 043 isimli belgede FİŞ NO sütununda mükerrer (çok sayıda) olan satırlar var, bunların durumunu da netleştirmek lazım.

.
 
Oyla 0 Olumsuz oyla
Öncelikle hepsını bır dosyaya aldım hocam aynı uzantıda. Fiş no için evet zpp043'te birden fazla değer var zpp001'de 1 tane değer var.

Ekledim son halini.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
@selis
Mükerrerlikle ilgili durumu zaten fark ettiğim için bunların durumunun ne olacağını açıklamanızı istemiştim.
Siz se zaten benim söylediğim mükerrerlik var demişsiniz. ;)
Mükerrerlerin ÜRETİM SİPARİŞİ sütunu farklı verilerden oluşuyor, bunun bir önemi var mı?

Mükerrer olanlar, sonuç listeye 1 kez mi yazılacak onu sormuştum aslında.

.
 
Oyla 0 Olumsuz oyla
Özür dilerim hocam anlayamadım, evet 1 kere yazılacak. ÜRETİM SİPARİŞİ önemli değil hocam cunku 1 excelde var malesef ıkısınde de yok.
 
Oyla 0 Olumsuz oyla
Belgeniz ekte Sayın @selis .

Kullanılan kodlar aşağıda gösterildi.
043 ve 001 isimli belgelerin bu belgeyle aynı dizinde olduğu varsayıldı.

Sayfadaki XD simgesine tıklayın, X simgesi alanı temizler.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(86 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Hocam elinize saglık, sizde olmadı muhtemelen ama bende asagıdakı hatayı verdı tek tek calıstırdım asagıdakı kod kısmında bu hatayı verdı.
1633951479961.webp

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(26 satır)
 
Oyla 0 Olumsuz oyla
@selis
Denemeden cevap yazmam pek.
Bende bir soruna rastlamadım.

Hata verdiğinde sadece bu uyarıyı mı alıyorsunuz yoksa,
VBA ekranı açılıp herhangi bir kod satırı SARIya boyanıp kod duruyor mu?
 
Oyla 0 Olumsuz oyla
Nerde durduğunu tam anlayamadım.
If say2 > 0 Then satırında kodun durmasını sağlar mısınız.
Şöyle yapacaksınız; VBA ekranında imleci bu satıra getirin ve F9 tuşuna 1 kez basın.
İlgili satır şöyle görünecek.

1633953672294.webp


Sonraki satırlara devam etmek için aralıklarla F8 tuşuna basın.

.
 
Oyla 0 Olumsuz oyla
F9 yaparak BORDO boyanan satıra geliyor mu, gelmeden mi hata alıyorsunuz, anlayamadım.
Eğer bu satıra gelip F8'e bir kez bastığınızda hata alıyorsanız durum farklı çünkü.

Veri kaynağı belgelerin isimleri, konumları belirttiğim (kodda yer aldığı) gibi değil mi?
Kaynak belgelerdeki satır/sütun yapıları da foruma eklediklerinizle aynı mı (biri B sütunundan başlıyordu, diğeri A sütunundan) ?

Bence en iyisi önce, gönderdiğim belgeyi foruma eklediğiniz belgelerle aynı klasöre alıp, örnek belgeler üzerinden çalıştırın.
Dosya isimlerine dikkat.
.
 
Oyla 0 Olumsuz oyla
Şu RAR dosyayı RAR'dan çıkartıp (RAR'dan klasöre çıkartmadan çalıştırırsanız hata alırsınız),
denemelerinizi bu yeni klasör/belgede yapın bakalım.
Bir süre bilgisayarda olamayacağım, sonucu yazarsınız.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Dosyalarınızın yapısı aklımdayken,
zpp043 ve zpp001 belgelerinden,
gerekli olabilecek başka bilgi varsa onlarla ilgili olarak kod güncellemesine bakayım.
 
Oyla 0 Olumsuz oyla
Hocam devamında şöyle bir sey düşünmüştüm, "-" sonrası için (kalite kısmı yanı) kalite sayfasında verilen matrise göre sheet1 de D hücresine "Alt kalite kesilmiş" şeklinde kırmızıya boyayıp yazmasını ıstıyorum. Acıklama dosya ıcınde hocam.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
@selis

Yeni belge ekte. Yine RAR'dan klasöre çıkartarak deneyin.
Kodlar aşağıdaki şekilde güncellendi. F sütununa E/H sonuçları yazdırılır.
F sütunu için, H harfine göre koşullu biçimlendirmeyi kendiniz uygulayabilirsiniz sanırım.

Dikkat: örnek verilerinize göre oluşan D ve E sütunundaki "-" sonrası kısımların bir kısmı
Kaliteler sayfasındaki satır ve sütun başlıklarında yok. Durumu böyle olanlar için F sütunu hücresi boş kalır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(84 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Evet hocam kaliteler kısmında genişleticem matrisi, su an calısıyor cok cok teşekkür ediyorum emeğinize saglık.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt