Sayı ayırma

[ogecen]

Merhaba Sayın arkadaşlar,
A Sütunda bu şekilde bilgilerim var,

Örnek Hedefim:
İlk satırdaki +24.000 ü B1 e yazsın, dördüncü satırdaki -1.000 değeri C1 e yazsın, eğer satırda + veya - varsa boş geçsin

Saygılarımla,

801-TI1- YATIRIM FONU ALIŞI Fiyat/Faiz: 811.240681 Adt: +24.000

CARİ/YATIRIM VİRMANI

YATIRIM/CARİ VİRMANI

801-TI1- YATIRIM FONU SATIŞI Fiyat/Faiz: 810.191428 Adt: -1.000

801-TI1- YATIRIM FONU ALIŞI Fiyat/Faiz: 807.046848 Adt: +32.000

CARİ/YATIRIM VİRMANI

801-TI1- YATIRIM FONU ALIŞI Fiyat/Faiz: 803.911156 Adt: +27.000

CARİ/YATIRIM VİRMANI

801-TI1- YATIRIM FONU TALİMAT SONUCU - ALIM Fiyat/Faiz: 801.816832 Adt: +1.000

801-TI1- 02S/GARANTİSİZ TLMT.VE Fiyat/Faiz: 0.000000 Adt: +1.000

CARİ/YATIRIM VİRMANI

YATIRIM/CARİ VİRMANI

801-TI1- YATIRIM FONU SATIŞI Fiyat/Faiz: 800.767389 Adt: -1.000

MKK SAKLAMA KOMİSYONU

YATIRIM/CARİ VİRMANI

801-TI1- YATIRIM FONU SATIŞI Fiyat/Faiz: 800.767389 Adt: -28.000

YATIRIM/CARİ VİRMANI

801-TI1- YATIRIM FONU SATIŞI Fiyat/Faiz: 795.578624 Adt: -7.000

YATIRIM/CARİ VİRMANI

801-TI1- YATIRIM FONU SATIŞI Fiyat/Faiz: 795.578624 Adt: -8.000

YATIRIM/CARİ VİRMANI

801-TI1- YATIRIM FONU SATIŞI Fiyat/Faiz: 794.556765 Adt: -2.000

801-TI1- YATIRIM FONU ALIŞI Fiyat/Faiz: 792.509896 Adt: +76.000

CARİ/YATIRIM VİRMANI

801-TI1- YATIRIM FONU ALIŞI Fiyat/Faiz: 789.499842 Adt: +9.000

 

[systran]

+24000 de artı var, -1000 de - var neden bu ikisini hariç tutup +/- olanları boş geçsin dediniz? Orası anlaşılır değil.
1 ve 4. satır harici önemli değil mi?

 

[ogecen]

Sayın systran,
Amacım, + değerleri B1 e, - değerleri C1 yazmaktır.
Eğer A sütunda + veya - değer yok ise boş geçilsin

 

[Trilenium]

Sub siraliayikla()
Dim i As Long
Dim sonSatir As Long
Dim metin As String
Dim pozitifDeger As String
Dim negatifDeger As String
Dim plusPos As Long
Dim minusPos As Long
Dim sonrakiBosluk As Long
Dim bSatiri As Long
Dim cSatiri As Long

' A sütunundaki son satırı bul
sonSatir = Cells(Rows.Count, 1).End(xlUp).Row
bSatiri = 1
cSatiri = 1

For i = 1 To sonSatir
metin = Cells(i, 1).Value
plusPos = InStr(metin, "Adt: +")
minusPos = InStr(metin, "Adt: -")

' + ile başlayan sayısal değeri bul ve B sütununa aktar
If plusPos > 0 Then
sonrakiBosluk = InStr(plusPos + 6, metin, " ")
If sonrakiBosluk > 0 Then
pozitifDeger = Mid(metin, plusPos + 5, sonrakiBosluk - (plusPos + 5))
Else
pozitifDeger = Mid(metin, plusPos + 5)
End If
If IsNumeric(pozitifDeger) Then
Cells(bSatiri, 2).Value = "+" & pozitifDeger
bSatiri = bSatiri + 1
End If
End If

' - ile başlayan sayısal değeri bul ve C sütununa aktar
If minusPos > 0 Then
sonrakiBosluk = InStr(minusPos + 6, metin, " ")
If sonrakiBosluk > 0 Then
negatifDeger = Mid(metin, minusPos + 5, sonrakiBosluk - (minusPos + 5))
Else
negatifDeger = Mid(metin, minusPos + 5)
End If
If IsNumeric(negatifDeger) Then
Cells(cSatiri, 3).Value = "-" & negatifDeger
cSatiri = cSatiri + 1
End If
End If
Next i
End Sub

 

[ogecen]

Sayın Trilenium,

Geri dönüş için çok teşekkür ederim,
Eğer mümkün ise bu işlemi macro ile değil de formül ile yapabilirmir miyiz.
Saygılarımla,

 

[ÖmerBey]

Merhaba,
Aşağıdaki formülleri ilgili hücrelere uygulayıp deneyiniz.

B1:
=EĞER(EHATALIYSA(BUL("Adt: +";A1));"";--PARÇAAL(A1;BUL("Adt: +";A1)+5;20))

C1:
=EĞER(EHATALIYSA(BUL("Adt: -";A1));"";--PARÇAAL(A1;BUL("Adt: -";A1)+5;20))

 

[ogecen]

Ömer bey,
Bu güzel formüller için çok teşekkür ederim,

Saygılarımla