Kod içerinde çalışmayan kod satırı hk.

[Asri]

Trim li kullanın düzelir.

If trim(Cells(t, "P").Text) = trim(satıs.TextBox4.Text) Then

Formdan gelen bilginin sonunda boşluk var.
Excel de okunan bilginin sonunda boşluk yok.

Kısacası isimleri eşleştiremiyor.

Set S5 = Sheets("SATISVERI")
Sheets("SATISVERI").Select
Dim t As Long
Dim S5 As Worksheets
For t = 2 To S5.Range("p65536").End(3).Row
   If Cells(t, "P").Text = satıs.TextBox4.Text Then
        Select Case CInt(S5.Cells(t, "u").Value)
            Case Is = 0
                S5.Cells(t, "u").Value = satıs.TextBox2.Value
        End Select
    End If
Next t

 

[kemal turan]

Bende buldum hatayı.
Mailde size yazdıktan sonra mesajınızı gördüm.
Hakkınızı helal ediniz.
Selametle kalınız.

 

[Asri]

B

Bende buldum hatayı.
Mailde size yazdıktan sonra mesajınızı gördüm.
Hakkınızı helal ediniz.
Selametle kalınız.

Çözülmesine sevindim.
Sadece bir kaç parça kod ile bu sorun çözülemezdi