Kod:
Sub cevir()
son = Range("A" & Rows.Count).End(3).Row
For i = 3 To son
zaman = Range("B" & i).Value
If Right(zaman, 7) = "MERKEZİ" Then
Range("B" & i).Value = zaman
Else
Range("B" & i).Value = Application.Substitute(Application.Substitute(Application.Substitute(zaman, ".", ":"), ":", ".", 3), "000000", "")
Range("B" & i).NumberFormat = "dd.mm.yyyy hh:mm:ss.000"
End If
Next
End Sub
Sub yaz()
Run "cevir"
son = Range("A" & Rows.Count).End(3).Row
For i = 3 To son
If Range("A" & i) <> Range("A" & i - 1) Then
ilk = Range("B" & i).Row
End If
If Range("A" & i) <> Range("A" & i + 1) Then
sonu = Range("B" & i).Row
yson = Range("G" & Rows.Count).End(3).Row + 1
ActiveSheet.Range("B" & ilk & ":D" & sonu).AutoFilter Field:=2, Criteria1:="1"
Range("I" & yson).Value = CDate(Application.Subtotal(105, Range("B" & ilk & ":B" & sonu)))
Selection.AutoFilter
ActiveSheet.Range("B" & ilk & ":D" & sonu).AutoFilter Field:=3, Criteria1:="1"
Range("J" & yson).Value = CDate(Application.Subtotal(105, Range("B" & ilk & ":B" & sonu)))
Selection.AutoFilter
Range("G" & yson).Value = Range("A" & ilk).Value
Range("H" & yson).Value = Range("B" & ilk).Value
End If
Next
End Sub
