Separador Décimal e Paste Values

[x_soldier]

Boa Tarde pessoal,

Estou aqui com um problema num pequeno código de VB, ao fazer o paste queria alterar o separador décimal para virgula mas não estou a conseguir incorporar o código.

Alguém dá uma ajudinha, sff.

   Sheets("Sheet1").Select
   Last = Cells(Rows.Count, "A").End(xlUp).Row
   For k = 1 To Last
    If (Cells(k, "F").Value) = Sheets("Import SaxoFiles").Range("H6") Then
    Range("F" & i).Select
    Selection.Copy
    Sheets("Fixings").Select
    Range("A34").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    End If
   Next k

Obrigado 😄

[acao]

boas

podes usar a função replace.

Dim TestString As String = "Shopping List"

' Returns "Shipping List".

Dim aString As String = Replace(TestString, "o", "i")

http://msdn.microsoft.com/pt-BR/library/bt3szac5%28v=VS.90%29.aspx

cumps

acao