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

Katılım
11 Ekim 2006
Mesajlar
64
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
27-02-2020
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

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

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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.:cool:
Kod:
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
 
Son düzenleme:
Katılım
11 Ekim 2006
Mesajlar
64
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
27-02-2020
&#231;ok te&#351;ekk&#252;rler her iki alternatifte sorunsuz i&#351;lemekte...eme&#287;inize sa&#287;l&#305;k
 
Üst