İki çalışma kitabı arasında liste oluşturma

H

hezarpare

Katılım
14 Eylül 2008
Mesajlar
139
Excel Vers. ve Dili
Office 2003 Serisi
Merhaba üstadlar
Fabrikada üretim emirlerini excel çalışma kitabıyla yönetiyorum ancak son zamanlarda bazı sıkıntılar olunca buna bir çözüm bulmam gerekti. Şu anda en son üretim emrimi kopyalayıp üzerinde değişiklik yaparak yeni emir oluşturuyorum üretim numarası ve listeleri takip noktasında bir sıkıntı olunca aşağıda ki ekte göreceğiniz üzere liste diye bir çalışma kitabı oluşturdum. Size sorum şu Liste adlı çalışma kitabında no sütununa üstten 1-1000 arası (bellki daha fazla numarayı) elle gireceğim (istisnai numarlar olursa müdahele etmem gerekiyor) ve üretimi tuttuğum diğer çalışma kitabımı açıp gerekli düzeltmeleri yapacağım çıktısını aldıktan sonra dosyayı kapatırken dosya kayıttan önce liste çalışma kitabından en son boş olan numarayı alacak ve numaranın karşısını sütunun başlığına göre dolduracak. Bunu nasıl yapabilirim?
Önemli Not: Üretim forumlarını aylara ayırıp kalsörlerde tutuyorum. Liste çalışma kitabım bir üst dizindedir.

Şimdiden çok teşekkürler...
 

Ekli dosyalar

İ

İhsan Tank

Misafir
Lütfen dosya üzerinde bir kaç giriş yaparak gönderiniz_?. Dosya üzerinde şu bilgi şu sütuna gidecek diye de yazarsanız yardımcı olmaya çalışırım.
Tabi bir şartla ben verileri diğer kitaba yazdırırken öbür dosya altta otomatik açılır ve kapanır bu işinize yarar ise dosyanızı güncelleyin bende elimden geldiğince yardım edeyim.
 
İ

İhsan Tank

