• DİKKAT

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

ürünlerin maliyetini hesaplama

sizce ben uğrasmamışmıyım ekte eklediğim dosyayı ben yaptım zaten ancak bu geldiğim noktada malesef takıldım kaldım ama birisi derse ki sunu soyle yap bunu boyle yap ben kendim denerim elbette ama ben forumda hiç bir yerde benim istediğim şeylerle ilgili çözüm göremedim
 
Merhabalar;
Uzun bir süre size yanıt veremedim kusura bakmayın.Şu anda istediğiniz işlemlerin bir çoğu oldu sanırım tabloyu bir inceleyip eksik yerleri bildirirseniz tam anlamıyla hallederiz inşallah.
 

Ekli dosyalar

güzel olmuş ancak sadece butona basıldıgında daha önce girmiş oldugum kilo adet ve fiyat bilgileri yeni acılan sayfada gozukmuyor tek sorun sımdılık bu gozuyo birde maliyet bolumunde navlun hariç genel toplamı ve masraflar toplamını aşağıda ki genel toplama bir daha eklemiyeceğiz
 

Merhaba,

Dosyanıza bakınca inanın yapıcak bir şey yok gibi gözüküyor siz burda maliyet hesaplatmakmı istiyorsunuz yoksa programmı yapmak istiyorsunuz..

dosyanız veri girişine uygun değil tamamen şekillendirme üzerine gidip sonradan veri girmeye çalışıyorsunuz..

Eğer Stok takibi ve maliyet / Kar hesaplaması yapmak istiyorsanız bunu ufak bir dosya yardımı ile yapmaya çalışırım. Fakat Aşağıdaki sorulara cevap verirseniz en azından nasıl bir dosya yapmam gerektiğine karar vermek daha kolay olacaktır.


Maliyet Hesaplama Yönteminiz Nedir?
FİFO (İlk Girien İlk Çıkar)
LİFO (Son Giren İlk Çıkar)
Aylık Ortalama
Yıllık Ortalama
Hareketli Ortalama

Stok Kart Sayınız ?
Günlük hareket Sayınız?
Giriş / Çıkış Formunuz varmı ? Varsa örneği.
Raporlama için Aylık Yıllık haricidinde rapor mevcutmu?
Stok ek maliyetleri varmı? Varsa
Kar Hesabında Ekmaliyetli Ek Maliyetsiz Ayrımı yapılacakmı?

Ekteki dosyada domates gibi gıda ürünleri mevcut gıda ürünlerinde son kullanım tarihi gibi bir takip söz konusumu?
 
Merhaba,

Dosyanıza bakınca inanın yapıcak bir şey yok gibi gözüküyor siz burda maliyet hesaplatmakmı istiyorsunuz yoksa programmı yapmak istiyorsunuz..

dosyanız veri girişine uygun değil tamamen şekillendirme üzerine gidip sonradan veri girmeye çalışıyorsunuz..

Eğer Stok takibi ve maliyet / Kar hesaplaması yapmak istiyorsanız bunu ufak bir dosya yardımı ile yapmaya çalışırım. Fakat Aşağıdaki sorulara cevap verirseniz en azından nasıl bir dosya yapmam gerektiğine karar vermek daha kolay olacaktır.


Maliyet Hesaplama Yönteminiz Nedir?
FİFO (İlk Girien İlk Çıkar)
LİFO (Son Giren İlk Çıkar)
Aylık Ortalama
Yıllık Ortalama
Hareketli Ortalama

Stok Kart Sayınız ?
Günlük hareket Sayınız?
Giriş / Çıkış Formunuz varmı ? Varsa örneği.
Raporlama için Aylık Yıllık haricidinde rapor mevcutmu?
Stok ek maliyetleri varmı? Varsa
Kar Hesabında Ekmaliyetli Ek Maliyetsiz Ayrımı yapılacakmı?

Ekteki dosyada domates gibi gıda ürünleri mevcut gıda ürünlerinde son kullanım tarihi gibi bir takip söz konusumu?


