Kapalı dosyada değer bulma ve girme

[calculator42]

Sayın uzmanlar;

Karşılatığım bir sorunu sizlere danışmak istiyorum. Kumaş üretici bir firmayız.
müşteri kumaş siparişi verince verdiği siparişin karşılıklarını stok dosyasının içinde ilgili klasör'e yazmasını istiyorum ve eğer sipariş daha önce girilmişse uyarmasını istiyorum. Birde ikinci bir düğme koyup sipariş iptal edildiğinde o sipariş numarasına göre tüm satırı silmesini istiyorum.. Ancak bu konuda başarılı olamadım. Belkide bu excel'de imkansız.
Bu konuda yardımlarınızı bekliyorum.

Teşekkürler

 

[Orion1]

Hangi dosyada hangi işlem yapılacak belli değil .Sorunuz daha net açıklamalasınız.
Hangi veri hangi dosyaya girilecek .Şartlar nelerdir?:coo:
Bir sorunuzun başlığını konuyu açıklayan biçimde yapmalısınız.Aksi takdirde geri dönüşüm kutussuna taşınır konunuz.

 

[calculator42]

Hocam yalnış başlık için kusura bakmayın...

örnek üretim formunda 1. satırda;
eni 100 cm
renk :kırmızı
metre: 270
ağırlık : 51 kg

macroyu çalıştırdığımda stok dosyasının içinde ki 100 isimli dosyanın içindeki kırmızı dosyasının içine bu karttaki bilgileri yazacak.
müşteri ismini; metreyi, ağırlık.

üretim formunun ikinci satırdaki ;
en:95
renk: beyaz
metre: 370
ağırlık: 67 kg

bunuda yine stok dosyasının içindeki 95 dosyasının içine yazacak.
lütfen ekteki ikinci dosyayı inceleyin..
tekrar açıklamaya çalıştım.

 

[Orion1]

İlgili renkteki sayfa karşı dosyada yoksa program hata vercektir.
Nitekim Siyah renk yazmışsınız ama siyah isimli sayfa yoktu.Ben onu beyaz yaptım.
Verdiğiniz açıklamalar doğrusunda dosyayı yaptım.mesela 60 yazmılsınız ama 60 isimli dosyada yoktu.Siz böyle yaparsanzız ben burada doğru işlemi nasıl bulacam.Sorunuza doğru yanıtlar alabilmek için sizde gerekli özeni ,biz nasıl gösteriyorsak sizde öyle gösteriziniz.
Dosyanız ektedir..cool:

Sub aktar()
Dim i As Long, dosya As String, sh As String, sat As Long
For i = 13 To 21
    If Cells(i, "D").Value <> "" Then
        dosya = Cells(i, "D").Value / 10 & ".xls"
        If Dir(ThisWorkbook.Path & "\stoklar\" & dosya) = "" Then
            MsgBox dosya & " isimli dosya bulunmadı.", vbCritical, "UYARI"
            GoTo atla
        End If
        If Workbooks.Open(ThisWorkbook.Path & "\stoklar\" & dosya).ReadOnly = True Then
            Workbooks(dosya).Close
        End If
        sh = ThisWorkbook.ActiveSheet.Cells(i, "C").Value
        sat = Sheets(sh).Cells(65536, "E").End(xlUp).Row + 1
        Sheets(sh).Cells(sat, "E").Value = ThisWorkbook.ActiveSheet.Cells(i, "F").Value
        Sheets(sh).Cells(sat, "F").Value = ThisWorkbook.ActiveSheet.Cells(i, "G").Value
        ActiveWorkbook.Close True
    End If
atla:
Next i
MsgBox "Akatrım tamamlanmıştır." & vbLf _
& vbLf & "evrengizlen@hotmial.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[calculator42]

teşekkürler

Teşekkür ederim evren hocam,
Ellerinize sağlık...

Kendim yapmaya çalışıyorum, ancak kodlar çok karışık geliyor.
Ben hep macroları record işlemi ile çalıştırıyordum.
Bu yüzden bu kodlar çok karışık geldi...

şimdi mesela aktar'a bastığımızda stok içinde belli dosyalara kopyalıyor. Süper olmuş. peki, kopyaladığı dosyalara (stok dosyalarına);
1. bugünün tarihi atması
2. müşteri adı ve üretim no 'yu da kopyalaması
3. üretim no daha önceden kullanılmışsa uyarı vermesi,

mümkün olur mu? eğer daha önce aynı üretim kodu girilmişse tekrar yazmasın diye...