Stok Takip

[78eagle]

Stok takip için bana yardımcı olabilecek varmı?
İsteklerimi excel örneğinde sıraladım.

Biraz kabarık bir liste inş. yardımcı olacak vardır.

Teşekkürler...

 

[muygun]

Merhaba;
Bence aynı tablonun tekrarı gereksiz.
Aynı tabloda sil,değiştir yada kaydet işlemi yapabilirsiniz.
Eki deneyin.
İyi çalışmalar.

 

[Bulmacaa]

Merhabalar,
Öncelikle mükemmel bir dosya bu dosyada emeği geçen herkese çok teşekkür ediyorum.
Bu dosya ile ilgili birkaç konuda desteğe ihtiyacım bulunmakta eski bir konu olmasına rağmen bilgi kalabılıklığı olmaması için buradan yazmak istedim.
1- Ben dosyada ki sadece kaydet özelliğinin kullanılmasını istiyorum ve ilgili ürün girildiğinde en son girilen stok gelsin istiyorum (benim için stoğun hangi tarihte çıktığını data sheetinde görebilmem önemli)
2- ETOPLA ile girilen 4 kalem olacak zaten onların toplamınında giriş sheetinde altta bir yerde toplamam gerekiyor.Fakat çözümünü bulamadım.

Sorunlarımı excel sheetimde de anlatmaya çalıştım.Yardımcı olursanız gerçekten çok memnun olurum.

 

[Bulmacaa]

Yardımcı olabilecek kimse var mı? Ekstra açıklama yapabilirim. Çözüm değil akıl verseniz bile yeter.

 

[PriveT]

Merhaba;
Bence aynı tablonun tekrarı gereksiz.
Aynı tabloda sil,değiştir yada kaydet işlemi yapabilirsiniz.
Eki deneyin.
İyi çalışmalar.

Verilmiş bir emek, 119 download ve yardım isteyen başta olmak üzere bırak teşekkürü 1 tane yorum yok
Dosyayı her ne kadar kullanmayacak bile olsam kendi adıma teşekkür ederim. Emekierinize sağlık.

 

[Bulmacaa]

Hocam merhabalar,
Kendimi savunmak ihtiyacı duydum.Ben yardım isteyen dahil emeğe geçen herkese çok teşekkür ettim zaten konuyu da saygısızlık olmaması için yeni başlık açmadan o tablo üzerinden sorarak ilerledim.Umarım yardımcı olabilecek birilerine sesine duyurabilirim.ustunde düşünmeme rağmen işin içinden çıkamıyorum.

 

[PriveT]

Hocam merhabalar,
Kendimi savunmak ihtiyacı duydum.Ben yardım isteyen dahil emeğe geçen herkese çok teşekkür ettim zaten konuyu da saygısızlık olmaması için yeni başlık açmadan o tablo üzerinden sorarak ilerledim.Umarım yardımcı olabilecek birilerine sesine duyurabilirim.ustunde düşünmeme rağmen işin içinden çıkamıyorum.

Yok, estağfurullah. Lafım size değil. Siz en doğrusunu yapmışsınız bence sizin işinize yarayacak dosyaya yakın bir dosya üzerinden düzenleme isteyerek. Benim lafım konuyu ilk açan ile dosyayı indirip kullanan diğer üyelere.

 

[PriveT]

Bir üstad şöyle bir dosya paylaşmış sağolsun. Bakın, belki işinize yarar.

 

[Bulmacaa]

Bir üstad şöyle bir dosya paylaşmış sağolsun. Bakın, belki işinize yarar.

Teşekkür ederim ama benim isteğim bu kadar detaylı değil tek istediğim 78 eagle arkadaşımızın dosyasında ismi yazdığımızda sona eklemesi(ilgili kaydı değiştirmemesi) ve en son açılan kaydı getirmesi. Yani en azından düşeyara ilk bulduğu değeri getirir son bulduğunu nasıl getirir bunu biri söylese biraz daha yapmaya çalışacağım ama dondum kaldım siz değerli üstadlarımın yardımına ihtiyacım var.
Şimdiden teşekkür ederim.

 

[Orion1]

Hangi sayfadan hangi sütundan son hücreyi getirecek?

 

[Bulmacaa]

Hocam çok çok teşekkür ederim yanıtınız için.
girişte yazılan stoklar data sheetine gidiyor.
Benim istediğim malzeme türe data da rozet yazınca rozetin son kaydı getirmesi,zarf yazınca zarfın son kaydı getirmesi,
ve girişte yer alan Toplam hepsine etopla ymantığyla rozetse rozetlerin bu zamana kadar ki toplamının getirilmesi
Tekrar çok teşekkür ederim.

Ekleme:Hocam Stok Takip Sheetinin hiç bir önemi yok bu mantıkta onu yok sayarsanız sevinirim kafa karışıklığına yol açıyor ondan dolayı belirtmek istedim.

 

[Orion1]

KTF yaptım.
Fonksiyonu kullanınca gördüm ki aradığımız malzeme en altta bulunan oluyor.
Dosyanız ektedir.

Function tur(ByVal malzeme As String, ByVal sut As Byte) As Variant
Dim sh As Worksheet, sonsat As Long, i As Long
Application.Volatile
Set sh = Sheets("data")
sonsat = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = sonsat To 2 Step -1
    If UCase(Replace(Replace(malzeme, "i", "İ"), "ı", "I")) = _
            UCase(Replace(Replace(sh.Cells(i, "A").Value, "i", "İ"), "ı", "I")) Then
        tur = sh.Cells(i, sut + 1).Value
        Exit Function
    End If
Next i
End Function

 

[Bulmacaa]

Merhaba Hocam,
Çok teşekkür ederim. Bu fonksiyon çok işime yarar fakat burada benim asıl istediğimi tablo üzerinde anlatmaya çalıştım.
Ben tabloda ki giriş ekranını kullanmak istiyorum.Fakat aynı kayıt varsa değiştirmek üzerine düşünmüşler bende değiştir olmayacak sonuna aynı isimde de olsa sona ekleyecek ve en son girilmiş kaydı getirecek.Değiştir fonksiyonu makroda inceledim ama iptal edemedim.
Eğer bunları yapabilrsem devam edicek çalışmam gerisini nasıl yapcağımı biliyorum ama burada tıkandım.
Fonksiyonunuz benim işime bundan sonra ki aşamalarımda da çok işime yarayacak kutsal bilgi kaynağımızsınız hocam.
Tekrar çok teşekkür ediyorum.

 

[Orion1]

Hangi userformda çalışacak kodlart

 

[Orion1]

Buyurun.
Direk kaydediyor ve c2 ye yazılan malzeme eğer varsa hücrelere getiriyor.

 

[Bulmacaa]

Hocam merhaba,
Çok teşekkür ederim. İyi ki varsınız.

 

[Orion1]

C2 hücresinde Malzeme adı varsa alt hücrelere onları getiriyor.
15 nolu mesajda dosyayı güncelledim.
Oradan indirebilirsiniz.