Metin icinden birden fazla kelime listelemek

benkaan · 12 Şubat 2021

Merhaba Üstadlar;

Benim tek hücre icerisinde "80221 600/000/9485385 HROS0150030000678 BC G5-0198405 20231373 BMW AG NL LEIPZIG 4103 LEIPZIG 80221 600/000/9485386 HROS0150030000678 BC G5-0198408 20231373 BMW AG NL LEIPZIG 4103 LEIPZIG 80221 600/000/9485387 HROS0150030000678 BC KLT-1179035 20231373 BMW AG NL LEIPZIG 4103 LEIPZIG 80221 600/000/9485388 HROS0150030000678 BC KLT-1179072 20231373 BMW AG NL LEIPZIG 4103 LEIPZIG 80221 600/000/9485391 HROS0150030000678 BC OT-0392944 20231373 BMW AG NL LEIPZIG 4103 LEIPZIG 80221 600/000/9485724 HROS0150030000678 BC KLT-1178583 20232890 SCHUBERT MOTORS GMBH 6406 BERNBURG 80221 600/000/9486707 HROS0150030000678 BC KLT-1179474 20232890 SCHUBERT MOTORS GMBH 6406 BERNBURG 80221 600/000/9486866 HROS0150030000678 BC KLT-1180372 20225784 SCHUBERT MOTORS GMBH 6449 ASCHERSLEBEN 80221 600/000/9486869 HROS0150030000678 BC OT-0393387 20225784 SCHUBERT MOTORS GMBH 6449 ASCHERSLEBEN 80221 600/000/9486098 HROS0150030000678 BC G7-0065280 20230389 BMW AG 10553 BERLIN 80221 600/000/9487031 HROS0150030000678 BC G7-0065451 20230389 BMW AG 10553 BERLIN 80221 600/000/9487032 HROS0150030000678 BC G7-0065452 20230389 BMW AG 10553 BERLIN 80221 600/000/9487033 HROS0150030000678 BC KLT-1181855 20230389 BMW AG 10553 BERLIN 80221 600/000/9487034 HROS0150030000678 BC KLT-1181856 20230389 BMW AG 10553 BERLIN 80221 600/000/9486847 HROS0150030000678 BC KLT-1180439 20225711 RILLER & SCHNAUCK GMBH 12529 SCHOENEFELD 80221 600/000/9486665 HROS0150030000678 BC KLT-1181002 20231791 ROEWER GMBH MOTORRADCENTRUM 12681 BERLIN 80221 600/000/9486626 HROS0150030000678 BC G5-0198639 20231670 NIEDERLASSUNG BERLIN 12683 BERLIN 80221 600/000/9486633 HROS0150030000678 BC OT-0393560 20231670 NIEDERLASSUNG BERLIN 12683 BERLIN 80221 600/000/9486192 HROS0150030000678 BC KLT-1179149 20231649 LEONHARD NEFZGER 13629 BERLIN 80221 600/000/9485343 HROS0150030000678 BC KLT-1179312 20231414 EHRL POTSDAM GMBH 14482 POTSDAM 80221 600/000/9485346 HROS0150030000678 BC OT-0393084 20231414 EHRL POTSDAM GMBH 14482 POTSDAM 80221 600/000/9485347 HROS0150030000678 BC OT-0393088 20231414 EHRL POTSDAM GMBH 14482 POTSDAM 80221 600/000/9486341 HROS0150030000678 BC OT-0393511 20231415 BMW AUTOHAUS LUDWIG 14772 BRANDENBURG 80221 600/000/9487772 HROS0150030000678 BC G5-0198732 20225767 BMW AG DMDC BERLIN 14974 LUDWIGSFELDE 80221 600/000/9486517 HROS0150030000678 BC KLT-1180510 20231431 AUTOHAUS SKJELLET 15344 STRAUSBERG 80221 600/000/9486518 HROS0150030000678 BC OT-0393520 20231431 AUTOHAUS SKJELLET 15344 STRAUSBERG 80221 600/000/9486346 HROS0150030000678 BC KLT-1180359 20231416 AUTOHAUS O. WERNECKE 15745 WILDAU 80221 600/000/9486570 HROS0150030000678 BC OT-0393197 20231559 O. WERNECKE 15806 ZOSSEN 80221 600/000/9485563 HROS0150030000678 BC KLT-1178823 20231432 AUTOHAUS REIER 16515 ORANIENBURG 80221 600/000/9485566 HROS0150030000678 BC OT-0392783 20231432 AUTOHAUS REIER 16515 ORANIENBURG 80221 600/000/9485567 HROS0150030000678 BC OT-0392784 20231432 AUTOHAUS REIER 16515 ORANIENBURG 80221 600/000/9485568 HROS0150030000678 BC OT-0392785 20231432 AUTOHAUS REIER 16515 ORANIENBURG 80221 600/000/9485569 HROS0150030000678 BC OT-0392786 20231432 AUTOHAUS REIER 16515 ORANIENBURG 80221 600/000/9486528 HROS0150030000678 BC OT-0393595 20231432 AUTOHAUS REIER 16515 ORANIENBURG 80221 600/000/9485586 HROS0150030000678 BC KLT-1178784 20231558 WOLTER & STEINER GMBH 17291 PRENZLAU 80221 600/000/9485831 HROS0150030000678 BC KLT-1178696 20233210 AUTOHAUS LESCHITZKI GMBH 17489 GREIFSWALD 80221 600/000/9485832 HROS0150030000678 BC OT-0392706 20233210 AUTOHAUS LESCHITZKI GMBH 17489 GREIFSWALD 80221 600/000/9485335 HROS0150030000678 BC KLT-1170165 20231596 AUTOHAUS WIGGER GMBH 18146 ROSTOCK 80221 600/000/9485336 HROS0150030000678 BC KLT-1178128 20231596 AUTOHAUS WIGGER GMBH 18146 ROSTOCK 80221 600/000/9485337 HROS0150030000678 BC KLT-1178129 20231596 AUTOHAUS WIGGER GMBH 18146 ROSTOCK 80221 600/000/9486748 HROS0150030000678 BC KLT-1178283 20233161 AUTOHAUS MANFRED EGGERT GMBH 18439 STRALSUND 80221 600/000/9486749 HROS0150030000678 BC OT-0393455 20233161 AUTOHAUS MANFRED EGGERT GMBH 18439 STRALSUND 80221 600/000/9485792 HROS0150030000678 BC KLT-1178969 20233158 HUGO PFOHE GMBH 19057 SCHWERIN 80221 600/000/9485794 HROS0150030000678 BC OT-0392859 20233158 HUGO PFOHE GMBH 19057 SCHWERIN 80221 600/000/9485795 HROS0150030000678 BC OT-0392860 20233158 HUGO PFOHE GMBH 19057 SCHWERIN 80221 600/000/9485796 HROS0150030000678 BC OT-0392861 20233158 HUGO PFOHE GMBH 19057 SCHWERIN 80221 600/000/9486754 HROS0150030000678 BC KLT-1180836 20233158 HUGO PFOHE GMBH 19057 SCHWERIN 80221 600/000/9486720 HROS0150030000678 BC KLT-1180105 20232925 SCHUBERT MOTORS GMBH 38820 HALBERSTADT 80221 600/000/9486352 HROS0150030000678 BC OT-0393261 20231372 SCHUBERT MOTORS GMBH 39340 HALDENSLEBEN"
seklinde bir Metin var. ve ben bu metnin icinden "OT", "KLT", "G5" "G7" ile baslayan kelimeleri listelemek istiyorum. "=TEIL(A1;FINDEN("KLT";A1;1);11)" seklinde bircok formül denememe ragmen istedigim sonucu alamadim.

