HAMMADDE TAKİP

EMRE ÞAHAN · 8 Nisan 2005

HAMMADDE TAKÃP

Selam Arkadaşlar

Ãirkette kullandığım bir çalışma var. Bu çalışmayı kullanışlı hale getirmek istiyorum. iki ayrı yerde hammadde stoğum var. KEND yapılan çıkış ZUNA ya giriş olmasını istiyorum. Ã?rnek bir userform yaptım fakat atamalarını daha yapmadım. iki önemli husus daha biri KEND de fire düşülüyor. %12 oarnında, ikincisi formdan yaptığım giriş ve çıkışların tarih sırasına göre dizilmesini istiyorum. Ayrıca form üzerinde bulunan Kalan textbox'ında son durumu gösterecek. ZUNA sayfasında da başka bir usurform kullanılacak. Buradan da giriş ve çıkış yapılabilsin diye.

Yardım ve önerileriniz için şimdiden teşekkür ederim.

danersin · 10 Nisan 2005

Yol göstermesi için birşeyler yaptım. Bir inceleyin.

EMRE ÞAHAN · 11 Nisan 2005

Teşekkür ederim.

Tarih sıralama istediğim gibi olmuş. Yalnız bir iki küçük detay daha var bu konuda nasıl bir işlem yapa biliriz.

1) Giriş ve çıkışları farklı zamanlarda yapıyorum. Hazırladığınız programda sadece çıkış yaptığımda hata veriyor.

2) KEND sayfasında çıkışların ZUNA sayfasına tarih sıralı olarak giriş nasıl atayabilirim.

:dua:

danersin · 11 Nisan 2005

Boş textboxların hata yaratmaması için kontrol yerine default olarak 0 koydum. 2. sayfayada çıkışlar giriş olarak yazılıp sıralıyor. Bu dosya üstünde biraz çalışırsanız istediğiniz hale gelir.

EMRE ÞAHAN · 11 Nisan 2005

Programa kayıt işleminden sonra TextBox ları sıfırla ve Textbox1 geri dön kodlarını ekledim.

Ãimdi tek bir sorun kaldı. KEND çıkışı ZUNA girişi olarak işlem yapıyor. Ama KEND girişleri içinde ZUNA da tarih çıkıyor ve o satır ZUNA da boş kalıyor. Bunu nasıl önleye bilirim. Dosya ekte enson örnekleri kontrol edermisiniz.

İlginize çok teşekkür ederim.

danersin · 11 Nisan 2005

Commandbutton kodunda zuna sayfasına yazan bloğu bir if içine alırsak işnizi görür sanırım. textbox3 0 dan büyük olduğu zaman zunaya yazıyor.

[vb:1:7e1f02da6f]If TextBox3.Value > 0 Then
sonsat2 = Sheets("ZUNA").Cells(65536, 1).End(xlUp).Row + 1
Sheets("ZUNA").Cells(sonsat2, 1) = CDate(tarih)
Sheets("ZUNA").Cells(sonsat2, 3) = TextBox3.Value
Sheets("ZUNA").Range("A5:e2000").Sort Key1:=Sheets("ZUNA").Range("A5"), Order1:=xlAscending 'sıralama
End If[/vb:1:7e1f02da6f]

EMRE ÞAHAN · 11 Nisan 2005

Çıkışları çalıma sayfasına yazarken metin gibi algılıyor. Bunların sayı oluduğunu nasıl tanımlıyorduk.

Levent Menteşoğlu · 11 Nisan 2005

Kasdettiğiniz sayı ise

Sheets("ZUNA").Cells(sonsat2, 3) = TextBox3.Value

yerine

Sheets("ZUNA").Cells(sonsat2, 3) = TextBox3.Value*1 yazın.

EMRE ÞAHAN · 11 Nisan 2005

Biliyorum sende çok oldun artık diyeceksiniz ama...

Programa eklentiler yaptım.

If TextBox3.Value > 0 Then
sonsat2 = Sheets("ZUNA").Cells(65536, 1).End(xlUp).Row + 1
Sheets("ZUNA").Cells(sonsat2, 1) = CDate(tarih)
Sheets("ZUNA").Cells(sonsat2, 2) = "KEND ALM. SEVK"
Sheets("ZUNA").Cells(sonsat2, 3) = TextBox3.Value * 1
Sheets("ZUNA").Range("A5:e2000").Sort Key1:=Sheets("ZUNA").Range("A5"), Order1:=xlAscending 'sıralama
End If

