• DİKKAT

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

stokları aktarmak istiyorum

S

sandokan

Katılım
22 Kasım 2005
Mesajlar
389
Excel Vers. ve Dili
XP
Istedigim şey su
gerek stok giriş gerekse bu sayfa olan stok cıkıs kısmında
yukardaki verileri girdigimde
stok durum sayfasında ilgili yerlerine aktar dedigimde aktarmasını istiyorum
ve sonradan aynı stoktan gelirse orda görünmesini istiyorum

bir nevi aktarma verileri
 

Ekli dosyalar

Merhaba,

Giriş ve Çıkış sayfalarında ayırı ayrı buton mu yapacaksınız yoksa sadece durum sayfasında buton koyarak aktarmayı yapacaskınız? Ben ayrı ayrı düşünerek yazdım eğer durum sayfasından olacaksa değiştirebilirim..

Kod: 
Sub Giriş()
Application.ScreenUpdating = False
Set S1 = Sheets("STOK DURUM")
Dim i As Long
i = [B65536].End(3).Row
Satır = S1.[B65536].End(3).Row + 1
Range("B4:D" & i).Copy S1.Range("B" & Satır)
Range("F4:G" & i).Copy
S1.Range("F" & Satır).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Kod: 
Sub Çıkış()
Application.ScreenUpdating = False
Set S1 = Sheets("STOK DURUM")
Dim i As Long
i = [B65536].End(3).Row
Satır = S1.[B65536].End(3).Row + 1
Range("B4:C" & i).Copy S1.Range("B" & Satır)
Range("D" & i).Copy S1.Range("E" & Satır)
Range("F4:G" & i).Copy
S1.Range("F" & Satır).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

.
 
Merhaba gec oldu ama ..evet ayrı ayrı giriş ve cıkısları ayrı butonla yapabilirmiyiz
 
Arkadaşlar bana exel kasa programı lazım lütfen yardımcı olun
 
Sayın ömer acıkcası dosyamda eksıkler vardı..sanırım bu sefer tam ne ıstedıgımı bu dosyayla birlikte gonderiyorum bu dosyaya göre asagıdakileri olusturabilmemiz mümkünmü

===================================

1-diyelim mal aldık buraya giriyorum gerekli verileri
kod adı giriş adedi birim fiyat tutar ve tarihi

bunları giridikten sonra giriş aktar yazan kısımda butonla aktar dedigimde
stok durum kısmında ki giriş kısmına aktarmasını istiyorum
stok kod
b1
a2

her bir yenı giriş oldugunda listenin altına devam etmesini istiyorum
===================
2-diyelim mal sattık buraya giriyorum gerekli verileri
kod adı giriş adedi birim fiyat tutar ve tarihi

bunları giridikten sonra giriş aktar yazan kısımda butonla aktar dedigimde
stok durum kısmında ki giriş kısmına aktarmasını istiyorum
sıra
1


her bir yenı giriş oldugunda listenin altına devam etmesini istiyorum
============================
3-stok durumundaki giriş ve cıkıslar karsılastırılarak bakiye leri buraya getirebilirmiyiz
mesala 4 adet demir boru girmişti 1 cıktı 3 kaliyor.giriş bakiyesi 600 cıkıs 180 fark 420 bunları
bu tabloda görebilirmiyiz
 

Ekli dosyalar

Son düzenleme:
acıyor.winrar progrmanın varsa.YOK İSE ÖZEL MESAJDAN MAİLİNİ YAZARSAN DOSYALARI WİNRARSIZ GONDEREBİLİRİM MAİLİNE
 
Son düzenleme:
Sayın ömer acıkcası dosyamda eksıkler vardı..sanırım bu sefer tam ne ıstedıgımı bu dosyayla birlikte gonderiyorum bu dosyaya göre asagıdakileri olusturabilmemiz mümkünmü

===================================

1-diyelim mal aldık buraya giriyorum gerekli verileri
kod adı giriş adedi birim fiyat tutar ve tarihi

bunları giridikten sonra giriş aktar yazan kısımda butonla aktar dedigimde
stok durum kısmında ki giriş kısmına aktarmasını istiyorum
stok kod
b1
a2

her bir yenı giriş oldugunda listenin altına devam etmesini istiyorum
===================
2-diyelim mal sattık buraya giriyorum gerekli verileri
kod adı giriş adedi birim fiyat tutar ve tarihi

bunları giridikten sonra giriş aktar yazan kısımda butonla aktar dedigimde
stok durum kısmında ki giriş kısmına aktarmasını istiyorum
sıra
1


her bir yenı giriş oldugunda listenin altına devam etmesini istiyorum
============================
3-stok durumundaki giriş ve cıkıslar karsılastırılarak bakiye leri buraya getirebilirmiyiz
mesala 4 adet demir boru girmişti 1 cıktı 3 kaliyor.giriş bakiyesi 600 cıkıs 180 fark 420 bunları
bu tabloda görebilirmiyiz
Eklenmiş Dosyalar 5 nolu mesajda
 
Merhaba,

Eki inceleyiniz..

.
 

Ekli dosyalar

AKTARDIRKTAN SONRA GİRİŞ VE ÇIKIŞ SAYFALARI EKRANI BOSALMAZMI.YANI aktardırktan sonra bos sayfa olmazmı
 
Stok cıkısa ikinci 3 cü kalem girdimgimde stok bakiye kısmına aktarmıyor
 
Ekte

stok cıkısa plastık cıkısını girdigimde stok bakiye kısmında cıkıs kısımlarına aktarmıyor...
 

Ekli dosyalar

#10 numaralı mesajı yeniledim, tekrar incelermisiniz..

.
 
Sayın ömer elinize saglk olmus.ama bir eksik var oda stok giriş ve çıkış lara veri gidirdikten sonra aktarıldııktan sonra giriş ve cıkıs sayfalarında veri kalmaması lazım..
Her aktarılandan sonra bos veri sayfası kalamazmı
 
S.No STOK KOD STOK ADI GİRİŞ ADEDİ GİRİŞ BİRİM FİYAT TOPLAM TUTAR TARİH
1 B1 DEMİR BORU 4 150 600 19.10.2009
2 A2 BİJON 80 0,5 40 14.10.2009
3 C4 PLASTIK 4 0,25 50 18.07.2009

AKTARDIKTAN SONRA

S.No STOK KOD STOK ADI GİRİŞ ADEDİ GİRİŞ BİRİM FİYAT TOPLAM TUTAR TARİH
1
2
3
BU HALE GELMESİ LAZIM HEM GİRİŞ HEM ÇIKIŞIN BU MÜMKNMÜ
 
Kırmızı satırdaki ilaveyi yapınız. Çıkış kodlarında aynı satıra aynı ilaveyi yaparsınız. Eğer Stok Durum sayfasında veriler silinmeyecekse koddaki mavi olan bölgeyi silersiniz..

Kod: 
Sub Giriş()
Application.ScreenUpdating = False
Set S1 = Sheets("STOK DURUM")
Dim i As Long
[COLOR=blue]S1.Range("A3:G65536").ClearContents[/COLOR]
i = [B65536].End(3).Row
S1.Range("A3") = 1
S1.Range("A3:A" & i).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Trend:=False
Satır = S1.[B65536].End(3).Row + 1
Range("B3:G" & i).Copy
S1.Range("B" & Satır).PasteSpecial xlPasteValues
Application.CutCopyMode = False
[COLOR=red]Range("A3:G65536").ClearContents[/COLOR]
Application.ScreenUpdating = True
End Sub

.
 
Uyarlıyamadım sanırım..stok bakiye kısmına baska verilerde getiriyor...
:(


SADECE STOK GİRİŞ VE CIKIS KISMI BOS OLMASİ YETERLİ..
BİRDE STOK BAKİYE KISMINADA ORTALAMA FİYAT I EK KALEMLER GİRİDİGİMDE ATMIYOR...AMA SANIRIM - BAKİYE VERENLERE ORTALAMA FİYAT YAZMIYOR
 
Son düzenleme:
Eki inceleyiniz..

.
 

Ekli dosyalar

Sayın ömer biliyorum sıktım sizi ama stok bakiye kısmında mesala b1 kodlu demir boru girişi ve cıkısı yaptıgımda bakiye sayfasında işlem yapmiyor ilk giridigim ve cıktıgım demir boru hesabını yapıyor ama sonradan girdiklerimi yapmiyor
----
stok girişi
sıra stok kod stok adı giriş adedi giriş birim fiyat giriş tutarı tarih
1 b1 demir boru 4 150 600 19.10.2009
2 a2 bijon 80 0,5 40 14.10.2009
3 c4 plastık 4 0,25 50 18.07.2009
4 c2 torba 3 2 56 27.09.2009
5 b1 demir boru 2 56 680 27.09.2009
6 b1 demir boru 6 34 67 19.12.2009
-------------------------------------------------------------------
stok çıkışı
sıra stok kod stok adı çıkış adedi giriş birim fiyat çıkış tutarı tarih
1 b1 demir boru 1 180 180 20.10.2009
2 c4 plastık 4 0,35 80 20.10.2009
3 b1 demir boru 2 6 16 26.11.2009
4 b1 demir boru 6 7 9 12.09.2009
===============================================
bakiyE

SIRA STOK KOD STOK ADI GİRİŞ ADEDİ ÇIKIŞ ADEDİ GİRİŞ TUTARI ÇIKIŞ TUTARI BAKİYE ADET BAKİYE TUTAR ORTALAMA FİYAT
1 B1 DEMİR BORU 4 1 600,00 180,00 3 420,00 140
2 A2 BİJON 80 40,00 80 40,00 0,5
3 C4 PLASTIK 4 4 50,00 80,00 0 -30,00 0
4 C2 TORBA 3 56,00 3 56,00 18,66666667
-----------------------

GÖRÜLDÜGÜ GİBİ 12 adet giriş var 7 adet cıkıs var ama hala ilk giirş 4 ve cıkıs 1 in bakiyesini veriyor
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst