Çözüldü Rakamları ve Metinleri ayırmak

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

cengizozdemir1

Yeni Üye
Katılım
19 Eyl 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
Kayseri
Ad Soyad
Cengiz ÖZDEMİR
Merhabalar ;

12saat34dk45sn verilerim var elimde bunları sütunlara ayırarak yazdırmak istiyorum. Yardımcı olabilir misiniz. her sütuna bir rakam olacak şekilde 12 - 34 - 45 şeklinde.

Şimdiden teşekkürler.
 

BadCatSero

Yeni Üye
Katılım
21 Ağu 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
32
Konum
İstanbul
Ad Soyad
Enes Güven
hocam örnek gönderirsen yardımcı olmaya çalışabilirim. ama kafamdaki mantık şöyle;
(ing. excel kullanıyorum)
ayırmak istediğin sütunu seçtikten sonra Data kısmında Text to Columns seçip delimited olarak devam edip en alttaki other kısmında saat yazarsan başındaki ve sonundakileri ayrı sütunlara atabilir.
 

cengizozdemir1

Yeni Üye
Katılım
19 Eyl 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
Kayseri
Ad Soyad
Cengiz ÖZDEMİR
hocam merhaba örnek olarak ekte gönderiyorum.
 

Ekli dosyalar

BadCatSero

Yeni Üye
Katılım
21 Ağu 2019
Mesajlar
15
En iyi yanıt
0
Puanları
3
Yaş
32
Konum
İstanbul
Ad Soyad
Enes Güven
Hocam merhaba;

Şu şekilde bir macro çalıştırdım umarım sizde de çalışır.

Mantığım sütundaki gün - saat - dakika ifadelerinin başına ve sonuna (,) işareti koydurup onları sütunlara bölmek şeklinde. A sütununa elinizdeki ham datayı koyup macroyu çalıştırabilirsiniz.



Sub Macro5()
'
' Macro5 Macro
'

'
Columns("A:A").Select
Selection.Replace What:="sn", Replacement:=",sn", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="gün", Replacement:=",gün,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="saat", Replacement:=",saat,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="dk", Replacement:=",dk,", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=",", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
1), Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
Range("I13").Select
End Sub
 

cengizozdemir1

Yeni Üye
Katılım
19 Eyl 2018
Mesajlar
7
En iyi yanıt
0
Puanları
3
Yaş
40
Konum
Kayseri
Ad Soyad
Cengiz ÖZDEMİR
Hocam teşekkür ederim. makro çalıştı. ellerinize sağlık. bir şey sormak istiyorum sn lerin hepsi aynı sütüna gelebilir mi ?
 

Admin

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,105
En iyi yanıt
3
Puanları
113
Konum
İstanbul
Web sitesi
www.excelarsivi.com
Ad Soyad
Excel Arşivi
Merhaba @cengizozdemir1,

1570054230812.png

Bu kodları kullanabilirsiniz..
PHP:
Sub ExcelTurkey()
    Dim Osma As Object, i%
    Set Osma = CreateObject("VBScript.RegExp")
    Osma.Global = True
    Osma.Pattern = "[0-9]+"
    Range("B:E").ClearContents
    On Error Resume Next
    For i = 1 To Range("A65536").End(3).Row
        Select Case Osma.Execute(Cells(i, "A")).Count
            Case 4
                Cells(i, "B") = CLng(Osma.Execute(Cells(i, "A")).Item(0))
                Cells(i, "C") = CLng(Osma.Execute(Cells(i, "A")).Item(1))
                Cells(i, "D") = CLng(Osma.Execute(Cells(i, "A")).Item(2))
                Cells(i, "E") = CLng(Osma.Execute(Cells(i, "A")).Item(3))
            Case 3
                Cells(i, "C") = CLng(Osma.Execute(Cells(i, "A")).Item(0))
                Cells(i, "D") = CLng(Osma.Execute(Cells(i, "A")).Item(1))
                Cells(i, "E") = CLng(Osma.Execute(Cells(i, "A")).Item(2))
            Case 2
                Cells(i, "D") = CLng(Osma.Execute(Cells(i, "A")).Item(0))
                Cells(i, "E") = CLng(Osma.Execute(Cells(i, "A")).Item(1))
        End Select
    Next i
    i = Empty: Set Osma = Nothing
End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt