satırdaki matematiksel değerleri almak

[corsan75]

arkadaşlar örnek dosyamda açıklamalarda da bulundum ama bana gereken satırlardaki metinler içinde bulunan matematiksel değerler.şimdiden teşekkürler.

 

[Murat OSMA]

Örnek dosya yok...

 

[corsan75]

Örnek dosya yok...

özür dilerim. şimdi ekledim

 

[Murat OSMA]

Estağfurullah, hatırlattım sadece...

Aşağıdaki kodu deneyiniz;

[SIZE="2"]Sub Emre()
    Dim i As Long
    For i = 15 To Range("B65536").End(3).Row
    If Cells(i, "B") Like "ANADOLU*" Then
    Cells(i, "F") = Mid(Cells(i, "B"), 19, 27)
    End If: Next i: i = Empty
End Sub[/SIZE]

 

[Merhum İdris SERDAR]

arkadaşlar örnek dosyamda açıklamalarda da bulundum ama bana gereken satırlardaki metinler içinde bulunan matematiksel değerler.şimdiden teşekkürler.

.

E15 Hücresine:

=IF(COUNTIF(B15:B15;"*POS*")>0;RIGHT(TRIM(B15);13);"")

yazıp aşağıya doğru istediğiniz kadar kopyalayın.

Dosyanız ekte.

.

 

[corsan75]

Estağfurullah, hatırlattım sadece...

Aşağıdaki kodu deneyiniz;

Sub Emre()
    Dim i As Long
    For i = 15 To Range("B65536").End(3).Row
    If Cells(i, "B") Like "ANADOLU*" Then
    Cells(i, "F") = Mid(Cells(i, "B"), 19, 27)
    End If: Next i: i = Empty
End Sub

hocam harika oldu.ellerinize sağlık.peki bunu aynı zamanda Anadolu pos değilde biraz daha metni uzun bir satırda da yapabilirmiyim acaba

 

[Murat OSMA]

Örnek verin meselâ...

 

[corsan75]

Örnek verin meselâ...

mesela örnek dosya içindeki sarı boyalı satır

 

[corsan75]

.

E15 Hücresine:

=IF(COUNTIF(B15:B15;"*POS*")>0;RIGHT(TRIM(B15);13);"")

yazıp aşağıya doğru istediğiniz kadar kopyalayın.

Dosyanız ekte.

.

çok sağolun ellerinize sağlık .ama o ara boş satırlardada değerleri alabilirmiyim

 

[Merhum İdris SERDAR]

çok sağolun ellerinize sağlık .ama o ara boş satırlardada değerleri alabilirmiyim

mesela örnek dosya içindeki sarı boyalı satır

.

Dosyanız ekte.


.

 

[Murat OSMA]

Sn.yurttas cevap vermiş ama bende makro ile sorunuza yanıt vermek istedim...

Sadece rakamsal değerleri alacağınızı düşündüm.
Önceki kodu bu kodla değiştirip deneyiniz...

[SIZE="2"]Sub Emre()
    Dim i As Long
    For i = 15 To Range("B65536").End(3).Row
    Cells(i, "B").Value = Trim(Cells(i, "B"))
    If IsNumeric(Left(Cells(i, "B"), 1)) Then
    Cells(i, "F") = Left(Cells(i, "B"), 7): End If
    If Cells(i, "B") Like "*POS*" Then
    Cells(i, "F") = Right(Cells(i, "B"), 13)
    End If: Next i: Columns.AutoFit: i = Empty
End Sub[/SIZE]