cari ve stok ile ilgili

[celebrity]

Benim Bir Cari Dosyam var burda ben cari ekranından giriş yaparken diper sayfalardaki un buğday saylarındaki bölümler otomatik yazsın yardımcı olabilirseniz çok sevinirim.

 

[celebrity]

bana yardımcı olacak kimse yokmu...

 

[Orion1]

Dosyanız hazır.
Çalışma sayfasında:

Private Sub Worksheet_Activate()
Dim cmb1 As Object, syf As Worksheet
Sheets("FİRMA CARİ").Select
Set cmb1 = Sheets("FİRMA CARİ").ComboBox1
cmb1.Clear
For Each syf In Worksheets
    If syf.Name <> "FİRMA CARİ" Then
        cmb1.AddItem syf.Name
    End If
Next
cmb1.ListIndex = 0
End Sub

Standart modüllerde

Sub Auto_Open()
Dim cmb1 As Object, syf As Worksheet
Sheets("FİRMA CARİ").Select
Set cmb1 = Sheets("FİRMA CARİ").ComboBox1
cmb1.Clear
For Each syf In Worksheets
    If syf.Name <> "FİRMA CARİ" Then
        cmb1.AddItem syf.Name
    End If
Next
cmb1.ListIndex = 0
End Sub
Sub kaydet()
Dim sat1 As Long, sat2 As Long
Sheets("FİRMA CARİ").Select
If Range("B2").Value = "" Then
    MsgBox "TARİH boş olamaz.B2 hücresine tarih giriniz"
    Range("B2").Select
    Exit Sub
End If
sat1 = Cells(65536, "B").End(xlUp).Row + 1
sat2 = Sheets(Sheets("FİRMA CARİ").ComboBox1.Value).Cells(65536, "A").End(xlUp).Row + 1
For i = 2 To 14
    Cells(sat1, i).Value = Cells(2, i).Value
    Sheets(Sheets("FİRMA CARİ").ComboBox1.Value).Cells(sat2, i - 1).Value = Cells(2, i).Value
Next i
MsgBox "Kayıt girilmiştir."
End Sub

 

[celebrity]

Sayın Üstadım ilginiz için çok tşk ederim.
Şimdi Burda hem cari hemde stok takibi yapıyorum. Firma Cari Sayfasında Bu A veya B firmasıda olabilir firmayı kendim ekleyebilmeli firmanın carisinden bilgileri girdiğim zaman otomatik olarak satın almış olduğum stok sayfasına işlem yapsın
dosyanın üzerinden değişik rakamlar var bunları çözemedim sabrınız için tşk ederim.

 

[Orion1]

Sayın Üstadım ilginiz için çok tşk ederim.
Şimdi Burda hem cari hemde stok takibi yapıyorum. Firma Cari Sayfasında Bu A veya B firmasıda olabilir firmayı kendim ekleyebilmeli firmanın carisinden bilgileri girdiğim zaman otomatik olarak satın almış olduğum stok sayfasına işlem yapsın
dosyanın üzerinden değişik rakamlar var bunları çözemedim sabrınız için tşk ederim.

Ben deneme amaçlı yazdım.
Verilerinizi sarı bölgeli alana yazın.
Combobox'tan bir sayfa seçin ve kaydet tuşuna basın veriler hem combobox'tan seçtiğiniz sayfaya aktarılacak hende FİRMA CARİ sayfasına en alt satıra kaydedilecektir.
Anlaşılan siz bir deneme yapmamışsınız.
Sarı alanlara verilerinizi giriniz.

 

[celebrity]

Üstadım Denedim Güzel çalışıyor burda sayfaları kendim eklemişim firmacari buğday un diye şimdi ben yukarıdada izah etmeye çalıştım firma carileri ayrı sayfada olacak cari ekranından giriş yaptığım zaman mal cinsini yazıyorum mal cinsini seçmişsem o malın olduğu sayfaya satır haline ekleme yapsın cari ekranındaki bilgileri ben firma ekledim diyelim aynı zamanda ödemede yapmış olabilirim ben şu anda köprülerle bu işi manuel yapmaya çalışıyorum. Yani Özetlersem
Firmaya bi sayfa açıyorum.
Açmış olduğum bu sayfadan bilgileri giriyorum ve hangi malı almışsam o malın ilgili olduğu sayfaya bilgi girsin. Yardımlarınız için tekrar tşk ederim.

 

