bir hücrede bulunan sayısal değer boş görülüyor ve işlem yapılamıyor.

[bulentcigali]

iyi günler ben bir sayfada elde etmiş olduğum dolu bir hücredeki rakamla ilgili işlem yapmak istiyorum ancak ilgili hücre dolu olmasına rağmen bu hücreyi bir textbox a atarken boş gözüküyor.ekte uygulamamın bir bölümünü gönderiyorum yardımcı olursanız sevineceğim.iyi hafta sonları.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Change()
Dim ay As String
If ComboBox1.Value = "" Then Exit Sub
Set Sh = Sheets("gunısı")
Sh.Select
ay = ComboBox1.Value
say = Sheets("gunısı").Range("a7").CurrentRegion.Rows.Count
For i = 4 To 15
   If ay = Sh.Cells(5, i) Then
       TextBox7 = Sh.Cells(53, i).Value
       Exit For
   End If
Next
End Sub

 

[bulentcigali]

sayın orion2 teşekkür ederim ben satır sütun kavramını karıştırmışım çözümünüzden dolayı tekrar teşekkür ederim iyi akşamlar.hatalarımızın bulunmasıda çok güzel hata olmayınca insam gelişemiyor.

 

[Orion1]

sayın orion2 teşekkür ederim ben satır sütun kavramını karıştırmışım çözümünüzden dolayı tekrar teşekkür ederim iyi akşamlar.hatalarımızın bulunmasıda çok güzel hata olmayınca insam gelişemiyor.

Rica ederim.
İyi çalışmalar.