• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Bir hücredeki metini kısmi olarak almak

  • Konbuyu başlatan Konbuyu başlatan eczdoku
  • Başlangıç tarihi Başlangıç tarihi
Katılım
23 Ekim 2022
Mesajlar
11
Excel Vers. ve Dili
proffessional plus 2016
Aşağıdaki tabloda A sütunundaki metinlerin içinden, B sütunundaki bilgileri formulle nasıl alabilirim?



Üre.ser.: 1' E81 (12 Girişler)

E81

Üre.ser.: 1' E82 (14 Girişler)

E82

Üre.ser.: 1' E87 (6 Girişler)

E87

Üre.ser.: 1' E87 LCI (12 Girişler)

E87 LCI

Üre.ser.: 1' E88 (14 Girişler)

E88

Üre.ser.: 1' F20 (21 Girişler)

F20

Üre.ser.: 1' F20 LCI (26 Girişler)

F20 LCI

Üre.ser.: 1' F21 (14 Girişler)

F21

Üre.ser.: 1' F21 LCI (20 Girişler)

F21 LCI

Üre.ser.: X6 E72 Hybrid (2 Girişler)

E72

Üre.ser.: X6 F16 (15 Girişler)

F16

Üre.ser.: X6 G06 (30 Girişler)

G06

Üre.ser.: X6 M F86 (2 Girişler)

F86

Üre.ser.: X6 M F96 (4 Girişler)

F96

Üre.ser.: X7 G07 (40 Girişler)

G07

Üre.ser.: X7 G07 LCI (8 Girişler)

G07 LCI

Üre.ser.: Z3 E36 (24 Girişler)

E36

Üre.ser.: Z4 E85 (13 Girişler)

E85

Üre.ser.: Z4 E86 (4 Girişler)

E86

Üre.ser.: Z4 E89 (11 Girişler)

E89

Üre.ser.: Z4 G29 (14 Girişler)

G29

Üre.ser.: MINI R50 (5 Girişler)

R50

Üre.ser.: MINI Cabrio R52 (5 Girişler)

R52

Üre.ser.: MINI Countryman R60 (28 Girişler)

R60

Üre.ser.: MINI Paceman R61 (16 Girişler)

R61

Üre.ser.: MINI Clubman F54 (24 Girişler)

F54

Üre.ser.: MINI Clubman F54 LCI (16 Girişler)

F54 LCI

Üre.ser.: MINI F55 (23 Girişler)

F55

Üre.ser.: MINI F55 LCI (10 Girişler)

F55 LCI

Üre.ser.: MINI F56 (29 Girişler)

F56

Üre.ser.: MINI F56 LCI (12 Girişler)

F56 LCI

Üre.ser.: MINI F56 BEV (2 Girişler)

F56 BEV

Üre.ser.: MINI F56 BEV LCI (2 Girişler)

F56 BEV LCI

Üre.ser.: 3' F80 M3 (2 Girişler)

F80

Üre.ser.: 3' F80 M3 LCI (2 Girişler)

F83 LCI

Üre.ser.: 3' G20 (58 Girişler)

G20

Üre.ser.: 3' G20 LCI (44 Girişler)

G20 LCI

Üre.ser.: 3' G21 (21 Girişler)

G21

Üre.ser.: 3' G21 LCI (17 Girişler)

G21 LCI

Üre.ser.: 3' G80 M3 (6 Girişler)

G80

Üre.ser.: 3' G81 M3 Touring (2 Girişler)

G81

Üre.ser.: 4' F32 (34 Girişler)

F32
 
Kod:
=MID(A1;14;FIND("(";A1)-14)

.
 
Muhterem; kullandığınız Excel versiyonu Türkçe....

Formülü Türkçeye çevirip, deneyin....

.
 
Hocam çalıştı ama hatalı olanları B sütununda, olması gereken halini de C sütununda belirttim. yapılabilir mi?


Üre.ser.: 2' F44 Gran Coupé (36 Girişler)

F44 Gran Coupé

F44

Üre.ser.: 2' F45 Active Tourer (15 Girişler)

F45 Active Tourer

F45

Üre.ser.: 2' F45 Active Tourer LCI (19 Girişler)

F45 Active Tourer LCI

F45 LCI

Üre.ser.: 2' F46 Gran Tourer (10 Girişler)

F46 Gran Tourer

F46

Üre.ser.: 2' F46 Gran Tourer LCI (12 Girişler)

F46 Gran Tourer LCI

F46 LCI

Üre.ser.: 2' F87 M2 (2 Girişler)

F87 M2

F87

Üre.ser.: 2' F87 M2 LCI (4 Girişler)

F87 M2 LCI

F87 LCI

Üre.ser.: 2' G42 (11 Girişler)

G42

G42

Üre.ser.: 2' U06 Active Tourer (20 Girişler)

U06 Active Tourer

U06

Üre.ser.: 3' F34 GT (28 Girişler)

F34 GT

F34

Üre.ser.: 3' F34 GT LCI (19 Girişler)

F34 GT LCI

F34 LCI

Üre.ser.: 3' G81 M3 Touring (2 Girişler)

G81 M3 Touring

G81

Üre.ser.: 8' G16 Gran Coupé (10 Girişler)

G16 Gran Coupé

G16

Üre.ser.: X6 E72 Hybrid (2 Girişler)

E72 Hybrid

E72

Üre.ser.: X4 M F98 (2 Girişler)

M F98

F98

Üre.ser.: X4 M F98 LCI (2 Girişler)

M F98 LCI

F98 LCI

Üre.ser.: X3 M F97 (2 Girişler)

M F97

F97

Üre.ser.: X3 M F97 LCI (2 Girişler)

M F97 LCI

F97 LCI

Üre.ser.: MINI R50 (5 Girişler)

I R50

R50

Üre.ser.: MINI Cabrio R52 (5 Girişler)

I Cabrio R52

R52

Üre.ser.: MINI R53 (2 Girişler)

I R53

R53

Üre.ser.: MINI Clubman R55 (8 Girişler)

I Clubman R55

R55

Üre.ser.: MINI Clubman R55 LCI (13 Girişler)

I Clubman R55 LCI

R55 LCI

Üre.ser.: MINI R56 (9 Girişler)

I R56



Üre.ser.: MINI R56 LCI (16 Girişler)

I R56 LCI



Üre.ser.: MINI Cabrio R57 (6 Girişler)

I Cabrio R57

R57

Üre.ser.: MINI Cabrio R57 LCI (12 Girişler)

I Cabrio R57 LCI

R57 LCI

Üre.ser.: MINI Coupé R58 (9 Girişler)

I Coupé R58

R58
 
B sütunundaki bilgilerden; A sütunundaki bilgileri çekebileceğimiz bir formül var mı?




Üre.ser.: X3 G01 (6 Girişler)

G01

X3 30eX

G01

X3 30eX

G01

X3 30eX



Üre.ser.: X3 G01 LCI (5 Girişler)

G01 LCI

X3 30eX

G01 LCI

X3 30eX



Üre.ser.: X4 F26 (19 Girişler)

F26

X4 20dX

F26

X4 20iX

F26

X4 28iX

F26

X4 28iX



Üre.ser.: X4 G02 (1 Girişler)

G02

X4 25dX



re.ser.: X5 E53 (44 Girişler)

E53

X5 3.0d

E53

X5 4.6is

E53

X5 4.6is

E53

X5 4.4i



Üre.ser.: X5 E70 (13 Girişler)

E70

X5 3.0si

E70

X5 3.5d

E70

X5 M

E70

X5 3.0si

E70

X5 4.8i



Üre.ser.: X5 E70 LCI (6 Girişler)

E70 LCI

X5 50iX

E70 LCI

X5 35iX

E70 LCI

X5 M50dX

E70 LCI

X5 50iX

E70 LCI

X5 35dX

E70 LCI

X5 35iX



Üre.ser.: X5 F15 (8 Girişler)

F15

X5 40eX

F15

X5 40eX

F15

X5 25d

F15

X5 25d



Üre.ser.: X6 E71 (11 Girişler)

E71

X6 35dX

E71

X6 M

E71

X6 35iX

E71

X6 M

E71

X6 50iX



Üre.ser.: X6 E72 Hybrid (2 Girişler)

E72

Hybrid X6

E72

Hybrid X6



Üre.ser.: MINI Cabrio F57 (17 Girişler)

F57

Cooper

F57

JCW

F57

JCW



Üre.ser.: MINI Cabrio F57 LCI (10 Girişler)

F57 LCI

JCW

F57 LCI

Cooper S

F57 LCI

Cooper S

F57 LCI

Cooper

F57 LCI

Cooper S



Üre.ser.: MINI Cabrio R52 (7 Girişler)

R52

Cooper S

R52

Cooper S



Üre.ser.: MINI Clubman R55 LCI (26 Girişler)

R55 LCI

Cooper S

R55 LCI

Cooper

R55 LCI

Cooper S



Coop.S JCW



Üre.ser.: MINI Countryman R60 (56 Girişler)

R60

Cooper S

R60

Cooper

R60

JCW ALL4

R60

Cooper
 
başka bir örnek



Üre.ser.: X4 M F98 (2 Girişler)

F98

X4 M

F98

X4 M



Üre.ser.: X4 M F98 LCI (2 Girişler)

F98 LCI

X4 M

F98 LCI

X4 M




 
B sütunundaki ("X" Girişler) bölümündeki X, altında kaç adet araç olduğunu gösteriyor.
 
9 No'lu mesajınızdaki tabloda durum öyle değil ama.....

11 Girişler, 17 Girişler yazıyor ama altında 3-4 adet var.

.
 
tablo uzun olmasın diye buraya bir kısmını aldım sadece. linkteki dosyada bir örneğini bulabilirsiniz.
 
Aşağıdaki kodu 13 No'lu mesaja eklediğiniz dosyada deneyin... Veriler "P" sütununa yazılacaktır.






C#:
Sub Test()
    i = 1
    Do While Range("B" & i) <> ""
        If Left(Range("B" & i), 3) = "Üre" Then
            temp = getData(Range("B" & i))
            Range("P" & i) = ""
        Else
            Range("P" & i) = temp
        End If
        i = i + 1
    Loop
End Sub
'
Function getData(data As String)
    Dim objRegEx As Object, objMatches As Object
    
    Set objRegEx = CreateObject("VBscript.RegExp")
    objRegEx.Global = False
    objRegEx.Pattern = "([A-Z]\d{2})"
    
    Set objMatches = objRegEx.Execute(data)
    getData = IIf(InStr(1, data, "LCI"), objMatches(i) & " LCI", objMatches(i))
    
    Set objMatches = Nothing
    Set objRegEx = Nothing
End Function


.
 
Son düzenleme:
Probleminiz çözüldü mü?


.
 
Merhaba hocam. Henüz çözemedim. Bir arkadaşımdan yardım bekliyorum.
 
15 No'lu mesajdaki kod, istediğinizi yapıyor...... daha başka nasıl bir yardım bekliyorsunuz, anlamadım.

.
 
hocam oldu çok teşekkür ederim.
 
Geri
Üst