biz meyve sebze toptancısıyız dolayısıyla bize gelen ürünler en fazla 2 gün stokta kalıyor 3. gunu olmuyor stok takibini maliyet takibini o gunun gelen kamyonunun ne kadar maliyeti oldugunu bir defaya mahsus stok kayıt ve maliytet bolumlerine girdikten sonra kayıt butonuna basıldıgında exelde yeni bir sayfa açıp oraya o gunun tarihini atamasını istiyorum ancak bu kayıt işlemini yaptıktan sonrada stok kayıt ve maliyet sayfalarında ki girdilerin silinmesini istiyorum ancak kaydedlen sayfada ki bilgilerin ise aynen yeni açılan sayfada saklanmasını istiyorum bir arkadaşımız bu dediklerimin nerdeyse hepsini yaptı sadece kaydedilen sayfaya eski kayıtlar silindiği için kilo adet ve fiyat bilgileri silinir oldu
 
eklenen yeni sayfadan verilerin kaybolmaması için ekteki kodları Maliyet sayfasının içerisindeki kodlar ile değiştirin.


Kod:
Private Sub CommandButton1_Click()
'On Error Resume Next
Static sayac As Integer
sayac = sayac + 1
Range("A1:O70").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    With ActiveSheet
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Name = Date & "-" & sayac
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("HESAP TAKİP").Select
    With ActiveSheet
    Dim satirSayisi As Integer
    satirSayisi = Sheets("HESAP TAKİP").Range("A65536").End(xlUp).Row + 1
    .Range("B" & satirSayisi) = Sheets("MALİYET").Range("K8")
    End With
Sheets("SİPARİŞ VE STOK").Select
    With ActiveSheet
    .Range("C3:E70").ClearContents
    .Range("G3:AP70").ClearContents
    End With
'Sheets("MALİYET").Select
 '   With ActiveSheet
  '  .Range("C3:F70") = 0
   ' .Range("K3:K6").ClearContents
    '.Range("K9").ClearContents
    'End With
End Sub
 
eklenen yeni sayfadan verilerin kaybolmaması için ekteki kodları Maliyet sayfasının içerisindeki kodlar ile değiştirin.


Kod:
Private Sub CommandButton1_Click()
'On Error Resume Next
Static sayac As Integer
sayac = sayac + 1
Range("A1:O70").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    With ActiveSheet
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Name = Date & "-" & sayac
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("HESAP TAKİP").Select
    With ActiveSheet
    Dim satirSayisi As Integer
    satirSayisi = Sheets("HESAP TAKİP").Range("A65536").End(xlUp).Row + 1
    .Range("B" & satirSayisi) = Sheets("MALİYET").Range("K8")
    End With
Sheets("SİPARİŞ VE STOK").Select
    With ActiveSheet
    .Range("C3:E70").ClearContents
    .Range("G3:AP70").ClearContents
    End With
'Sheets("MALİYET").Select
 '   With ActiveSheet
  '  .Range("C3:F70") = 0
   ' .Range("K3:K6").ClearContents
    '.Range("K9").ClearContents
    'End With
End Sub
işte tam aradığım buydu süpersiniz gerçekten şimdi sadece bir eksik var şimdilik oda maliyet kısmında diğer giderleri sonrada elle giriyorum o sayfada ki bilgilerin tamamı kayıt butonuna basıldıktan sonra silin miyor bunu sağlamanın bir yolu var mıdır acaba
 
birde soyle bir sorumla karşılaşıyorum bu dosyayı xp kurulu olan bir bilgisayarda kayıt butonuna tıklayıp kullanabiliyorum ancakwin 7 64 bitte kayıt butonuna tıklanmıyor nedense bunun nedeni ne olabilir activex ayarlarınıda yaptım üstelik
 
birde soyle bir sorumla karşılaşıyorum bu dosyayı xp kurulu olan bir bilgisayarda kayıt butonuna tıklayıp kullanabiliyorum ancakwin 7 64 bitte kayıt butonuna tıklanmıyor nedense bunun nedeni ne olabilir activex ayarlarınıda yaptım üstelik

bu sorunu çozdum cok sukur sadece yukarda belirttiğim durum soz konusu
 
bu sorunu çozdum cok sukur sadece yukarda belirttiğim durum soz konusu

yukarıdaki kodların sonunda bulunan aşağıdaki kodların basındaki tırnak işaretini kaldırıp aradaki .Range("C3:F70") = 0 kodunu silerseniz işleminizi cozecektir.



Sheets("MALİYET").Select
With ActiveSheet
.Range("K3:K6").ClearContents
.Range("K9").ClearContents
End With
End Sub
 
yukarıdaki kodların sonunda bulunan aşağıdaki kodların basındaki tırnak işaretini kaldırıp aradaki .Range("C3:F70") = 0 kodunu silerseniz işleminizi cozecektir.



