Consegui fazendo o seguinte, resolveu o meu problema
Criei uma macro para separar os dados e depois usei a sua ajuda ...
Sub ATUALIZAR()
'
' MACROOKOOKOKOK Macro
'
'
Columns("B:B").Select
Range("B7").Activate
Selection.TextToColumns Destination:=Range("D1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
Range("B10").Select
End Sub
=SE(F10="";ESQUERDA(D10;PROCURAR("-";D10;1)-1)*1;ESQUERDA(F10;PROCURAR("-";F10;1)-1)*1)
Muito obrigada pela ajuda !!!!!! =]
Postado : 03/07/2012 2:02 pm