Bu dosyayı bir deneyin.
Sub litre_Kg_Maliyetleri_Getir(ByVal syf As Worksheet) içindeki alttaki yeri gabiba siz eklediniz.Bilmiyorum doğrumu ve yanlışsa resimdek, verilern geldiği şekilde dosyayı ekleyin test edeyim.
Kod:
.Cells(araToplamLT, "D").Value = .Cells(araToplamLT, "D").Value + .Cells(araToplamLT, "D").Value * .Cells(araEkgider, "D")
Bu arada birşey farkettim.
Seçenek için yaptıklarımızda gizleme ve gösterme yapınca Garanti edilen içerik alanındaki veriler değişmiyor heralde onlarda değişecek.
(14/12/2023, 10:16)feraz yazdı: Bu dosyayı bir deneyin.
Sub litre_Kg_Maliyetleri_Getir(ByVal syf As Worksheet) içindeki alttaki yeri gabiba siz eklediniz.Bilmiyorum doğrumu ve yanlışsa resimdek, verilern geldiği şekilde dosyayı ekleyin test edeyim.
Kod:
.Cells(araToplamLT, "D").Value = .Cells(araToplamLT, "D").Value + .Cells(araToplamLT, "D").Value * .Cells(araEkgider, "D")
o kısmı ben ekledim. hesaplamada sorun yok.
seçenek kısmında bir sorun yok. içerik seçilmediğinde garanti edilen içerik kısmında görünmüyor, olması gerektiği gibi.
elinize sağlık sayın feraz
Sayın Feraz;
açılır listeyi Maliyet hesaplama çalışma sayfasından veri doğrulama ile almışsınız.
ben veri doğrulamayı her hangi bir çalışma sayfasından almayıp liste gibi yapsak olmaz mı?
Sub VeriDogrulama_Maliyet(ByVal hcr As Range)
Fonksiyonu var. Maliyet hesaplama çalışma sayfası olmak zorunda sanırım.
Açılır liste kutusunu bir çalışma sayfasına bağlamadan yaptım.
kodu da ;
Sub VeriDogrulama_Maliyet(ByVal hcr As Range)
Dim liste As Variant
Dim son As Long
' Açılır menüde görünecek değerleri belirtin
liste = Array("0.25 lt Maliyet", "0.5 lt Maliyet", "1 lt Maliyet", "5 lt Maliyet", "10 lt Maliyet", "20 lt Maliyet")
With ThisWorkbook.Worksheets("Maliyet hesaplama")
son = .Cells(.Rows.Count, "B").End(xlUp).Row
With hcr.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Join(liste, ",")
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End With
End Sub
değiştirdim. sizce sorun olur mu?
Abey değişiklik yaptığınız zaman kodlara aynı şeyleri tekrar yazıp düzeltmektense 1kg,1 lt ve toplam lt olanları function yaptım ordan kolayca bulunur artık.
Deneyin sorun varsa düzelteyim.
Dediğiniz array olarak sorun olmaz ama veri doğrulama içine almak için koda eklemelisiniz sayfa yerine.
(14/12/2023, 11:27)hnakis yazdı: With ThisWorkbook.Worksheets("Maliyet hesaplama")
son = .Cells(.Rows.Count, "B").End(xlUp).Row
Yukardaki ve end with kısmını ve Dim son As Long burayısilebilirsiniz bence array ile yapacaksanız.