İki Farklı Dosyaya Kayıt Nasıl Yapılır (bir dosya kapa

[programer]

Ýki Farklı Dosyaya Kayıt Nasıl Yapılır (bir dosya kapa

Arkadaşlar Ekteki dosyada Forumdan aldığım bir çalışmayı geliştirmek istiyarum. Stok takibi dosyasında yaptığım işlemlerin sadece stok hareket kısmını stk_har dosyasının içindeki üretim kısmına nasıl kaydettiririm.

Dosya C:\ sürücüsünün içide çalışacak

Arkadaşlar ben tekstil firmasında çalışmaktayım. Þu anda kendimzize göre bir üretim takip programı hazırlamaktayım. Benim için bu sorunun çevabı önemli eger zor bi durumsa başka yolu vardır mutlaka. Yardımlarınız için teşekkür ederim. excel.web.tr'den gerçekten çok şey ögrendim. Yardım eden arkadaşlara tekrar teşekkür ederim.

 

[programer]

mod arkadaşlar bana yardım edecek kimse yokmu. Eğer yapılmayacak birşeyse lütfen belirtin çalışmalarımı ona göre yönlendireyim.

 

[Levent Menteşoğlu]

Ekteki örneği inceleyin. "stk_har" isimli dosyanızı C sürücüsünün altına kopyalayın. Sonrada "stok takibi" isimli dosyanızı açarak "KAYDET" butonuna basın. Kodun prensibi şöyledir. Ã?ncelikler "stk_har" dosyanızı açar, "stok takibi" isimli dosyanızdaki "stok" sayfasını "stk_har" dosyasına kopyalar ve bu dosyayı kaydederek kapatır. Her kaydet butonuna bastığınızda eski kaydı siler ve yenisini kopyalar. Kodları inceleyerek çalışma prensibini daha iyi görebilirsiniz.

 

[programer]

sayın levetm

verdiğiniz örnek için teşekkür ederim. Kodlarda stk_har dosyasının içindeki üretim çalışma kitabını tamamen siliyor görünüyor. stak takibi dosyasından hareketleri kopyalamıyor.

Private Sub CommandButton1_Click()
On Error GoTo 10
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\stk_har.xls"
On Error Resume Next
Sheets("üretim").Delete 'burdaki kod siliyor aşağıdaki dodlar yeni sayfayı oluşturamıyor
Windows("stok takibi.xls").Activate
Sheets("Stok").Copy After:=Workbooks("stk_har.xls").Sheets(2)
Sheets(3).Name = "üretim"
For x = 1 To ActiveSheet.Shapes.Count
ActiveSheet.Shapes.Range("button " & x).Delete
Next
Columns("a:g").Delete
ActiveWorkbook.Save
ActiveWindow.Close
Exit Sub
10 MsgBox "stk_har dosyası bulunamadı"
End Sub

 

[Levent Menteşoğlu]

Mutlaka bir yerde hatanız var, çünkü defalarca deneyerek gönderdim. O bahsettiğiniz satır sadece dosyadaki eski üretim isimli sayfayı silmek içindir.

 

[programer]

sayın levetm

Bende denedim ama bir türlü beceremedim. Harhelde benden kaynaklanan bi sorun. Dosyaların her ikisinide C nin içine kopyaladım çalıştırdığımda sadece stk_har dosyasının içindeki üretim sayfasını siliyor ve diğer dosyadaki bilgileri kopyalayamıyor kodların bazılarını ve yerini değiştirdim ama gene aynı dosyayıda kaydedip kapatmıyor.

 

[Levent Menteşoğlu]

Az önce denedim,bir sorun yok, yapmanız gereken sadece stk_har dosyasını direk olarak C nin altına kopyalayın., diğer dosyanın yeri önemli değil.

 

[programer]

yardımlarınız içinteşekkür ederim ptojem bitince forumda yayınlamak istiyorum