8 hours, 48 minutes, 13 seconds, 12 milliseconds ifade ve benzerlerini örnekteki gibi dizmek

[Tevfik_Kursun]

Merhaba Arkadaşlar,
A sütununda listelenmiş
8 hours, 48 minutes, 13 seconds, 12 milliseconds
yukarıdakine benzer ifadelerden çok sayıda satır var. Bu listeyi makro ile örnekteki gibi ayıklamak istiyorum. Yardımcı olursanız sevinirim.
Saygılarımla
Ornek_TK.xlsm

 

[muygun]

Merhaba;

Soru - Excel Sayfalar Arasından Veri Çekme

Merhaba arkadaşlar, Aşağıdaki linkteki excel dosyasında Sheet2 sayfasındaki veriler bir csv dosyasından alınmıştır "I" sütununda kullanıcı adları bulunmaktadır. "B" sütununda çeşitli uygulama isimleri, N sütununda ise uygulamaların kullanım süreleri bulunmaktadır. Sheet1 sayfasında kullanıcı...

excel.web.tr

 

[Tevfik_Kursun]

Sayın Muygun Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[Merhum İdris SERDAR]

Merhaba Arkadaşlar,
A sütununda listelenmiş
8 hours, 48 minutes, 13 seconds, 12 milliseconds
yukarıdakine benzer ifadelerden çok sayıda satır var. Bu listeyi makro ile örnekteki gibi ayıklamak istiyorum. Yardımcı olursanız sevinirim.
Saygılarımla
Ornek_TK.xlsm

.

Makro ile istemişsiniz ancak ben formülle yanıt verdim. Umarım işinize yarar.

Diğer taraftan Sayın Uygun'un verdiği linkteki hangi dosyası sorunuza çözüm olmuştur. Anlayamadım. Herhalde bir inceliği vardır. Ben kavrayamadım.

Dosyanız ekte.

.

 

[halit3]

Alternatif dosya

Ornek_TK.rar dosyasını indir - download

Ornek_TK.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Haluk]

Formülle çözüm istenirse, alternatif olarak LibreOffice'de REGEX fonksiyonu kullanılabilir;




.

 

[Haluk]

Veya, Google Sheets'de REGEXEXTRACT ile;





.

 

[halit3]

kod:

Sub deneme()

ReDim veri(5): ReDim sut(5)

veri(1) = " hours"
veri(2) = " hour"
veri(3) = " minutes"
veri(4) = " seconds"
veri(5) = " milliseconds"

sut(1) = 2: sut(2) = 2: sut(3) = 3: sut(4) = 4: sut(5) = 5

Range("B5:e29").ClearContents

For r = 5 To Cells(Rows.Count, "a").End(3).Row
adres = Cells(r, 1).Value

For i = 1 To 5
deg = InStr(Trim(adres), veri(i))
If deg > 4 Then
Cells(r, sut(i)).Value = WorksheetFunction.Trim(Mid(adres, deg - 2, 3)) * 1
Else
If deg > 0 Then
Cells(r, sut(i)).Value = WorksheetFunction.Trim(Mid(adres, 1, 2)) * 1
End If
End If
Next i

Next r

MsgBox "işlem tamam"

End Sub