hücre değerinden parçaal

[TİKOS]

Arkadaşlar,
çok basit bir soru ama bir tülü hatırlayamadım.
Ekteki soruda b3 hücresindeki bilgiyi yazdığımda d3 hücresine ekteki dosyadaki
gibi kendi yazsın.
Şimdiden teşekkürler,

çok basit hatırlayamadım

 

[BG]

Sayın TİKOS

Arkadaşlar,
çok basit bir soru ama bir tülü hatırlayamadım.
Ekteki soruda b3 hücresindeki bilgiyi yazdığımda d3 hücresine ekteki dosyadaki
gibi kendi yazsın.
Şimdiden teşekkürler,

çok basit hatırlayamadım

D3 hücresine aşağıdaki formülü yapıştırınız.

=SOLDAN(B3;BUL(".";B3;1)-1)
=LEFT(B3;FIND(".";B3;1)-1)

 

[uzmanamele]

merhaba
bunlardan birini kullanabilirsiniz

=SOLDAN(B3;6)
=PARÇAAL(B3;1;6)
=PARÇAAL(B3;1;(BUL(".";B3;1))-1)

 

[Orion1]

Aşağıdaki formül işinizi görür.
=SOLDAN(B3;BUL(".";B3)-1)

 

[TİKOS]

TeŞekkÜrler

 

[TİKOS]

Hücreden parça al

Arkadaşlar,
ekteki dosyada soruyu gönderdim,
yardım istiyorum teşekkürler

 

[uzmanamele]

merhaba

bu işinizi görür mü?

=PARÇAAL(B3;((UZUNLUK(B3)-4)+1);1)*1

not:
sondaki "*1" alınan parçayı sayıya dönüştürmek içindir, kafanızı karıştırmasın.

 

[TİKOS]

TeŞekkÜrler
ParÇaal İngİlİzce KarŞiliĞi ?
Benİm Excel İnglİzce

 

[BG]

Merhaba

TeŞekkÜrler
ParÇaal İngİlİzce KarŞiliĞi ?
Benİm Excel İnglİzce

=MID(B3;((LEN(B3)-4)+1);1)*1

 

[karaca1981]

parçaal

selamun aleyküm göndermiş olduğum excellde hüçredeki toplanmış virileri parrçaal ile ayırma nasıl yapılır işlerim cok yoğun yardımlarınız için şlimdiden teşşekkürler

 

[Ömer]

Merhaba,

Likteki kodları module kopyalayarak aşağıdaki formülü I3 hücresine yazın ve yan ~ alt hücrelere kopyalayınız..

Cümle içinde kelimelerin ayrılması

=ayır(yerinekoy(formul($f3);"=";"");sütun(a1);"+")

Function ayır(Txt, n, Ayırıcı) As String
    Dim Txt1 As String, temperament As String
    Dim Elemansayısı As Integer, i As Integer
    Dim Karekter As String
        Txt1 = Txt
    If Ayırıcı = Chr(32) Then Txt1 = Application.Trim(Txt1)
        If Right(Txt1, Len(Txt1)) <> Ayırıcı Then _
        Txt1 = Txt1 & Ayırıcı
        Elemansayısı = 0
    Karekter = ""
        For i = 1 To Len(Txt1)
        If Mid(Txt1, i, 1) = Ayırıcı Then
            Elemansayısı = Elemansayısı + 1
            If Elemansayısı = n Then

                ayır = Karekter
                Exit Function
            Else
                Karekter = ""
            End If
        Else
            Karekter = Karekter & Mid(Txt1, i, 1)
        End If
    Next i
    ayır = ""
End Function

.