Bir sütunun tamamının sonuna yazı eklemek

[Liera11]

Örneği A sütununa bir şey yazdığımda sonuna otomatik olarak @yahoo.com eklesin istiyorum örneğin mailadresim yazdım a sütununa excel onu otomatik olarak mailadresim@yahoo.com yapsın bunun için nasıl bir formül yada makro kullanabilirim şimdiden teşekkürler

 

[feridici_genc]

b stununa

=BİRLEŞTİR(A1;"@yahoo.com")

yazın aşağı sürükleyin

 

[Liera11]

b stununa

=BİRLEŞTİR(A1;"@yahoo.com")

yazın aşağı sürükleyin

hocam öncelikle yardımınız için çok teşekkürler sorunsuz bi şekilde hallettim

bir sorum daha olucaktı şimdiden teşekkürler

Şimdi a1 sütununa İsim.Soyisim99 yazdım b1 sütununa otomatik olarak Soyisim99 yazdırmak mümkünmü yani noktadan sonra gelen kısmı otomatik b1 kısmını atıcak

 

[Ömer BARAN]

Merhaba.
Foruma hoşgeldiniz.
Aşağıdaki formüllerden birini kullanabilirsiniz.

=PARÇAAL(A1;BUL(".";A1;1)+1;UZUNLUK(A1)-BUL(".";A1;1))

=SAĞDAN(A1;UZUNLUK(A1)-BUL(".";A1;1))

=YERİNEKOY(A1;SOLDAN(A1;BUL(".";A1;1));"")

 

[Liera11]

Merhaba.
Foruma hoşgeldiniz.
Aşağıdaki formüllerden birini kullanabilirsiniz.

=PARÇAAL(A1;BUL(".";A1;1)+1;UZUNLUK(A1)-BUL(".";A1;1))

=SAĞDAN(A1;UZUNLUK(A1)-BUL(".";A1;1))

=YERİNEKOY(A1;SOLDAN(A1;BUL(".";A1;1));"")

çok teşekkürler hocam çok işime yaradı

 

[Orion1]

VBA kodlama ile.
Linkteki dosyayı inceleyiniz.

DOSYAYI İNDİR

Private Sub Worksheet_Change(ByVal Target As Range)
Dim deg As String
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Target.Offset(0, 1).ClearContents
deg = Right(Target.Value, Len(Target.Value) - InStr(1, Target.Value, "."))
Target.Offset(0, 1).Value = deg
End Sub