16. april 2015 - 20:29Der er
2 kommentarer og 1 løsning
VBA script
har en tekst fil fra en PLC komma sp - den importere jeg så den står i et ARK- derfra skal jeg kopiere record ud på ark som hedder Jan,Feb,Marts,
A B C 1 16-04-2015 15:00:35;20,6;TXT 2 16-04-2015 15:01:35;20,7;TXT 3 16-04-2015 15:02:35;20,8;TXT 4 16-04-2015 15:03:35;20,9;TXT 5 16-04-2015 15:04:35;20,9;TXT 6 16-04-2015 15:05:35;21,0;TXT
altså jeg mangler en kode der læser datoformalt(A1) linje for linje og kopiere Linje (A1,B1,C1,ud på det rigtige faneblad for den pågældende måned og indsætter det fra top
I et inbound callcenter, hvor identiteten på den, der ringer ind, skal bekræftes, kan kontrollen nu foregå i telefonkøen. Det understøtter fem centrale KPI'er for callcentre.
Sub Fordeling() Range("A1", Range("A" & Rows.Count).End(xlUp)).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 4), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True Dim c As Range Dim maaned As String For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp)).Cells maaned = MonthName(Month(c.Value), True) If Not FindesArkfanen(maaned) Then Worksheets.Add().Name = maaned c.EntireRow.Copy Destination:=Worksheets(maaned).Range("A" & Worksheets(maaned).Rows.Count).End(xlUp).Offset(1, 0) Next End Sub
Public Function FindesArkfanen(navn As String) As Boolean FindesArkfanen = Not (IsError(Evaluate(navn & "!A1"))) End Function
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
