Ertem Erdoğan

Hata olsada vba kodunuzu çalıştırır


On Error GoTo Err

 Label28.Caption = Format(TextBox13UzmanlikTarihi.Text, "dddd")

    Exit Sub

Err:

label1.Caption = Environ$("username")

ComboBox2İncelemeMetodu.AddItem ("Ne istiyorsan gir")

If InStr(ExpertiziTalepEdenYertextBox1.Text, "Sav") > 0 Or InStr(ExpertiziTalepEdenYertextBox1.Text, "İl Emniyet Müdürlüğü") > 0 Or InStr(ExpertiziTalepEdenYertextBox1.Text, "Başmüfettişliği") > 0 Or InStr(ExpertiziTalepEdenYertextBox1.Text, "İl Jandarma Komutanlığı") > 0 Or InStr(ExpertiziTalepEdenYertextBox1.Text, "Başsav") > 0 Then
    arzRicatextBox2.Text = "arz"
 
Else
    arzRicatextBox2.Text = "rica"
End If

Function UCaseByGANSH(buyutulecek_metin As String) As String
Dim Buyuk_Harf As String
For i = 1 To Len(buyutulecek_metin)
Buyuk_Harf = Mid(buyutulecek_metin, i, 1)
If Asc(Buyuk_Harf) > 91 Then
If Buyuk_Harf = "i" Then
Buyuk_Harf = "İ"
ElseIf Buyuk_Harf = "ı" Then
Buyuk_Harf = "I"
Else
If Asc(Buyuk_Harf) > 198 And Asc(Buyuk_Harf) < 223 Then
Buyuk_Harf = Buyuk_Harf
Else
Buyuk_Harf = Chr(Asc(Buyuk_Harf) - 32)
End If
End If
End If
UCaseByGANSH = UCaseByGANSH & Buyuk_Harf
Next i
End Function

Sub WordReplace(degistirilecekAlan As String, kelime As String)

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = degistirilecekAlan
        .Replacement.Text = kelime
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Label28.Caption = Format(TextBox13UzmanlikTarihi.Text, "dddd")