=IF($M1=0;""; Koda Çevirme

[Hantor]

=IF($M1=0;""; Koda Çevirmek istiyorum ComboBox2 de bir değer göründüğünde TextBox5 değer atmasını istiyorum fakat ComboBox5 boşsa atmasın herhangi bir değer varsa atsın.

Örnek Kodu Böyle yaptım fakat başaramadım. Hata veren Kodu Kalınlaştırdım Şimdiden Teşekkür ederim.

Private Sub ComboBox2_Change()
On Error Resume Next
ComboBox2 = Evaluate("=büyükharf(""" & ComboBox2 & """)")
ComboBox2 = Evaluate("=upper(""" & ComboBox2 & """)")

Dim Bul As Range
Set Bul = Sheets("TahtaPaletData").Columns(13).Find(what:=ComboBox2, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
TextBox1.Text = Bul.Offset(0, 1).Value

If Val(ComboBox5) = "" TextBox5.Text = Bul.Offset(0, 3).Value

End Sub

 

[YUSUF44]

Kod mantığı aşağıdaki şekildedir. İlk kısım boşsa ne yapılacağını, ikinci kısım ise boş değilse ne yapılacağını belirtir:

if combobox2.value = "" then
    textbox5.text = ""
else
     TextBox5.Text = Bul.Offset(0, 3).Value
end if

 

[Hantor]

Kod mantığı aşağıdaki şekildedir. İlk kısım boşsa ne yapılacağını, ikinci kısım ise boş değilse ne yapılacağını belirtir:

if combobox2.value = "" then
    textbox5.text = ""
else
     TextBox5.Text = Bul.Offset(0, 3).Value
end if

Hocam Teşekkür ederim ama çalışmadı ComboBox5 de boş olmasına rağmen Texbox5 değer atıyor

 

[YUSUF44]

Kodda combobox2 kullanmıştık ama siz combobox5 diyorsunuz. Örnek dosya paylaşır mısınız?

 

[Hantor]

Dosya yüklenemiyor diyor yada ben başaramadım fakat tekrar anlatim umraım anlatabilirim.

Örnek Formülüm Aşağıdaki Gibidir.

Private Sub ComboBox2_Change()
Dim Bul As Range
Set Bul = Sheets("TahtaPaletData").Columns(13).Find(what:=ComboBox2, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
TextBox1.Text = Bul.Offset(0, 1).Value

If Val(ComboBox5) = "" TextBox5.Text = Bul.Offset(0, 3).Value

End Sub

Bu formülde anlatmak istediğim ComboBox2 de gelen kelimenin karşışına gelen değeri TextBox5 e atmasını istiyorum bunu yaptım. Fakat ComboBox2 de değer olsa bile ComboBox5 boş ise TextBox5 ComboBox2 olan kelimenin karşışına gelen değeri TextBox5 e atmasın gözükmesin umarım anlatabilmişimdir.


Kısaca bu Kodun Önüne

=IF($M1=0;""; bunun gelmesini istiyorum.

 

[YUSUF44]

Kodunuzun bu şekilde olduğuna emin misiniz? Bu şekilde hata vermesi gerekiyor bence!

Mantık yukarda belirttiğim gibi

if combobox5.value= "" then
......
else
...
end if