Yardimlariniz icin simdiden Tesekkürler...

Ömer · 12 Şubat 2021

Merhaba,

İstediğiniz bu mu?

Veri A1 de düşünüldü. Listelemeyi A3: D- aralığında yapar.

Kod:

Sub listele()

    Dim deg(), d, i As Byte, j As Integer, sat As Integer, sut As Byte
    
    deg = Array("OT-", "KLT-", "G5-", "G7-")
    
    Application.ScreenUpdating = False
    Range("A3:D" & Rows.Count).ClearContents
    
    sat = 3: sut = 1
    For i = 0 To UBound(deg)
        d = Split(Range("A1"), deg(i))
        For j = 0 To UBound(d)
            Cells(sat, sut) = deg(i) & Split(d(j), " ")(0)
            sat = sat + 1
        Next j
        Cells(3, sut) = deg(i) & " Liste"
        sat = 3: sut = sut + 1
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

benkaan · 15 Şubat 2021

Ömer' Alıntı:

Merhaba,

İstediğiniz bu mu?

Veri A1 de düşünüldü. Listelemeyi A3: D- aralığında yapar.

Kod:

Sub listele()

    Dim deg(), d, i As Byte, j As Integer, sat As Integer, sut As Byte
   
    deg = Array("OT-", "KLT-", "G5-", "G7-")
   
    Application.ScreenUpdating = False
    Range("A3:D" & Rows.Count).ClearContents
   
    sat = 3: sut = 1
    For i = 0 To UBound(deg)
        d = Split(Range("A1"), deg(i))
        For j = 0 To UBound(d)
            Cells(sat, sut) = deg(i) & Split(d(j), " ")(0)
            sat = sat + 1
        Next j
        Cells(3, sut) = deg(i) & " Liste"
        sat = 3: sut = sut + 1
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

