analiz (YARDIM)

[l4ncelot]

arkadaşlar..
ben makro yazmaya yeni başladım..
az çok VB biliyorum..
yardımınıza ihtiyacım var..
problemim şu:

şirketin mallarına ait ayrı bi otomasyon programında kartları var..
her kartın bi numarası var.. örn: 94756473928
ve kartın mevcudu var..
bir de kartta ait olduğu malzemeye ait üretim tarihi bilgisi var..
örneğin (1) 1980
yani 1980de ilk defa üretilmiş
mevcut kartları ve miktarlarını liste halinde excel.e alabiliyorum..
excel dosyasındaki sütunlar
stok nu. / malzeme adı / miktarı

ve şirketin alt bayileri var..
bayilerle şirket arasında bi otomasyon bağlantısı yok..
bayi sayısı 41
her bayi bir rapor çıkardı excel.de
benim işimde bunları birleştirip otomasyona girmek
onların çıkardığı exceldeki sütunlar
stok nu. / malzeme adı / üretim tarihi / miktarı / üretim tarihi / miktarı ...
123 elma (1) 1990 1 (2) 2002 4
321 armut (2) 2000 3
345 çilek (1) 1999 2 (2) 2008 1

bayilerin listesindeki üretim tarihi ve miktarı sütunları farklılık gösteriyor..
bir bayide 123 stok nu.lı elma malzemesinden sadece (2) 2002 tarihli mal varken başka bir bayide bütün üretimler olabiliyor.. (1) 1990, (2) 2002,
(3) 2008 gibi..

benim yapmak istediğim ve yardım istediğim makroda..
şirketin mevcut stok kartı listesindeki stok numaralarını sırayla alacak, bayilerin listesinde bulacak bulduğu satırdaki üretim tarihlerine ait miktarları alacak bunları toplayacak ve yeni bir liste yapacak, her ayrı üretim tarihine ait bilgi ayrı sütunda olacak
sütunlar
stok nu. / malzemenin adı / üretim tarihi ve miktarları
123 elma (1) 1990 345345 (2) 2002 756756 (3) 2008 5435
gibi..


çok mu şey istiyorum acaba?
ben kendimde bi çalışma yapıyorum..

ama başarısız olduğum bi konu var..
bayilerden gelen listedeki stok nu.larının baş tarafında boşluk var bu yüzden
şirketin listesindeki hücre değeriyle bayi listesindeki hücre değeri eşit olmuyor..

ben şöyle bişey yaptım.. yeniyim gülmeyin

SATIR=1
for x=1 to 5000
for y=1 to 4000

if Sirketsayfa1.cells(x,1)=trim(Bayisayfa2.cells(y,1) then
yeniSayfa3.cells(SATIR,1)=Bayisayfa2.cells(y,1)
yeniSayfa3.cells(SATIR,2)=Bayisayfa2.cells(y,2)
SATIR=SATIR+1
end if

Next y
Next x

ama işte burda trim bi işe yaramıyor
Bayisayfa2 nin ilk sütunundaki stok nu.larının önünde 1 boşluk var trim bu boşluğu silmiyor.. daha ben bunu halledemedim..
yukarda anlattıklarımı yapabilmem çok uzun zaman alır..
o yüzden yardımınıza ihtiyacım var..
salı günü akşambu işlemi bitirmem gerekiyor ((

 

[Skorpiyon]

Sayın l4ncelot,

Bu kadar yazı yerine küçükte olsa örnek bir dosya ekleseniz, sorunuza daha kısa sürede cevap alırsınız. Sizin bu istediklerinizi yapmak için bizim de oturup bahsettiğiniz şeyleri tek tek sayfa üzerinde ayarlamamız gerekecek.

Üstelik sizin anlattıklarınıza binaen, anlayabildiğimiz kadarıyla. Ki herkesin anlayacağı şey de farklı olabilir.

Düşünün şimdi;

Onca sayfa ayarlaması yap, onca çaba, emek, zaman sarfet ve dosyayı hazırlayıp buraya ekle. Sonra bir cevap. Benim istediğim bu değildi. A sütununda 1 değil müşteri ismi yazacaktı ???

Lütfen bu anlatım tarzıma alınmayın. Ama bir şeyi isterken, olabildiğince detaya inerek, herkesin aynı şeyi, doğru anlamasını sağlayacak şekilde ve ÖRNEK bir dosya ile isteyin.

 

[l4ncelot]

teşekkür ederim ilginize..
şu anda elimde bilgiler olmadığı için yükleyemedim..
ama bir çalışmanın yüklenmesi benim iişimi çok kolaylaştırır gerçekten..
kesinlikle ben bunu istemiyordum gibi bişey söylemem.
o çalışma üzerinden düzenlemeler yapmaya çalışırım..
sizinle msn.de görüşme şansımız var mı..
şu anda sizden bi taslak veya mantık alsam yarın çalışabileceğim..

 

[Skorpiyon]

Maalesef bir müddet önce msn kullanmayı bıraktım. Bilgisayarımda de şu an zaten yüklü değil.

Bu tür bir konuda ise (neyi yapacağınızı sizden başka kimse daha iyi bilemez) örnek dosyayı kendiniz hazırlamalısınız. Siz bir taslak hazırladıktan sonra bizler devreye girer ve tıkandığınız noktalarda yardımcı olmaya çalışırız.

 

[l4ncelot]

ok örnek bi çalışma hazırlayıp gönderiyorum hemen..

 

[l4ncelot]

nasıl dosya ekleneceğenizi bilmediğimden rapidshare a attım..

açıklama..
4 (2008) : ilgili malzemenin 4ncü defa yenileştirildiği ve bu yenişleştirilmenin 2008 yılında yapıldığı anlamına geliyor..
öyle malzemeler olabiliyor ki sadece 2 güncelleştirme görümüş ve bu da 1980 yılında yapılmış olabiliyor.. (2) 1980
yani her ANALİZ isimli sayfada her malzeme için yenileştirme sayısı 4 olacak diye bişey yok.. bazı malzemelerde 1 bazılarında 2,3 veya 4 olabilir..

 

[l4ncelot]

http://rapidshare.com/files/134634220/firma-bayi-analiz.xls.html

 

[l4ncelot]

asıl dosyalar iş yerinde olduğu için gönderemiyorum