Misafir
hezarpare' Alıntı:
Tamam üstad dosyayı ekte verdim içerisine bağlantıları açıklayan birde jpg attım.
Genişletmek için tıkla ...
Merhaba
Boş bir module kopyalayın ve deneyin.
Kod: 
Option Explicit
Sub kapalı_kayıt_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi, kral, asi
trabzonspor = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
ts = ActiveWorkbook.Name
kaplan = ActiveSheet.Name
kral = Replace(ThisWorkbook.Path, Right(ThisWorkbook.Path, _
InStr(1, ThisWorkbook.Path, "\") + 1), "")
asi = "Liste.xlsx"
Workbooks.Open (kral & asi)
mavi = ActiveSheet.Name
trabzonspor = Workbooks(asi).Sheets(mavi).Range("B" & Rows.Count). _
End(xlUp).Row
Workbooks(ts).Sheets(kaplan).Range("B3") = Workbooks(asi).Sheets( _
mavi).Range("A" & trabzonspor + 1)
Workbooks(asi).Sheets(mavi).Range("B" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA4")
Workbooks(asi).Sheets(mavi).Range("C" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA5")
Workbooks(asi).Sheets(mavi).Range("D" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("R10")
Workbooks(asi).Sheets(mavi).Range("E" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AB11")
Workbooks(asi).Save
Workbooks(asi).Close
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlem Tamamlandı", , "Bitiş"
End Sub
 
H

hezarpare

Katılım
14 Eylül 2008
Mesajlar
139
Excel Vers. ve Dili
Office 2003 Serisi
Üstad eline sağlık. Makroyu boş bir modülde çalıştırdım ancak
trabzonspor = Workbooks(asi).Sheets(mavi).Range("B" & Rows.Count). _
End(xlUp).Row

hatasını verdi. Acaba yanlış şekildemi yazdım?
 
İ

İhsan Tank

Misafir
hezarpare' Alıntı:
Üstad makroyu uyguladığım dosya "\Üretim ve Sevk Emri Formları\Üretim ve Sevk Emri Formları\Eylül" altındadır.
Genişletmek için tıkla ...
Merhaba
Kod: 
Option Explicit
Sub kapalı_kayıt_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi, kral, asi
trabzonspor = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
ts = ActiveWorkbook.Name
kaplan = ActiveSheet.Name
kral = "[COLOR="Red"]D[/COLOR]:\Üretim ve Sevk Emri Formları\Üretim ve Sevk Emri Formları\"
asi = "EListe.xlsx"
Workbooks.Open (kral & asi)
mavi = ActiveSheet.Name
trabzonspor = Workbooks(asi).Sheets(mavi).Range("B" & Rows.Count). _
End(xlUp).Row
Workbooks(ts).Sheets(kaplan).Range("B3") = Workbooks(asi).Sheets( _
mavi).Range("A" & trabzonspor + 1)
Workbooks(asi).Sheets(mavi).Range("B" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA4")
Workbooks(asi).Sheets(mavi).Range("C" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA5")
Workbooks(asi).Sheets(mavi).Range("D" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("R10")
Workbooks(asi).Sheets(mavi).Range("E" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AB11")
Workbooks(asi).Save
Workbooks(asi).Close
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlem Tamamlandı", , "Bitiş"
End Sub
Kırmızı yere sürücü adını yazın.
 
H

hezarpare

Katılım
14 Eylül 2008
Mesajlar
139
Excel Vers. ve Dili
Office 2003 Serisi
ÜSTAD



Option Explicit
Sub kapalı_kayıt_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi, kral, asi
trabzonspor = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
ts = ActiveWorkbook.Name
kaplan = ActiveSheet.Name
kral = "C:\Users\fatih\Desktop\Üretim ve Sevk Emri Formları\Üretim ve Sevk Emri Formları"
asi = "\EListe.xlsx"
Workbooks.Open (kral & asi)
mavi = ActiveSheet.Name
trabzonspor = Workbooks(asi).Sheets(mavi).Range("B" & Rows.Count). _
End(xlUp).Row
Workbooks(ts).Sheets(kaplan).Range("B3") = Workbooks(asi).Sheets( _
mavi).Range("A" & trabzonspor + 1)
Workbooks(asi).Sheets(mavi).Range("B" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA4")
Workbooks(asi).Sheets(mavi).Range("C" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA5")
Workbooks(asi).Sheets(mavi).Range("D" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("R10")
Workbooks(asi).Sheets(mavi).Range("E" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AB11")
Workbooks(asi).Save
Workbooks(asi).Close
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlem Tamamlandı", , "Bitiş"
End Sub


YAZDIM YİNE AYNI HATA!

Üstad liste adlı çalışma kitabı üretim formlarını yazdığım klasörün bir üst dizininde...
 
İ

İhsan Tank

Misafir
hezarpare' Alıntı:
ÜSTAD



Option Explicit
Sub kapalı_kayıt_61()
Dim ts, kaplan, trabzonspor, hamsi As Date
Dim bordo, mavi, kral, asi
trabzonspor = MsgBox("Verileri Kaydediyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
ts = ActiveWorkbook.Name
kaplan = ActiveSheet.Name
kral = "C:\Users\fatih\Desktop\Üretim ve Sevk Emri Formları\Üretim ve Sevk Emri Formları\"
asi = "\EListe.xlsx"
Workbooks.Open (kral & asi)
mavi = ActiveSheet.Name
trabzonspor = Workbooks(asi).Sheets(mavi).Range("B" & Rows.Count). _
End(xlUp).Row
Workbooks(ts).Sheets(kaplan).Range("B3") = Workbooks(asi).Sheets( _
mavi).Range("A" & trabzonspor + 1)
Workbooks(asi).Sheets(mavi).Range("B" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA4")
Workbooks(asi).Sheets(mavi).Range("C" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AA5")
Workbooks(asi).Sheets(mavi).Range("D" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("R10")
Workbooks(asi).Sheets(mavi).Range("E" & trabzonspor + 1) = Workbooks _
(ts).Sheets(kaplan).Range("AB11")
Workbooks(asi).Save
Workbooks(asi).Close
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlem Tamamlandı", , "Bitiş"
End Sub


YAZDIM YİNE AYNI HATA!

Üstad liste adlı çalışma kitabı üretim formlarını yazdığım klasörün bir üst dizininde...
Genişletmek için tıkla ...
Merhaba
Kırmızıya boyadığım yerdeki \ ne işe yarıyor. Anlamadım. Dosyada böyle bir işaret mi var_?
Kırmızıdaki \ işareti Mavi olan yere kopyalayın
 
H

hezarpare

Katılım
14 Eylül 2008
Mesajlar
139
Excel Vers. ve Dili
Office 2003 Serisi
Üstad Allah razı olsun herşey için....

Sonunda halloldu... Çok teşekkürler...
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst