satırdan satıra otomatik kayıt alma

[recobra20]

A sütununda sd111@aaa.dervis.edu.tr diye bir yazı var. B sütununa tıkladığımda sd111 yazmasını istiyorum. hangi formülle yapabilirim ?

 

[Murat OSMA]

Sayfanın kod kısmına yazıp deneyiniz;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    bul = InStr(1, Target.Value, "@")
    Target.Offset(0, 1).Value = Mid(Target.Value, 1, bul - 1)
End Sub

 

[recobra20]

hocam rica etsem formülü biraz açıklayabilir misiniz ?

 

[Murat OSMA]

Öncelikle bu yazdığım formül değil koddur (makro)...

Worksheet_SelectionChange olayı; hücre seçildiğinde çalışmasını istediğimiz durumlarda kullanılan olaydır.
Hücre seçilince işlem yapılmasını istediğiniz için kodları bu olay altında kullandım.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Eğer hedef sütun 1. sütun değilse, yani A sütunu değilse makrodan (prosedürden) çık. (Bir şey yapma)
If Target.Column <> 1 Then Exit Sub

Eğer hedef hücre boş ise; makrodan (prosedürden) çık. (Bir şey yapma)
If Target.Value = "" Then Exit Sub

Instr fonksiyonu ile bul değişkenine @ işaretinin kaçıncı karakter olduğunun bilgisini alıyoruz.
Verdiğiniz örnekte @ işareti 6. karakterdi ve bul değişkeninin aldığı değer 6 oldu.
bul = InStr(1, Target.Value, "@")

Hedef hücrenin sağındaki hücreye, hedef hücrede 1. karakterden 5. karaktere (bul -1) kadar olan kısmı yazdırıyoruz.
Target.Offset(0, 1).Value = Mid(Target.Value, 1, bul - 1)

Makroyu (prosedürü) sonlandırıyoruz.
End Sub


Not: Hedef hücre dediğim: seçilen hücredir. Hedef sütun ise: seçilen hücrenin bulunduğu sütundur.

 

[recobra20]

teşekkürler hocam ama benim istediğim şöyle birşeydi. excell çalışma sayfamın A sütununda sd111@aaa.dervis.edu.tr diye bir yazı var. B sütununa tıkladığımda sd111 yazmasını istiyorum. bunu excellde yapmam için nasıl bir excell formülü yapmalıyım ?

 

[Murat OSMA]

Sitede Parçaal yazıp aratınız.

 

[recobra20]

çok teşekkür ederim hocam. bana bi yol gösterdiniz

 

[Murat OSMA]

bi yol göstermedim, bir yol gösterdim.

İyi günler.