Üstadim cok tesekkür ederim. tam olarak istedigim buydu. Ellerine Saglik.

benkaan · 5 Mart 2021

Ömer' Alıntı:

Merhaba,

İstediğiniz bu mu?

Veri A1 de düşünüldü. Listelemeyi A3: D- aralığında yapar.

Kod:

Sub listele()

    Dim deg(), d, i As Byte, j As Integer, sat As Integer, sut As Byte
   
    deg = Array("OT-", "KLT-", "G5-", "G7-")
   
    Application.ScreenUpdating = False
    Range("A3:D" & Rows.Count).ClearContents
   
    sat = 3: sut = 1
    For i = 0 To UBound(deg)
        d = Split(Range("A1"), deg(i))
        For j = 0 To UBound(d)
            Cells(sat, sut) = deg(i) & Split(d(j), " ")(0)
            sat = sat + 1
        Next j
        Cells(3, sut) = deg(i) & " Liste"
        sat = 3: sut = sut + 1
    Next i
   
    Application.ScreenUpdating = True
   
End Sub

Üstad,

Listelemeyi yaptiktan sonra ayiklanmis verileri bagimsiz bir sütun icerisinde altalta dizebilirmiyim? Ben su şekilde bir formül yazdim. Ama ilk sütundaki hücre sayisi kadar alt alta listeleme yapiyor. Ysni a sütununda misal 15 hucre varsa diger sutunlarinda ilk 15 hucresini listeliyor. 15den sonrasıni gozardi ediyor. Nerde yanlış yapiyorum bi bakarmisiniz.
Teşekkürler

Sub sirala ()

Range ("L1:L1500").ClearContents
Sonsatir = Range("A1500").End(3).Row
Sonsutun = Range("AZ11").xlToLeft.Column
For i = 1 To Sonsutun
For x = 11 To Sonsatir
Range ("L1:L1500").End(3)(2, 1).Value = Cells(x, i). Value
Next x
Next i
End Sub

Ömer · 10 Mart 2021

Merhaba,

Konuyu tam hatırlamadım. Örnek dosya ekleyerek detaylı açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

benkaan · 17 Mart 2021

Ömer' Alıntı:
Merhaba,

Konuyu tam hatırlamadım. Örnek dosya ekleyerek detaylı açıklar mısınız.

Dosya Yükle - Dosya Upload

Dosyalarınızı ücretsiz yükleyebilir ve paylaşabilirsiniz. Dosya yükleme, Dosya Upload ücretsiz.

dosya.co

.

İndir Prüfen1

Dosyayı indir Prüfen1

dosya.co

Dosyayi yükledim. Aciklamayi icine yazdim

Metin icinden birden fazla kelime listelemek

benkaan

Ömer

Moderatör

benkaan

benkaan

Ömer

Moderatör

Dosya Yükle - Dosya Upload

benkaan

Dosya Yükle - Dosya Upload

İndir Prüfen1