If TextBox2.Value > 0 Then
sonsat3 = Cells(65536, 1).End(xlUp).Row + 1
Sheets("KEND").Cells(sonsat3, 2) = "KEND ALM. GİRİÃ"
Else
Sheets("KEND").Cells(sonsat3, 2) = "KEND ALM. ÇIKIÃ"
End If

Fakat bu seferde arada bir Tarih Kayıt İşlemi yaptığımda tarihi araya atıyor ama "KEND ALM GİRİÃ" değerleri en alt satıra atıyor. Hatanın nedenini biliyorum fakat nasıl düzelteceğimi bulamadım.
Hata sonsat ile başlayan satırlardan kaynaklanıyor. ekte dosyayı gönderiyorum.

danersin · 11 Nisan 2005

Prosedürün ilk satırında Kend sayfası için son satırı zaten belirlemiştik.
Yeniden belirleme yaparsanız bir alt satıra yazar ve tarih sıralamasına tabi olmaz. Böyle bir deneyin.

[vb:1:e4cc0a99ca]
Private Sub CommandButton1_Click()
sonsat = Cells(65536, 1).End(xlUp).Row + 1
tarih = TextBox1.Value
tarih = Format(tarih, "dd/mm/yyyy")
Sheets("KEND").Cells(sonsat, 1) = CDate(tarih)
Sheets("KEND").Cells(sonsat, 3) = TextBox2.Value * 1
Sheets("KEND").Cells(sonsat, 4) = TextBox5.Value * 1
Sheets("KEND").Cells(sonsat, 5) = TextBox3.Value * 1
Sheets("KEND").Cells(sonsat, 6) = "=F" & sonsat - 1 & "+D" & sonsat & "-E" & sonsat
If TextBox2.Value > 0 Then
Sheets("KEND").Cells(sonsat, 2) = "KEND ALM. GİRİÃ"
Else
Sheets("KEND").Cells(sonsat, 2) = "KEND ALM. ÇIKIÃ"
End If
Range("A5:F2000").Sort Key1:=Range("A5"), Order1:=xlAscending 'sıralama
...................
[/vb:1:e4cc0a99ca]

EMRE ÞAHAN · 11 Nisan 2005

Yardımlarınız için size minnettarım.

Bu gün çok şey öğrendim. Sanırım formu takip eden arkadaşlarda bu çalımadan faydalandılar. İnşaallah birgün bende diğer arkadaşların sorularını cevaplayacak bilgiye sahip olurum.

Ã?ğrenmeye DEVAM

danersin · 11 Nisan 2005

EMRE ÃAHAN,

Biliyorum sende çok oldun artık diyeceksiniz ama...

Hiç böyle birşeyin dendiğini gördünüzmü bu forumda?

. Sorununuz halloldu ise ne mutlu bize. Temennilerinize katılıyorum ve her zaman bilgisayar öğrenme konusunda sizden daha yeni olan arkadaşların olduğunu unutmayın forumda. Onlara yardım etmeye çalıştıkca kendi öğrenme sürecinizede faydasını kısa sürede görürsünüz.
Birde imzanıza excel versiyon ve dilinizi eklemenizi rica ediyorum.(Profil sayfanıza gidip İmza bölümüne)

EMRE ÞAHAN · 11 Nisan 2005

Üstadım bir şeyi sonradan fark ettim. KEND in çıkışlarını ZUNA nın giriş sutununa ekletiyorduk ya, ve KEND ALM SEVK yazdırıyorduk. Birde ZUNA nın KEND çıkışı ile ZUNA nın son miktarını toplatmam gerekiyor. Aksi halde ZUNA ya hazırladığım userform2 görevini yapamıyor.
:kafa:

danersin · 11 Nisan 2005

Kastettiğiniz ZUNA sayfasında Esütunundaki formüllerin devam etmesi sanırım. eğer doğru anladı isem kodda ZUNA sayfası ile ilgili blokta sıralama yapan satırdan hemen önce bu satırı ilave edin.

[vb:1:30ed875aac]Sheets("ZUNA").Cells(sonsat2, 5) = "=E" & sonsat2 - 1 & "+C" & sonsat2 & "-D" & sonsat2[/vb:1:30ed875aac]

EMRE ÞAHAN · 12 Nisan 2005

üstad yardımların için çok teşekkürler program tam istediğim gibi oldu.

HAMMADDE TAKİP

Administrator