- Katılım
- 4 Ekim 2004
- Mesajlar
- 155
If Mid(Range("M2").Value, 1, 2) = "GR" Then
Dim hucre11 As String
hucre11 = Range("M2")
'Range("M12").Value = Left(hucre11, 2) & "-" & Right(hucre11, Len(hucre11) - 3)
Range("G10").Value = ComboBox8.Value
Range("G10").Select: Selection.NumberFormat = "0"
Range("M2").Select: Selection.NumberFormat = "0"
'Range M2 İLE Range G10 A baktığımda ikisindede GR 60 YAZIYOR AMA EÃİT OLARAK KABUL ETMİYOR NEDEN?
If Range("M2").Value = Range("G10").Value Then TextBox57.Locked = True: ListBox1.Locked = False
If Range("M2").Value <> Range("G10").Value Then MsgBox "Kalite Yanlış Girildi, K.K Kayıtları bu dökümün" & " " & Range("M2").Value & " " & "Olduğunu gösteriyor! İrtibat Kurunuz...!", , "DİKKAT...!": TextBox57.Locked = True: ListBox1.Locked = True: Exit Sub 'Bu mesaj Cıkıyor... bu satır çalışıyor yani
GoTo cikiskontrol
End If
Dim hucre11 As String
hucre11 = Range("M2")
'Range("M12").Value = Left(hucre11, 2) & "-" & Right(hucre11, Len(hucre11) - 3)
Range("G10").Value = ComboBox8.Value
Range("G10").Select: Selection.NumberFormat = "0"
Range("M2").Select: Selection.NumberFormat = "0"
'Range M2 İLE Range G10 A baktığımda ikisindede GR 60 YAZIYOR AMA EÃİT OLARAK KABUL ETMİYOR NEDEN?
If Range("M2").Value = Range("G10").Value Then TextBox57.Locked = True: ListBox1.Locked = False
If Range("M2").Value <> Range("G10").Value Then MsgBox "Kalite Yanlış Girildi, K.K Kayıtları bu dökümün" & " " & Range("M2").Value & " " & "Olduğunu gösteriyor! İrtibat Kurunuz...!", , "DİKKAT...!": TextBox57.Locked = True: ListBox1.Locked = True: Exit Sub 'Bu mesaj Cıkıyor... bu satır çalışıyor yani
GoTo cikiskontrol
End If