Sheets("MALİYET").Select
With ActiveSheet
.Range("K3:K6").ClearContents
.Range("K9").ClearContents
End With
End Sub

yaptım ama olmadı isterseniz siz tam kodu verin bana daha iyi olucak
 
yaptım ama olmadı isterseniz siz tam kodu verin bana daha iyi olucak

bu kodlarla maliyet sayfasındaki K3-K4-K5-K6-K9 hücrelerinin içerisini temizler.


Kod:
Private Sub CommandButton1_Click()
'On Error Resume Next
Static sayac As Integer
sayac = sayac + 1
Range("A1:O70").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    With ActiveSheet
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Name = Date & "-" & sayac
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("HESAP TAKİP").Select
    With ActiveSheet
    Dim satirSayisi As Integer
    satirSayisi = Sheets("HESAP TAKİP").Range("A65536").End(xlUp).Row + 1
    .Range("B" & satirSayisi) = Sheets("MALİYET").Range("K8")
    End With
Sheets("SİPARİŞ VE STOK").Select
    With ActiveSheet
    .Range("C3:E70").ClearContents
    .Range("G3:AP70").ClearContents
    End With
Sheets("MALİYET").Select
   With ActiveSheet
    .Range("K3:K6").ClearContents
    .Range("K9").ClearContents
    End With
End Sub
 
bu kodlarla maliyet sayfasındaki K3-K4-K5-K6-K9 hücrelerinin içerisini temizler.


Kod:
Private Sub CommandButton1_Click()
'On Error Resume Next
Static sayac As Integer
sayac = sayac + 1
Range("A1:O70").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    With ActiveSheet
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Name = Date & "-" & sayac
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("HESAP TAKİP").Select
    With ActiveSheet
    Dim satirSayisi As Integer
    satirSayisi = Sheets("HESAP TAKİP").Range("A65536").End(xlUp).Row + 1
    .Range("B" & satirSayisi) = Sheets("MALİYET").Range("K8")
    End With
Sheets("SİPARİŞ VE STOK").Select
    With ActiveSheet
    .Range("C3:E70").ClearContents
    .Range("G3:AP70").ClearContents
    End With
Sheets("MALİYET").Select
   With ActiveSheet
    .Range("K3:K6").ClearContents
    .Range("K9").ClearContents
    End With
End Sub


bu kodlar orayı temizliyor ancak satış fiyatının oldugu bolumu sıfırlamıyor maliyet sayfasında yani g3 ten g 70 e kadar kş kısmında silinmesi gerekiyor birde maliyet sayfasında C D E sekmelerinde 3 . sutundan itibaren 70 e kadar içeriğinde kodların değiştirilmemesini sağlamak mumkunmudur son olarak ekte ki dosyada gereksiz oldugunu düşündüğüm bir sayfayı silip en son hali üzerinden deüişikilleri yapmanızı isticem
 

Ekli dosyalar

Son düzenleme:
sorun su maliyet sayfasına girdiğim bilgiler kayıt butonuna basıldıgında silinmiyor sadece stok kayıt bolumunde girilen bilgiler sıfırlanıyor
 
sorun su maliyet sayfasına girdiğim bilgiler kayıt butonuna basıldıgında silinmiyor sadece stok kayıt bolumunde girilen bilgiler sıfırlanıyor

G3 ile G70 arasını siler.. Yeni dosyayya göre

C-D-E sutunları için ne yapılacak detaylı analtırmısınız..

C-D-E içerisindeki kodların değiştirilmesi nedir?
Kodu değiştirirken neye göre değiştiricem?







Kod:
Private Sub CommandButton1_Click()
'On Error Resume Next
Static sayac As Integer
sayac = sayac + 1
Range("A1:O70").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    With ActiveSheet
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Name = Date & "-" & sayac
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("HESAP TAKİP").Select
    With ActiveSheet
    Dim satirSayisi As Integer
    satirSayisi = Sheets("HESAP TAKİP").Range("A65536").End(xlUp).Row + 1
    .Range("B" & satirSayisi) = Sheets("MALİYET").Range("o8")
    End With
Sheets("SİPARİŞ VE STOK").Select
    With ActiveSheet
    .Range("C3:E70").ClearContents
    .Range("G3:AP70").ClearContents
    End With
Sheets("MALİYET").Select
   With ActiveSheet
    .Range("O3:O6").ClearContents
    .Range("O9").ClearContents
    .Range("G3:G70").ClearContents
    End With
End Sub
 
Geri
Üst