• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

2 dosya arasına veri aktarma

P

pigment79

Katılım
3 Şubat 2006
Mesajlar
57
üstadlar konuyu dosyalarda anlattım, ancak; ek olarak sunamıyorum. forum sayfasında daha önce olan bu özellik aktif değil ne yapabilrim....
 
pigment79' Alıntı:
üstadlar konuyu dosyalarda anlattım, ancak; ek olarak sunamıyorum. forum sayfasında daha önce olan bu özellik aktif değil ne yapabilrim....
Genişletmek için tıkla ...

dosya eklebilirsiniz_?
sanırım dosya boyutlarınız çok yüksek ondan kaynaklanıyor. bir upload sitesinden yükleyin ve link'i burada paylaşın
 
Üretim takip xls dosyası, aşağıdaki linkte. klasörde 20 ye yakın farklı firma var. yani her firmanın içinde her ürün için 1,2,3,4,5 diye devam eden üretim takip formları var.
C:\Documents and Settings\Administrator\Desktop\KALİTE KONTROL\ÜRÜN TANIM KODLARI\Kutular

Kutu_üretım 2011 bu klasörde.
C:\Documents and Settings\Administrator\Desktop\Üretim
 
pigment79' Alıntı:
Üretim takip xls dosyası, aşağıdaki linkte. klasörde 20 ye yakın farklı firma var. yani her firmanın içinde her ürün için 1,2,3,4,5 diye devam eden üretim takip formları var.
Genişletmek için tıkla ...
burayı anlamadım açıklar mısınız_?
20 yakın firma derken neyi kastediyorsunuz. bu dosyalarda firma ile ilgili herhangi bir bilgi yok
 
Link için teşekkürler. daha önce benzer şekilde ek dosyalar paylaşmıştım. Dosya ekle yazıyor ama, xls, bmp, jpg vs. ama ekle tıkı yok. yani o alan boş duruyor. Belki de chrome kullandığım için çıkmıyor. :) attım ama...Allah razı olsun.
 
pigment79' Alıntı:
Link için teşekkürler. daha önce benzer şekilde ek dosyalar paylaşmıştım. Dosya ekle yazıyor ama, xls, bmp, jpg vs. ama ekle tıkı yok. yani o alan boş duruyor. Belki de chrome kullandığım için çıkmıyor. :) attım ama...Allah razı olsun.
Genişletmek için tıkla ...

merhaba
dosya ekle veya sil'e tıklayın - dosya seç - bunu yaptıktan sonra Upload deyin
 
Sizden en başta istediğim 2 dosya arasındaki verilerin aktarılmasıydı. Devamındaki tüm detaylar 2 dosyanın bulunduğu adreslerdi. siz bu klasör adresleri doğrultusunda bir makro yazarsanız benim içn yeterlidir. devamında yeni sorular sorabilirim. teşekkürler.
 
pigment79' Alıntı:
Sizden en başta istediğim 2 dosya arasındaki verilerin aktarılmasıydı. Devamındaki tüm detaylar 2 dosyanın bulunduğu adreslerdi. siz bu klasör adresleri doğrultusunda bir makro yazarsanız benim içn yeterlidir. devamında yeni sorular sorabilirim. teşekkürler.
Genişletmek için tıkla ...

linkler bozulmuş sanırım indiremiyorum.
siteye eklemeyi izah etmiştim günceller misiniz_?
 
pigment79' Alıntı:
Size daha detaylı bir paylaşım daha yapıyorum. Umarım daha açıklayıcı olmuştur. saygılarımla.

http://www.upload.gen.tr/d.php/www/yertaxww/Yeni_Klas__r.rar.html
Genişletmek için tıkla ...

merhaba
boş bir module kopyalayın ve deneyin.
Not : Siz 3. satır'ın yazısını kırmızı hücre renginide kırmızı yapmışsınız bundan dolayı ilk anda görünmez ise rengini değiştirin.
Kod: 
Option Explicit
Sub aktar()
Dim ts, kaplan, trabzonspor, bordo, mavi, hamsi, kral
kaplan = MsgBox("Aktarıma Başlıyorum", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
Application.ScreenUpdating = False
Set bordo = CreateObject("wscript.Shell")
trabzonspor = bordo.SpecialFolders.Item("Desktop")
mavi = "KUTU_URETIM 2011.xls"
hamsi = ActiveWorkbook.Name
kral = ActiveSheet.Name
Workbooks.Open (trabzonspor & "\Üretim\" & mavi)
For ts = 2 To Workbooks(mavi).Sheets("DOSYA").Cells(65536, "A").End(xlUp).Row
If Workbooks(mavi).Sheets("DOSYA").Cells(ts, "A") = Workbooks(hamsi).Sheets(kral).Range("E6") Then
Workbooks(mavi).Sheets("DOSYA").Cells(ts, "J") = WorksheetFunction.Round(Workbooks(hamsi).Sheets(kral).Range("AA6"), 0)
End If
Next
Workbooks(mavi).Save
Workbooks(mavi).Close
Application.ScreenUpdating = True
MsgBox "Aktarım Tamamlandı", vbInformation, "Bitiş"
End Sub
 
Teşekkür.

İhsan Bey,
Çok teşekkür ederim. şu anki makro istediğim gibi. Ancak Kutu üretim açıkken ben başka bir sipariş için aktar dediğimde , kutu üretim zaten açık tekrar açılsın istermisin diye soruyor. Ben bir kaç dosya aktarımını sırayla program açıkken yapıyorum. bana her dafasında bunu sormasın. sadece aktarım başladı....bitti...bitirsin.
Bu arada "En Büyük Trabzon",,,GS den sonra. :)
Allah razı olsun.
 
pigment79' Alıntı:
İhsan Bey,
Çok teşekkür ederim. şu anki makro istediğim gibi. Ancak Kutu üretim açıkken ben başka bir sipariş için aktar dediğimde , kutu üretim zaten açık tekrar açılsın istermisin diye soruyor. Ben bir kaç dosya aktarımını sırayla program açıkken yapıyorum. bana her dafasında bunu sormasın. sadece aktarım başladı....bitti...bitirsin.
Bu arada "En Büyük Trabzon",,,GS den sonra. :)
Allah razı olsun.
Genişletmek için tıkla ...

Yazdığım kodda hem dosyayı açıyor hemde kapatıyor sizin açmanıza gerek yok siz direk verileri aktarmaya başlayın.
tartışma çıkar diğer konuda o yüzden yorum yazmıyacağım ( bana göre En Büyük Takım Trabzonspor Tüm İstanbul'a İsyan Çünkü ) bu konuda yorum yazılmaması doğru olur diye düşünüyorum. Çünkü herkesin sevdiği başka :)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst