hücreden kelime almak

ADEMES · 5 Nisan 2017

aşağıda ki hücreden mv den sonra gelen bölümde Diana Island yazısını başka bir hücreye yazdırmak istiyorum. Ayrıca aynı hücreden open sonrası gelen kısmıda alabilirmiyiz.

MV.DIANA ISLAND (28K) OPEN INDO (INT: TANJUNG PRIOK) 16-18 APR 2017

Cevabınızı rica ederim

selamlar
adem

bzace · 5 Nisan 2017

Merhaba,
Kalıbınızı tam öğrenmek için farklı bir kaç örnek verebilir misiniz?
Yazılacak formül boş yere yazılmasın.

ADEMES · 5 Nisan 2017

MV CARIBOO (ex METROPOL) OPEN BANGLADESH 7/10 APRIL
MV CARMENCITA……58,770 MT DWT.. KEMAMAN, W MALAYSIA….. O/A APRIL 13TH
MV CATAMARCA 53,035mt -OPEN CORPUS CHRISTI 4/9 APRIL,"
MV CH BELLA 33K/10BLT 4X30T CRN, 4X10CBM GRAB OPEN CAOJING 10/APR
MV Chloe 56k Open : Haldia, 8-11 April,"Energy Bulk Carriers
MV DIMI - DWT 57,045 - BLT 2012 - OPEN HAZIRA 6 APRIL ** MSG#:<147963> (REF:170DPJT00),"TELiX MSG: 0DPJT-00 05/04/17 09:44
MV DIMIJOHN A - ECO TESS 58K DWT OPEN Thailand 14/19 APR (REF:170DN2D),"TELiX MSG: 0DN2D 04/04/17 10:54

ADEMES · 5 Nisan 2017

gemilerin pozisyonlarının geldiği başlıklar yada cümle içinde ki sözcükler

Asri · 5 Nisan 2017

ADEMES' Alıntı:
MV CARIBOO (ex METROPOL) OPEN BANGLADESH 7/10 APRIL
MV CARMENCITA……58,770 MT DWT.. KEMAMAN, W MALAYSIA….. O/A APRIL 13TH
MV CATAMARCA 53,035mt -OPEN CORPUS CHRISTI 4/9 APRIL,"
MV CH BELLA 33K/10BLT 4X30T CRN, 4X10CBM GRAB OPEN CAOJING 10/APR
MV Chloe 56k Open : Haldia, 8-11 April,"Energy Bulk Carriers
MV DIMI - DWT 57,045 - BLT 2012 - OPEN HAZIRA 6 APRIL ** MSG#:<147963> (REF:170DPJT00),"TELiX MSG: 0DPJT-00 05/04/17 09:44
MV DIMIJOHN A - ECO TESS 58K DWT OPEN Thailand 14/19 APR (REF:170DN2D),"TELiX MSG: 0DN2D 04/04/17 10:54

Her bir satırın bilgileri alınmış olarak sonuçlarını da aşağıda yazabilir misiniz?
OPEN olmayan satır da var.

ADEMES · 5 Nisan 2017

MV CARIBOO OPEN BANGLADESH 7/10 APRIL
MV CARMENCITA KEMAMAN APRIL 13TH
MV CATAMARCA OPEN CORPUS CHRISTI 4/9 APRIL
MV CH BELLA OPEN CAOJING 10/APR
MV Chloe Open : Haldia, 8-11 April
MV DIMI OPEN HAZIRA 6 APRIL
MV DIMIJOHN A OPEN Thailand 14/19 APR

sonda ki tarihleride alırsak mükemmel olur.

tarih yazmasada geminin bulunduğu bolge ve tarih bilgileri oluyor

emeğinize teşekkürler
adem

Asri · 6 Nisan 2017

ADEMES' Alıntı:
MV CARIBOO (ex METROPOL) OPEN BANGLADESH 7/10 APRIL
MV CARMENCITA……58,770 MT DWT.. KEMAMAN, W MALAYSIA….. O/A APRIL 13TH
MV CATAMARCA 53,035mt -OPEN CORPUS CHRISTI 4/9 APRIL,"
MV CH BELLA 33K/10BLT 4X30T CRN, 4X10CBM GRAB OPEN CAOJING 10/APR
MV Chloe 56k Open : Haldia, 8-11 April,"Energy Bulk Carriers
MV DIMI - DWT 57,045 - BLT 2012 - OPEN HAZIRA 6 APRIL ** MSG#:<147963> (REF:170DPJT00),"TELiX MSG: 0DPJT-00 05/04/17 09:44
MV DIMIJOHN A - ECO TESS 58K DWT OPEN Thailand 14/19 APR (REF:170DN2D),"TELiX MSG: 0DN2D 04/04/17 10:54

Bu kodları deneyiniz.
Yukarıdaki bilgiler için aşağıdaki sonucu verecektir.
Önemli olan ayrıntı.
MV ve isimden sonra sayı gelmesi.

OPEN ve isimden sonra sayı gelmesi.

MV CARIBOO (EX METROPOL) OPEN BANGLADESH 7/10 APRIL
MV CARMENCITA……
MV CATAMARCA OPEN CORPUS CHRISTI 4/9 APRIL
MV CH BELLA OPEN CAOJING 10/APR
MV CHLOE OPEN : HALDIA, 8-11 APRIL
MV DIMI - DWT OPEN HAZIRA 6 APRIL
MV DIMIJOHN A - ECO TESS OPEN THAILAND 14/19 APR

Kod:

Sub mv_openal()
  sonsatir = Cells(Rows.Count, "A").End(3).Row
  mvaldi = False
  For i = 1 To sonsatir
    veri = UCase(Cells(i, 1).Value)
    mvaldi = False
    openaldi = False
    
    If InStr(veri, "MV") > 0 Or InStr(veri, "M/V") > 0  Or InStr(veri, "M V") > 0 Then
       For j = 1 To Len(veri)
         harf = Mid(veri, j, 1)
         openmi = Mid(veri, j, 4)
         If (sayimi(harf, "", "") Or openmi = "OPEN") And mvaldi = False Then
            mvbilgi = Mid(veri, 1, j - 1)
            mvaldi = True
            Cells(i, 2).Value = mvbilgi
         End If
       Next j
    End If
         
    If InStr(veri, "OPEN") > 0 And mvaldi Then
       For j = InStr(veri, "OPEN") To Len(veri)
         harf = Mid(veri, j, 1)
         If sayimi(harf, "", "") And openaldi = False Then
            say = 0
            For j1 = j To Len(veri)
              If Mid(veri, j1, 1) = " " Or Mid(veri, j1, 1) = "," Then say = say + 1
              If say = 2 Then Exit For
            Next j1
            
            openbilgi = Mid(veri, InStr(veri, "OPEN"), j1 - InStr(veri, "OPEN"))
            openaldi = True
            Cells(i, 2).Value = mvbilgi & " " & openbilgi
         End If
       Next j
    End If
  Next i
  End Sub

bzace · 6 Nisan 2017

Formül ile alternatif olsun.

Kod:

[SIZE="2"]=KIRP(YERİNEKOY(SOLDAN(A1;MİN(EĞERHATA(
  MBUL({"("\"…"\"-"\"0"\"1"\"2"\"3"\"4"\"5"\"6"\"7"\"8"\"9"};A1;1);""))-1);"MV";))[/SIZE]
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Bu formül gemi isimlerini alacaktır.
OPEN' dan sonra istediğiniz kriterleri nasıl alırız şu anlık bir şey bulamadım.

Not: Sadece M/V tipinde gemiler ile işiniz yoksa YERİNEKOY formülünü çoğaltınız. Yerinekoy(yerinekoy("MV"; );"MT"; ) .... gibi
Gemi adından sonraki terimler çok karışık, farklı veriler varsa { } içerisindeki verileri çoğaltınız.

Saygılar,
Şeşen

osman68 · 6 Nisan 2017

PK4256399 BNSDB 12/31 K: 1,51 114,99
PK4256399 DIGDB 12/31 K: 3,62 274,88
PK4256399 BONUS 12/31 K: 1,52 115,48

Satır sonralarında 1,51-3,62-1,52 ler var ben bu kesintileri başka bir sutunuda aktarmak istiyorum.

Asri · 6 Nisan 2017

osman68' Alıntı:
PK4256399 BNSDB 12/31 K: 1,51 114,99
PK4256399 DIGDB 12/31 K: 3,62 274,88
PK4256399 BONUS 12/31 K: 1,52 115,48

Satır sonralarında 1,51-3,62-1,52 ler var ben bu kesintileri başka bir sutunuda aktarmak istiyorum.

Aşağıdaki şekilde deneyiniz.
Önemli ayrıntı. K: ve bir boşluk olmalı.
1,51 den sonraki ramak ile arasında bir boşluk olmalı.
en son rakamdan sonra boşluk olmamalı.

Kod:

Sub sayial()
  sonsatir = Cells(Rows.Count, "A").End(3).Row
  For i = 1 To sonsatir
    veri = UCase(Cells(i, 1).Value)
    basla = InStr(veri, "K:") + 3
    bitir = InStrRev(veri, " ")
    veri = Mid(veri, basla, bitir - basla)
    Cells(i, 2).Value = 0 + veri
  Next i
End Sub

ADEMES · 6 Nisan 2017

MERHABA ,

ELİNİZE SAĞLIK FORMUL ILE ISIMI HALLEDEBİLDİM AMA ALTTA YAZIDIGINIZ NOTTAKI KISMI UYGULAYAMADIM

Not: Sadece M/V tipinde gemiler ile işiniz yoksa YERİNEKOY formülünü çoğaltınız. Yerinekoy(yerinekoy("MV"; );"MT"; ) .... gibi

MV , M/V , MV , M V ŞEKLİDEN 4 YAZIM ŞEKLİ VAR ,

Gemi adından sonraki terimler çok karışık, farklı veriler varsa { } içerisindeki verileri çoğaltınız.

BU KISMI TAM OLARAK ANLAMADIM

FORMULU GUNCELLEYEREK TEKRAR ATAR MISINIZ

SELAMLAR
ADEM

bzace · 6 Nisan 2017

Kod:

=KIRP(YERİNEKOY(YERİNEKOY(YERİNEKOY(SOLDAN(A1;
  MİN(EĞERHATA(MBUL({"("\"…"\"-"\"0"\"1"\"2"\"3"\"4"\"5"\"6"\"7"\"8"\"9"};A1;1);""))-1);
"MV";);"M V";);"M/V";))

Şeklinde deneyiniz. Dizi formülü olduğunu unutmayınız.