[Orion1]

Zaten combobox'tan seçilen sayfaya veriler yazılıyor.Combobox'tan un seçerseniz veriler UN sayfasın,BUĞDAY seçerseniz verileriniz BUĞDAY sayfasına aktarlıyor.
Yeni bir sayfa eklerseniz Combobox'ta O sayfada gözükecek ve Yeni ekledeiğiniz sayfayı seçerseniz o sayfayada veriler aktarılacaktır.
Combobox'ta Sayfa adları listelenmektedir.
Dosyada hangi sayfalar varsa FİRMA CARİ sayfası hariç diğer tüm sayfalar listelenir.

 

[celebrity]

Anladım Firma İçinde combobox yapma şansımız varmı belki tam olarak anlatamadım firma içinde combobox olursa yada firma ekle yada stok ekle diye bir seçenek olursa firma cari benim asıl veri girişş ekranım olur. Size Ayrıca pm attım

 

[Orion1]

Sizin ne istediğiniz anlamadım.
Dosya üzerinde yazarak anlatmayı deneyin ve dosyayı buraya ekleyin.Zaten Burada FİRMA CARİ sayfası ana sayfa oluyor.Bütün verileriniz bu sayfadan giriyorsunuz.

 

[celebrity]

Dosyayı ekledim açıklama yapmaya çalıştım kendimce bu arada pm aldınızmı

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[celebrity]

Ellerine sağlık tşk ederim son bierşey diyecem dikkat ederseniz orda boş sutunlar bıraktım ödeme işlemleri için diyelimki A_FİRMASINA ben boş sutunları ÖDENEN TAHSİL EDİLEN diye isimlendirmim. STOK seçmeden girmem gerecekcek. sayfa eklerken firma ise ise sonuna FİRMASI stok ise sonuna STOK ifadesi ile sorun çözülmüş. Burdaki yapmamız gereken ödeme işlemleri stok seçmeden nasıl veri giriş yapacam.

 

[Orion1]

Ellerine sağlık tşk ederim son bierşey diyecem dikkat ederseniz orda boş sutunlar bıraktım ödeme işlemleri için diyelimki A_FİRMASINA ben boş sutunları ÖDENEN TAHSİL EDİLEN diye isimlendirmim. STOK seçmeden girmem gerecekcek. sayfa eklerken firma ise ise sonuna FİRMASI stok ise sonuna STOK ifadesi ile sorun çözülmüş. Burdaki yapmamız gereken ödeme işlemleri stok seçmeden nasıl veri giriş yapacam.

Yani , bazı durumlarda stoklara kayıt yapmayacağımmı diyorsunuz?
Ama FİRMALARA herzama kayıt yapacaığımmı diyorsunuz pek anlamadım?

 

[celebrity]

Firmaya ödeme yaptım diyelim burda stok seçmem gerekmiyor yada tam tersi firma ödeme yaptı anlatmak istediğim bazı durumlarda stok seçmem gerekmeyecek.
Bide Firma yada stokları eklemek için bi ekran olamazmı Firma Cari Ana Şablon olacak ve açılacak bütün yeni sayfalarda bu olacak. Size Bu arada pm attım aldınızmı

 

[Orion1]

Firmaya ödeme yaptım diyelim burda stok seçmem gerekmiyor yada tam tersi firma ödeme yaptı anlatmak istediğim bazı durumlarda stok seçmem gerekmeyecek.
Bide Firma yada stokları eklemek için bi ekran olamazmı Firma Cari Ana Şablon olacak ve açılacak bütün yeni sayfalarda bu olacak. Size Bu arada pm attım aldınızmı

Dosyanız hazır.

 

[celebrity]

Üstadım Çok Tşk Ederim Yanlız comboboxlar tam veri girişini üzerinde olmuş onları nasıl yer değiştirebilirim.

 

[Orion1]

Üstadım Çok Tşk Ederim Yanlız comboboxlar tam veri girişini üzerinde olmuş onları nasıl yer değiştirebilirim.

1nci satır büyütün.

 

[celebrity]

Çok Tşk Ederim herşey için Sağolun

 

[Orion1]

Çok Tşk Ederim herşey için Sağolun

Rica ederim.
İyi çalışmalar.

 

[celebrity]

hocam tekrar rahatsız edecem ekteki dosyaya sorunumu yazdım tekrar yardımcı olabilirseniz çok sevinirim sizi çok yordum farkındayım