Parantez içindeki verileri başka sütunda göstermek

[batman53]

A sütunundaki parantez içindeki verileri B sütununda göstermek istiyorum.

Örnek:
A sütunu ----------B sütunu
Hasan (Veli)--------Veli
boşluk-------------boşluk
cem(hakan)--------hakan



yardımlarınız için şimdiden teşekürler.

 

[apocalyt]

verilerinizin a1 hücresinden başladığı varsayıldı..b1 hücresine kopyalayıp aşağıya çekiniz..

=EĞER(A1="";"";PARÇAAL(A1;MBUL("(";A1;1)+1;UZUNLUK(A1)-MBUL("(";A1;1)-1))

 

[Necdet]

A sütunundaki parantez içindeki verileri B sütununda göstermek istiyorum.

Örnek:
A sütunu ----------B sütunu
Hasan (Veli)--------Veli
boşluk-------------boşluk
cem(hakan)--------hakan



yardımlarınız için şimdiden teşekürler.

Parantez içinde olan sözcükleri B sütununa aldıktan sonra bunlar A sütunundan da silinecek mi? Yoksa A sütunu aynen kalacak mı?

 

[Orion1]

Dosyanız ektedir.

Sub paranteziçi59()
Dim sat As Long, i As Long, deg As String, a As Long, b As Long
Range("B:B").ClearContents
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat
    If Cells(i, "A").Value <> "" Then
        a = InStr(1, Cells(i, "A").Value, "(")
        b = InStr(1, Cells(i, "A").Value, ")")
        Cells(i, "B").Value = Mid(Cells(i, "A").Value, a + 1, b - a - 1)
     End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[turist]

Alternatif olarak;
A1 hücresine Hasan (Veli) yazdığınızı varsayarak;
B1 hücresine aşağıdaki formülü yazınız.
İngilizce için:

=IF(A1="";"";MID($A1;FIND("(";$A1)+1;(FIND(")";$A1)-FIND("(";$A1))-1))

Türkçe için:

=EĞER(A1="";"";ORTADAN($A1;BUL("(";$A1)+1;(BUL(")";$A1)-BUL("(";$A1))-1))

 

[batman53]

sağolun

sağolun yardımlarınız sayesinde çözdüm.

 

[batman53]

Bu konuyla ilgili bir şey daha vardı

Eğer hücrede parantez içi bir ifade yoksa, ilk kelimeyi almasını sağlamak istiyorum.
Örnek:
A sütunu-------B sütunu

Ali(VELİ)--------VELİ
boşluk----------boşluk
Hakan Yaşar----Hakan


SOLDAN(B6;(BUL(" ";B6)-1)) bunu denedim ama

=EĞER(A1="";"";PARÇAAL(A1;MBUL("(";A1;1)+1;UZUNLUK (A1)-MBUL("(";A1;1)-1))
buna nasıl entegre ediceğimi bulamadım.

 

[turist]

Eğer hücrede parantez içi bir ifade yoksa, ilk kelimeyi almasını sağlamak istiyorum.
Örnek:
A sütunu-------B sütunu

Ali(VELİ)--------VELİ
boşluk----------boşluk
Hakan Yaşar----Hakan


SOLDAN(B6;(BUL(" ";B6)-1)) bunu denedim ama

=EĞER(A1="";"";PARÇAAL(A1;MBUL("(";A1;1)+1;UZUNLUK (A1)-MBUL("(";A1;1)-1))
buna nasıl entegre ediceğimi bulamadım.

B1 hücresine:

=EĞERHATA(EĞER(A1="";"";ORTADAN($A1;BUL("(";$A1)+1;(BUL(")";$A1)-BUL("(";$A1))-1));SOLDAN(A1;BUL("";A1)-1))

formülünü uygulayınız.

 

[Orion1]

Eğer hücrede parantez içi bir ifade yoksa, ilk kelimeyi almasını sağlamak istiyorum.
Örnek:
A sütunu-------B sütunu

Ali(VELİ)--------VELİ
boşluk----------boşluk
Hakan Yaşar----Hakan


SOLDAN(B6;(BUL(" ";B6)-1)) bunu denedim ama

=EĞER(A1="";"";PARÇAAL(A1;MBUL("(";A1;1)+1;UZUNLUK (A1)-MBUL("(";A1;1)-1))
buna nasıl entegre ediceğimi bulamadım.

dosyanız ektedir.

Sub paranteziçi59()
Dim sat As Long, i As Long, deg As String, a As Long, b As Long
Range("B:B").ClearContents
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat
    If Cells(i, "A").Value <> "" Then
        If InStr(1, Cells(i, "A").Value, "(") > 0 Then
            a = InStr(1, Cells(i, "A").Value, "(")
            b = InStr(1, Cells(i, "A").Value, ")")
            Cells(i, "B").Value = Mid(Cells(i, "A").Value, a + 1, b - a - 1)
            Else
            a = InStr(1, Cells(i, "A").Value, " ")
            Cells(i, "B").Value = Left(Cells(i, "A").Value, a - 1)
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName
End Sub