DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For sut = 2 To [a65536].End(3).Row
Range("a" & sut) = Trim(Range("a" & sut))
Range("b" & sut) = Trim(Range("b" & sut))
uz1 = Len(Range("c" & sut))
uz2 = Len(Range("c" & sut))
If uz1 > 11 And uz2 > 11 Then
MsgBox "11 Karekterden fazla giremezsiniz."
Exit Sub: End If
Next
End Sub