30/05/2020, 13:42
30/05/2020, 14:25
SN.FERAZ Hocam
Vermiş Olduğunuz Visual Basic Code
Olay
Güncelleştirme Sonrasında Bölümüne
Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Ekledim Oldu Fakat
ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor
Teşekkürler
Vermiş Olduğunuz Visual Basic Code
Olay
Güncelleştirme Sonrasında Bölümüne
Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Ekledim Oldu Fakat
ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor
Teşekkürler
30/05/2020, 14:26
(30/05/2020, 14:25)golf2000 yazdı: [ -> ]SN.FERAZ HocamRica ederiz.Birde ucase ve replacenin beraber kullanımı var onuda atarım birazdan
Vermiş Olduğunuz Visual Basic Code
Olay
Güncelleştirme Sonrasında Bölümüne
Adı_Soyadı = StrConv(Adı_Soyadı, vbUpperCase)
Ekledim Oldu Fakat
ali yazdığımda ALI yazıyor (İ) Harfini Yazmıyor (I) olarak yazıyor
Teşekkürler
30/05/2020, 14:28
Teşekkürler Hocam Bekliyorum
30/05/2020, 14:31
Alttaki gibi kalıp kopyala yapıştır yaptım.ç,ğ gibi harfler içinde ekleyebilirsiniz koda yada array içine alıp döngiylede yapabilirsiniz.
Xx = UCase(replace(replace(Xx, "ı", "I"), "i", "İ"))
Alttaki gibide bir kod buldum deneyemedim mobilden düzenledim küçük harfe çeviriyormuş Çç yerine çÇ ile değiştirin fiğerlerinide.
xx = deg.Replace(xx) bu şekildede olabilir emin değilim neden Trim yani boşluk kaldırma kodu eklemişler anlamadım.
Xx = UCase(replace(replace(Xx, "ı", "I"), "i", "İ"))
Alttaki gibide bir kod buldum deneyemedim mobilden düzenledim küçük harfe çeviriyormuş Çç yerine çÇ ile değiştirin fiğerlerinide.
Kod:
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
deg.Global = True
xx = Trim(deg.Replace(xx, " "))
Set deg = Nothing30/05/2020, 14:42
Orjinal kodlar altta ordan alıp değiştirdim.
Kod:
Sub Duzenle()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set deg = CreateObject("VBScript.Regexp")
deg.Pattern = "[^a-zA-Z0-9\Çç\Ğğ\İi\Iı\Öö\Şş\Üü\ ]"
deg.Global = True
For i = 1 To Cells(Rows.Count, "FF").End(xlUp).Row
Cells(i, "FF") = Trim(deg.Replace(Cells(i, "FF"), " "))
Next i
Set deg = Nothing
Columns("FF:FF").TextToColumns Destination:=Range("FF1"), DataType:= _
xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= _
True, Space:=True
Cells.HorizontalAlignment = xlLeft
Cells.EntireColumn.AutoFit
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub