Çözüldü TextBox da şartlı Vlookup

[Bunyamin]

MErhaba;


Daha önce bu soruyu sormuştum. Ancak çözülmeden çözüldüye getirildi. Buradan yenisini soruyorum.

Satış-çıkış sayfasında; Kargo fiyatı için sorum.

Bu durum sadece n11 ve trendyol için geçerlidir. Diğerleri tablodan işlem yapacak.

1.şart;
Ürünün satış fiyatı 29,99 ve altı ise; Ürünün desisine bakılmaksızın sabitler sayfasında Trendyol yada n11 kargo fiyatlarının 5.satırına fiyatları yazmasını istiyorum.

2.şart;
ürünün satışı fiyatı 30 ile 69,99 arası ise Ürünün desisine bakılmaksızın sabitler sayfasında Trendyol yada n11 kargo fiyatlarının 5.satırına fiyatları yazmasını istiyorum.

eğer bu iki şart olmuyorsa yani satış fiyatı 75 TL ise sabitler sayfasındaki kargo fiyatını getirmesini istiyorum.

Örneğin ekteki resimde satış fiyatı 29,99 ve satılan site n11 olduğu için kargo fiyatını : sabitler sayfasında n11 e gidip u3 hücresindeki yazsın istiyorum.

 

[oilgun]

Kar kodunu şu şekilde dener misiniz?

Sub kar()
    On Error Resume Next
    TextBoxKAR = Empty
    sat = TextBoxSATISFIYATI * 1
    kom = TextBoxKOMISYON * 1
    If ComboBoxSITEADI.Value = "N11.com" Or ComboBoxSITEADI.Value = "Trendyol" Then
  

Select Case sat
Case Is < 30
 If ComboBoxSITEADI.Value = "N11.com" Then
 
TextBoxKARGO.Value = Range("U3").Value
Else
TextBoxKARGO.Value = Range("K3").Value
End If
Case 30 To 6999 / 100
 If ComboBoxSITEADI.Value = "N11.com" Then
 
TextBoxKARGO.Value = Range("U4").Value
Else
TextBoxKARGO.Value = Range("K4").Value
End If



End Select
    End If
    kargo = Replace(TextBoxKARGO, ".", ",") * 1
  
    mal = Replace(TextBoxMALİYET, ".", ",") * 1
    TextBoxKAR = (sat * ((100 - kom) / 100)) - kargo - mal



End Sub

 

[Bunyamin]

Kar kodunu şu şekilde dener misiniz?

Sub kar()
    On Error Resume Next
    TextBoxKAR = Empty
    sat = TextBoxSATISFIYATI * 1
    kom = TextBoxKOMISYON * 1
    If ComboBoxSITEADI.Value = "N11.com" Or ComboBoxSITEADI.Value = "Trendyol" Then
 

Select Case sat
Case Is < 30
If ComboBoxSITEADI.Value = "N11.com" Then

TextBoxKARGO.Value = Range("U3").Value
Else
TextBoxKARGO.Value = Range("K3").Value
End If
Case 30 To 6999 / 100
If ComboBoxSITEADI.Value = "N11.com" Then

TextBoxKARGO.Value = Range("U4").Value
Else
TextBoxKARGO.Value = Range("K4").Value
End If



End Select
    End If
    kargo = Replace(TextBoxKARGO, ".", ",") * 1
 
    mal = Replace(TextBoxMALİYET, ".", ",") * 1
    TextBoxKAR = (sat * ((100 - kom) / 100)) - kargo - mal



End Sub

yapıştırıyorum. kilitliyor. işlem yaptırmıyor.

 

[oilgun]

İşletim sistemi yada sürüm farkı var sanırım. Kendimde denedim oldu.

 

[Bunyamin]

dosyayı ekleyebilirmisiniz?

 

[oilgun]

Sub kar()
    On Error Resume Next
    TextBoxKAR = Empty
    sat = TextBoxSATISFIYATI * 1
    kom = TextBoxKOMISYON * 1
    If ComboBoxSITEADI.Value = "N11.com" Or ComboBoxSITEADI.Value = "Trendyol" Then
  

Select Case sat
Case Is < 30
'MsgBox "30altı"
 If ComboBoxSITEADI.Value = "N11.com" Then
 
TextBoxKARGO.Value = Sheets("Sabitler").Range("U3").Value
Else
TextBoxKARGO.Value = Sheets("Sabitler").Range("K3").Value
End If
Case 30 To (6999 / 100)
'MsgBox "30üstü"
 If ComboBoxSITEADI.Value = "N11.com" Then
 
TextBoxKARGO.Value = Sheets("Sabitler").Range("U4").Value
Else
TextBoxKARGO.Value = Sheets("Sabitler").Range("K4").Value
End If



End Select
    End If
    kargo = Replace(TextBoxKARGO, ".", ",") * 1
  
    mal = Replace(TextBoxMALİYET, ".", ",") * 1
    TextBoxKAR = (sat * ((100 - kom) / 100)) - kargo - mal



End Sub

 

[Bunyamin]

Teşekkürler

 

[oilgun]

Konu çözüldü değil mi? Duruma göre konuyu kapatayım.

 

[Bunyamin]

evet çözüldü.