• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Reçete Programı

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
I

ilkay94

Yeni Üye
Katılım
27 Nis 2022
Mesajlar
139
Aldığı beğeni
9
Excel V
Office 2016 TR
Konu Sahibi
Merhaba arkadaşlar,

Daha öncede çok fazla destek almıştım sizlerden,

Küçük bir kimyacı işletmesinde ofis işi için işe başladım ancak kullanılan bir program yok ve çalışıp para kazanmak için bu işe ihtiyacım var,

Manuel olarak formüller ile değilde vba tabanlı birşey yapmaya çalışıyorum,

Amaç önce reçete oluşturuyorum adet ve kilo bilgiler vs ve bu reçete bir ıd veriyorum,

Sonra o reçeteyi seçip o reçeteye ait kullanılan kimyasalları seçiyorum,

Önemli olan şey reçete kilosu ve reçeteye eklediğim kimyasalların yüzde oranı,

Daha sonra yine bu sitede Zafer bey'den aldığım yardım ile reçete kilosu ile o reçetede ki kimyasalların yüzde oranlarını tek tek hesaplıyorum,

Ancak üretim kayıt yaparken yüzde kısmına 0,005 yazmam gerek mesela ama onu 1 yapıyor küsürat yazmıyor veya yüzde 1,085 yazacağım zaman yüzde 2 ye yuvarlıyor bunu nasıl yazdığım şekilde kayıt yapabilirim,

Ayrıca veritabanı güncelle ye eklediğim kilogram ve yüzde ile çarpım hesabını her kimyasal eklediğimde veya reçete kilosu güncellediğimde nasıl tetikleyebiliriz bunlar yapılınca o kodda çalışşsın istiyorum,

Yardımlarınızı rica ediyorum.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Refaz
ilkay94' Alıntı:
Yazdır dediğimde bazen bazı hücreleri siliyor reçete kilosu deri cinsi vs gibi,

Bunu neden yapar diyecektim
Genişletmek için tıkla...

ilkay94' Alıntı:
Yazdır dediğimde bazen bazı hücreleri siliyor reçete kilosu deri cinsi vs gibi,

Bunu neden yapar diyecektim.
Genişletmek için tıkla...
Rica ederim.
Yazdırma kodlarını biraz düzenledim.

Koddaki bozuk harflari düzeltin hata olursa Tr karakterden dolayı.
Hayırlı akşamlar.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Merhaba.
Yüzde ve gram olayı alttakilerden kaynaklanıyor bunları silip yada başka şekilde formatlatın.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Merhaba.
Yüzde ve gram olayı alttakilerden kaynaklanıyor bunları silip yada başka şekilde formatlatın.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Teşekkür ederim Zafer Bey,

Veritabanı güncellede ki kodu nasıl tetikleyebilirim call diye bi komut varmış sanırım ama başka bir butonda ki kodu başka bir butona basınca nasıl tetikleyebilirim.

Ayrıca bu programı ben yaptım amatörce tabi kodları incelerseniz belkide bazı kodlamalar sizlere çok saçma uzun gereksiz gelebilir biran önce hazır etmeye çalışıyorum çünkü malum ekmek arslanın ağzında olmuş.
 
Olumlu oy 0 Negatif oyla
Rica ederim.
Başka bir butona alttakini ekleyin sadece tabii aynı userformda olmalı.
Ve altta Tr karakter hatalı çıkıyor harflerde düzeltmeniz gerek.

Private Sub VERÝTABANIGÜNCELLE_Click()
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Rica ederim.
Başka bir butona alttakini ekleyin sadece tabii aynı userformda olmalı.
Ve altta Tr karakter hatalı çıkıyor harflerde düzeltmeniz gerek.

Private Sub VERÝTABANIGÜNCELLE_Click()
Genişletmek için tıkla...
Bu kod başka bir formda üretim kayıttan kaydet veya güncelleye basınca tetiklemek istiyorum.
 
Olumlu oy 0 Negatif oyla
Yada en alttaki kodu bir modüle ekleyin.
Yada userformda eklenir.Modüle eklenirse heryerden çağırsınız.
Userforma eklenirse ALTKATTREÇETEEKRANI.veriTabaniGuncelleeeeeee bu şekilde çağırılır.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Yukardaki gibi çağırabilirsiniz.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Birde aynı userformda ise veriTabaniGuncelleeeeeee yazılsa yeterli.
Genişletmek için tıkla...
Bu kodu olduğu gibi başka bir formda ki kaydet veya güncelle tusuna basınca etkinleştirmek istiyorum,

Private Sub VERİTABANIGÜNCELLE_Click()

Dim x As Long
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("ALTKATÜRETİMLER")
Set s2 = Sheets("ALTKATREÇETEKAYIT")
son = Sheets("ALTKATÜRETİMLER").Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False

Range("C2:C" & son + 1).ClearContents
ReDim arr(1 To son + 1, 1 To 1)

satır = 2
For x = 2 To son
Alan1 = "A2:J" & son
Alan2 = "A2:D" & son

arr(satır - 1, 1) = WorksheetFunction.VLookup(Range("A" & satır), s2.Range(Alan1), 10, 0) * Range("D" & satır) / 100
satır = satır + 1
Next x

If satır > 2 Then Range("C2").Resize(satır, 1).Value = arr
Application.ScreenUpdating = True


End Sub
 
Olumlu oy 0 Negatif oyla
ilkay94' Alıntı:
Yazdır dediğimde bazen bazı hücreleri siliyor reçete kilosu deri cinsi vs gibi,

Bunu neden yapar diyecektim
Genişletmek için tıkla...

ilkay94' Alıntı:
Yazdır dediğimde bazen bazı hücreleri siliyor reçete kilosu deri cinsi vs gibi,

Bunu neden yapar diyecektim.
Genişletmek için tıkla...
Rica ederim.
Yazdırma kodlarını biraz düzenledim.

Koddaki bozuk harflari düzeltin hata olursa Tr karakterden dolayı.
Hayırlı akşamlar.

HTML:
JavaScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
s2.Range("A6:O" & Rows.Count).ClearContents yerine s2.Range("A6:O" & Rows.Count).Clear ekledim.
Eğer s2.Range("A6:O" & Rows.Count).ClearContents bunu kullanıp s2.Range("A6:O" & Rows.Count).Clear bunu silerseniz alttaki kodun başındaki tek tırnağı silin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst