Excel formulu vba ya çevirme

[bunyamin42]

İndir Yeni

Dosyayı indir Yeni

dosya.co

dosyada bulunan kargo bölümüne
=EĞER("siteadi"="Vodafone";"sabitler sayfasında Vodafone ait fiyat";EĞER("siteadi"="HepsiBurada";"sabitler sayfasında Hepsisiburadaya ait fiyat";EĞER("siteadi"="Çiçek Sepeti";"sabitler sayfasında çiçek sepetine ait fiyat";EĞER(VE("satış fiyatı>=1;satış fiyat<=29,99);5,35;EĞER(VE(satış fiyat>=30;satış fiyat<=74,99);12,23;EĞER("siteadi"="Trendyol";"sabitler sayfasında trendyol ait fiyat")))))))


kar alanına ise;
F10 =Satış Fiyatı
F9 = Çıkan Miktar
F13 = komisyon
F14 = kargo
F9 = adet
düşeyara formul sonucu = sabitler sayfasında suan boş olan j sütünündan alacak.

=(((F10*F9)-((F10*F13/100)*F9)-(F14*F9))-(DÜŞEYARA(C5;Stoklar!B;15;0)*F9))


yukarıdaki formulleri vba ya uyarlayamadım Desteklerinizi bekliyorum.

 

[excelokyanus500]

Sanırım siz firma ismi ve desiye göre fiyat bulmak istiyorsunuz.
Fikir olarak söylüyorum;
Mesela Sabitler sayfasında 'KG/desi yerine "Vodefone'KG/desi" kullansak
Görünüş söyle olacak;

Vodefone'KG/desi

Yurtiçi Kargo

Kdv Dahil

mesela

Trendyol'KG/desi

Yurtiçi Kargo

Kdv Dahil

Burada

Şu makroyu kullanarak Örneğin kdv'li fiyata ulaşabilirsiniz.

Sub Makro1()
Sheets("Sabitler").Select
Bul = Application.InputBox("Firma İsmi Girin")
Kriter = Bul & "'KG/desi"
Firma = Range("K1:AI25").Find(Kriter).Address
Adresim = Application.WorksheetFunction.Substitute(Firma, "$", "")
Desi = Application.InputBox("Desi Girin")
'Range(Adresim).Offset(Desi, 2).Select
MsgBox Range(Adresim).Offset(Desi, 2)

End Sub

 

[bunyamin42]

Sanırım siz firma ismi ve desiye göre fiyat bulmak istiyorsunuz.
Fikir olarak söylüyorum;
Mesela Sabitler sayfasında 'KG/desi yerine "Vodefone'KG/desi" kullansak
Görünüş söyle olacak;

mesela


Burada

Şu makroyu kullanarak Örneğin kdv'li fiyata ulaşabilirsiniz.

Sub Makro1()
Sheets("Sabitler").Select
Bul = Application.InputBox("Firma İsmi Girin")
Kriter = Bul & "'KG/desi"
Firma = Range("K1:AI25").Find(Kriter).Address
Adresim = Application.WorksheetFunction.Substitute(Firma, "$", "")
Desi = Application.InputBox("Desi Girin")
'Range(Adresim).Offset(Desi, 2).Select
MsgBox Range(Adresim).Offset(Desi, 2)

End Sub

Tşkler bu kodu userformda nereye yapıştıracağım?