Maliyet hesabı

[murtaza_sahin]

idris bey
email adresinizi verirseniz size excel dosyası gönderip soru sormak isterim

 

[Merhum İdris SERDAR]

idris bey
email adresinizi verirseniz size excel dosyası gönderip soru sormak isterim

.


Dosyanızı, Dosya yükleme sitelerinden birine yükleyebilirsiniz.

.

 

[murtaza_sahin]

maliyet analizi

https://www.dropbox.com/s/nv6kdpn9c60glxt/Maliyet Hesabı.xlsx?dl=0

idris bey
bu dosyanın analiz kısmında 3 değişken girerek maliyet çalışması yapıyoruz. Satış kısmında ise birçok değişken var ve bu tabloya değişkenleri girerek çıkan satış fiyatını yazmak istiyorum.
Örneğin 300x600 bir boyut satış fiyatı 904 TL. Diğerlerinin de otomatik olarak oluşması için ne yapmalıyım?
iyi çalışmalar

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Kodlar satış sayfasıdnaki yükseklik ve uzunlukları ayrı ayrı Analiz sayfasıdnaki ilgili hücrelere yazar ve çıkan hesaplama sonucunu satış sayfasındaki ilgili hücreye ekler:

Sub hesapla()
Set s1 = Sheets("Analiz")
Set s2 = Sheets("Satış, TL")

ens = s2.Cells(2, Columns.Count).End(xlToLeft).Column
boys = s2.Cells(Rows.Count, "B").End(3).Row

For boy = 3 To boys
    For en = boy To ens
        s1.[C2] = WorksheetFunction.Index(s2.Range(Cells(1, "B"), Cells(boys, "B")), boy)
        s1.[C3] = WorksheetFunction.Index(s2.Range(Cells(2, "A"), Cells(2, ens)), en)
        sonuç = s1.[F27]
        s2.Cells(boy, en) = sonuç
    Next
Next
End Sub

Öncesinde Analiz sayfasının C22 hücresinde aşağıdaki formülü kullanınız:

=DÜŞEYARA(C2;AdamSaat!B3:AZ50;KAÇINCI(C3;AdamSaat!A2:AZ2;0)-1;0)

Bu formülü maalesef ne yaptımsa makroya ekleyemedim.

 

[murtaza_sahin]

yusuf bey
yardımlarınız için çok teşekkür ederim.
başarılar diliyorum

 

[murtaza_sahin]

yusuf bey
hesaplamalar soldan hücreleri birer sağa kaydırarak dolduruyor. Tüm hücreleri atlamadan dolduracak makroyu gönderebilir misiniz?
iyi çalışmalar