Kelime ayırma

[ogecen]

Merhaba arkadaşlar

A1 de 01-RM007 olan veriyi,
B1 e 01
C1 e RM007
olarak ayırabilirmiyiz ?

- den sonra uzunluk değişebiliyor.

Teşekkür ederim.

 

[tugkan]

Elbette, bu iş için Excel'de birkaç yöntem kullanabilirsiniz. Aşağıdaki adımları takip ederek A1 hücresindeki veriyi - işaretiyle ayırabilirsiniz:

Formül Yöntemi

1. B1 Hücresine:
   
   
   

   =SOL(A1; BUL("-"; A1) - 1)

   Bu formül, - işareti öncesindeki kısmı alır ve B1 hücresine yazar.
2. C1 Hücresine:
   
   
   

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

   Bu formül, - işaretinden sonrasını alır ve C1 hücresine yazar.

VBA Makro Yöntemi
Eğer bu işlemi VBA makrosu ile yapmak isterseniz, aşağıdaki makro kodunu kullanabilirsiniz:

Sub Ayir()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' Sayfa adınızı buraya girin

Dim cell As Range
For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row)
If InStr(cell.Value, "-") > 0 Then
cell.Offset(0, 1).Value = Left(cell.Value, InStr(cell.Value, "-") - 1)
cell.Offset(0, 2).Value = Mid(cell.Value, InStr(cell.Value, "-") + 1)
End If
Next cell
End Sub

Bu makro, A1 hücresindeki veriyi - işareti ile ayırır ve B1 ve C1 hücrelerine yazar. Makroyu çalıştırmak için Excel'de ALT + F11 tuşlarına basarak VBA editörüne geçin, yeni bir modül ekleyin ve yukarıdaki kodu yapıştırın. Daha sonra makroyu çalıştırabilirsiniz.

Her iki yöntem de - işareti ile veriyi ayırmanıza yardımcı olacaktır.

 

[ogecen]

Tugkan bey
B1 için formül ekli dosyada görüldüğü gibi hata verdi

 

[ASLAN7410]

Merhaba.
B2 hücresine

=SOLDAN(A2; BUL("-"; A2) - 1)

C2 hücresine

=SAĞDAN(A2; UZUNLUK(A2) - BUL("-"; A2))

 

[tugkan]

Dosyayı indiremedim ama
B1'e aşağıdaki formülü

=SOLDAN(A1;BUL("-";A1)-1)

C1'e ise aşağıdaki formülü yazıp dener misiniz?

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

 

[ogecen]

Çok teşekkür ederim