hücre içindeki değeri farklı hücrelere yazdırma

[suck2fingers]

selamlar,

örnek dosya içerisindeki değerde,

ilk virgüle kadarki değeri sadece başka bir hücrede yazdırmak yani ayırmak istiyorum formülü nedir acaba?

teşekkürler.

 

[Korhan Ayhan]

Selamlar,

B1 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=SOLDAN(A1;MBUL(",";A1;1)-1)

 

[Orion1]

Gerçi Sayın COST_CONTROL üstadım cevap vermiş ama bende makrolu cevap hazırladım.B sütununa aktarıyor.
Ekli dosyayı inceleyiniz.

Sub virgul()
Dim i As Long, k As Integer, deg As String
Sheets("UyeListesi").Select
Application.ScreenUpdating = False
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value <> "" Then
        deg = Empty
        For k = 1 To Len(Cells(i, "A").Value)
            If Mid(Cells(i, "A").Value, k, 1) = "," Then
                Cells(i, "B").Value = deg
                Exit For
                Else
                deg = deg & Mid(Cells(i, "A").Value, k, 1)
            End If
        Next k
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam.!" & vbLf & "B sütununa aktarıldı..!!"
End Sub

 

[suck2fingers]

çok teşekkürler her iki alternatifte sorunsuz işlemekte...emeğinize sağlık