soyadı küçük büyük ve email

[beyza]

Selam soyadı kısmını küçük olarak giriyorum bunu kendisi otomatik büyük harf ile yazıcak birde sicili kısmında 1256 sicili email kısmına kendisi otomatik ak1256@mynet gibi yazabilirmi sicil kısmından sicili alıp kendisi diğer ksıımlar sabit nasıl yapabilirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:C1000]) Is Nothing Then Exit Sub
For SUT = 2 To Cells(65536, "B").End(3).Row
Cells(SUT, "B") = UCase(Replace(Replace(Cells(SUT, "B"), "ı", "I"), "i", "İ"))
Next
For SUT = 2 To Cells(65536, "C").End(3).Row
Cells(SUT, "D") = Cells(SUT, "C") & "AD" & "@mynet.com"
Next
End Sub

 

[Necdet]

email ekleme

Merhaba,

Bende veri giriş sırasında işlemi yapmaya çalıştım. Hyperlink eklendi.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:C]) Is Nothing Then Exit Sub
If Target <> "" And Target.Column = 1 Then
    Target = Evaluate("=proper(""" & Target & """)")
    Target.Offset(0, 1).Select
ElseIf Target <> "" And Target.Column = 2 Then
    Target = Evaluate("=upper(""" & Target & """)")
    Target.Offset(0, 1).Select
ElseIf Target <> "" And Target.Column = 3 Then
    Target.Offset(0, 1).FormulaR1C1 = Evaluate("=lower(""" & Target.Offset(0, -2) & """)") & Target & "@mynet"
    Target.Offset(0, 1).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "mailto:" & Target.Offset(0, 1)
End If
Son:
End Sub