Zaman Listeleme hakk.

[AtaAri]

Merhaba

Alttaki bir işlemin hangi anda yapıldığını gösteren bir ver var.
Bu veri excelde A1 hücresinde yazıyor.
Bu hücredeki zamanları B sütununa sıralı bir şekilde listeleyecek makroyu için destek olabilir misiniz.

[{"Z":"14:00:26"},{"U":0},[{"Z":"14:00:47"},{"U":1}],[{"Z":"14:01:12"},{"U":2}],[{"Z":"14:01:30"},{"U":3}],[{"Z":"14:01:43"},{"U":4}],[{"Z":"14:01:58"},{"U":5}],[{"Z":"14:02:16"},{"U":6}],[{"Z":"14:02:31"},{"U":7}],[{"Z":"14:02:46"},{"U":8}],[{"Z":"14:03:01"},{"U":9}],[{"Z":"14:03:20"},{"U":10}],[{"Z":"14:05:34"},{"U":11}]]

[{"Z":"14:00:26"},{"U":0},[{"Z":"14:00:47"},{"U":1}],[{"Z":"14:01:12"},{"U":2}],[{"Z":"14:01:30"},{"U":3}],[{"Z":"14:01:43"},{"U":4}],[{"Z":"14:01:58"},{"U":5}],[{"Z":"14:02:16"},{"U":6}],[{"Z":"14:02:31"},{"U":7}],[{"Z":"14:02:46"},{"U":8}],[{"Z":"14:03:01"},{"U":9}],[{"Z":"14:03:20"},{"U":10}],[{"Z":"14:05:34"},{"U":11}]]

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Dim Parca As Variant
    Dim Metin As String
    Dim Bak As Long

    Range("B:B").ClearContents
    Metin = Replace(Range("A1"), """", ",")
    Parca = Split(Metin, ",")
    
    For Bak = 0 To UBound(Parca)
        If IsDate(Parca(Bak)) Then
            If Range("B1") = "" Then
                Range("B1") = Parca(Bak)
            Else
                Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = Parca(Bak)
            End If
        End If
    Next
End Sub

 

[AtaAri]

Günaydın Sn Muzaffer Ali,

Destekleriniz ve emekleriniz için teşekkür ederim.

Merhaba.

Sub test()
    Dim Parca As Variant
    Dim Metin As String
    Dim Bak As Long

    Range("B:B").ClearContents
    Metin = Replace(Range("A1"), """", ",")
    Parca = Split(Metin, ",")
   
    For Bak = 0 To UBound(Parca)
        If IsDate(Parca(Bak)) Then
            If Range("B1") = "" Then
                Range("B1") = Parca(Bak)
            Else
                Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = Parca(Bak)
            End If
        End If
    Next
End Sub

 

[veyselemre]

Sub alternatif()
    Dim mtch As Object, sat&
    sat = 1
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "\""Z\"":\""([\d:]+)"
        If .test(Range("A1").Value) Then
            Set mtch = .Execute(Range("A1").Value)
            For Each mtch In .Execute(Range("A1").Value)
                Cells(sat, 2).Value = mtch.submatches(0)
                sat = sat + 1
            Next
        End If
    End With
End Sub

 

[AtaAri]

sn Veyselemre teşekkürler ilginiz için.

Sub alternatif()
    Dim mtch As Object, sat&
    sat = 1
    With CreateObject("VBScript.Regexp")
        .Global = True
        .Pattern = "\""Z\"":\""([\d:]+)"
        If .test(Range("A1").Value) Then
            Set mtch = .Execute(Range("A1").Value)
            For Each mtch In .Execute(Range("A1").Value)
                Cells(sat, 2).Value = mtch.submatches(0)
                sat = sat + 1
            Next
        End If
    End With
End Sub