BaŞka Bİr Sayfaya Gİrİlen DeĞerlerİn Otomatİk Aktarilmasi

[agoker]

Ekteki dosyada açıklamaya çalıştım. Buda izah etmeye çalışayım. Malzeme Giriş-Çıkış formu sayfamızda girilen değerler otomatik olarak formüller sayesinde FORMULLER sayfasına satır satır gelmekte. Benim istediğim Malzeme İşlemleri sayfasında bir makro ile burdaki değerleri her makro çalıştığında en son boş satıra aktarması arada hiç boşluk olmaması lazım. Ben beceremedim Yardımcı olursanız sevinirim.

 

[agoker]

Sayfaki değerleri başka sayfalara aktarma

Arkadaşlar bir safyada formulle oluşan değerlerimiz var. Bu değerleri başka bir sayfaya alt alta aktarmak istiyoruz. Ancak formulle oluşan değerlerimiz değişebiliyor. Sonuçta aktardığımız safyadaki değerler değişmeyecek sürekli alta ekleme yapılacak. Bu konuda yardımlarınızı bekliyorum.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [F8:F32]) Is Nothing Then Exit Sub
On Error GoTo hata
If Target.Value = "" Then Exit Sub
Set s2 = Sheets("MALZEME İŞLEMLERİ")
sat = s2.Cells(65536, "B").End(xlUp).Row + 1
If sat >= 65536 Then
    MsgBox "Satır Doldu.Başka Kayıt Yapılmayacak..!!", vbCritical, "SATIR DOLDU"
    Exit Sub
End If
s2.Cells(sat, "B").Value = Range("E5").Value
s2.Cells(sat, "C").Value = Range("E6").Value
s2.Cells(sat, "D").Value = Cells(Target.Row, "C").Value
s2.Cells(sat, "E").Value = Sheets("MALZEMELER").Cells(Cells(Target.Row, "D").Value + 1, "C").Value
s2.Cells(sat, "F").Value = Sheets("TANIMLAMALAR").Cells(Range("E3").Value, "A").Value
s2.Cells(sat, "G").Value = Range("E4").Value
s2.Cells(sat, "H").Value = Cells(Target.Row, "E").Value
If Sheets("TANIMLAMALAR").Cells(Range("E2").Value, "D") = "GİRİŞ" Then
    s2.Cells(sat, "I").Value = Target.Value
    ElseIf Sheets("TANIMLAMALAR").Cells(Range("E2").Value, "D") = "ÇIKIŞ" Then
        s2.Cells(sat, "L").Value = Target.Value
End If
hata:

End Sub

 

[Orion1]

Lütfen 1 konu hakkında 2 ayrı başlık açmayalım..
2 konuyu birleştirdim.

 

[agoker]

Teşekkür ederim.
Öncelikle istediğim olmuş gibi. Ama başka bir sorun var. Malzeme giriş-çıkış formuna GİRİŞ yaptığımızda Malzeme işlemleri sayfasında gelen malzemeye, Malzeme giriş-çıkış formunda ÇIKIŞ yaptığımızda Malzeme işlemleri sayfasında giden malzemeye yazması lazım. Ayrıca formu temizlerken de malzeme işlemleri sayfasına giden gelen malzeme miktarları boş olmak üzere satır atıyor. Bu konularda da yardımcı olurmusunuz..

 

[Orion1]

Teşekkür ederim.
Öncelikle istediğim olmuş gibi. Ama başka bir sorun var. Malzeme giriş-çıkış formuna GİRİŞ yaptığımızda Malzeme işlemleri sayfasında gelen malzemeye, Malzeme giriş-çıkış formunda ÇIKIŞ yaptığımızda Malzeme işlemleri sayfasında giden malzemeye yazması lazım. Ayrıca formu temizlerken de malzeme işlemleri sayfasına giden gelen malzeme miktarları boş olmak üzere satır atıyor. Bu konularda da yardımcı olurmusunuz..

Dosyayı istediğniz gibi incelledim.
3no.lu mesajdan indirebilirsiniz.

 

[agoker]

Bir tanesiniz. Peki bu dosyayı bir STOK dosyası haline getirmeye ne dersiniz. Sitenize örnek olabilir. Dosyanın diğer bölümleri ile de iletebilirim...

 

[agoker]

Daha DOĞRUSU SÜPERSİNİZ....................

 

[Orion1]

Bir tanesiniz. Peki bu dosyayı bir STOK dosyası haline getirmeye ne dersiniz. Sitenize örnek olabilir. Dosyanın diğer bölümleri ile de iletebilirim...
Daha DOĞRUSU SÜPERSİNİZ....................

Rica ederim.
İyi çalışmalar.

 

[agoker]

Peki son bir şey daha. Adet girdikten sonra birim fiyatıda istenildiği zaman girilecek. Eğer bu değer girilirse GİRİŞ ise J ye ÇIKIŞ ise M sütununa nasıl yazdıracağız. Epeydir uğraşıyorum ama beceremedim. )))