Macro que no me permite hacer cambio de coma por punto.

[LaFlower]

Hola, que tal a todos, estoy de nuevo por aca en busca de ayuda. Les comento tengo una macro la cual grabe el buscarv para que se ejecutara cada que entro a la macro, el problema es que cuando me genera el archivo, la celda donde me extrae la informacion al darle click me aparace la formula:

=BUSCARV(F412;'C:\Users\JJ\Documents\PRUEBAS ESTADISTICO DE VENTAS TXT\

[Listado-OCTUBRE 2012.xlsx]LISTADO OCT-12'!$B:$R;3;FALSO)

lo que yo quiero es que al ejecutar la macro queden los resultados pero sin estas formulas, ya que este archivo todavia necesita mas manipulacion y no deja hacer nada, la informacion que me arroja es como este tipo:

16611,20

Ya puse muchos codigos para que me cambie el formato de la celda pero tal vez por lo mismo de la formula no me deja manipular los datos, yo requiero que me aparesca asi:

16,611.20

Tambien grabo la macro para que al terminar de ejecutar la busqueda copie el formato de otra celda que si esta correcto por este pero ni asi me funciona.

ya que necesito hacer una resta entre ese resultado y otra celda pero tampoco me deja me aparece !#VALOR, si alguien me puede apoyar en este problema desde ya muchas gracias.

[GabrielRaigosa]

Hola,

Será que esto te sirve;

Sub DecPunto()
    With Application
        .DecimalSeparator = "."
        .ThousandsSeparator = ","
        .UseSystemSeparators = True
    End With
End Sub

Sub DecComa()
    With Application
        .DecimalSeparator = ","
        .ThousandsSeparator = "."
        .UseSystemSeparators = False
    End With
End Sub

[/PHP]

[LaFlower]

Hola que tal Gabriel Raigosa, te comento que esta formula ya la habia aplicado y no me funciona. No se a que se deba, si yo este cometiendo algun error en la macro.

Saludos

[GabrielRaigosa]

Hola,

Pues esa macro la tengo en mi libro de macos personal y la uso frecuentemente para cambiar la configuración decimal x punto o por coma y me funciona bien, no sabria decirte que es lo que hace que no te funcione.

Te toca esperar un poco pues seguro habrá otras respuestas.

Suerte.

[LaFlower]

Muchas gracias por la atenta respuesta, tal vez si sea problema de mi macro al ingresar esta parte al codigo se me cicla la macro y de ahi no la saco.

Saludos

- - - - - Mensaje combinado - - - - -

Anexo macro para ver si mas o menos queda un poquito mas claro en punto.

Sub Extraer_txt()

'

' Macro para extraer txt

' Hecha por Jazmin Marquez

'

' EXPORTO LOS DATOS DEL TXT A EXCEL

Application.ScreenUpdating = False

Workbooks.OpenText Filename:="C:\Users\JJMarquez\Documents\INFO-963-920.dat" _

, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _

Array(Array(0, 1), Array(4, 1), Array(8, 1), Array(16, 1), Array(57, 1), Array(68, 1), _

Array(83, 1), Array(94, 1), Array(100, 1), Array(105, 1), Array(113, 1), Array(122, 1), _

Array(137, 1), Array(153, 1), Array(169, 1), Array(185, 1), Array(189, 1), Array(198, 1), _

Array(212, 1), Array(223, 1), Array(232, 1), Array(243, 1), Array(249, 1), Array(264, 1), _

Array(277, 1), Array(288, 1), Array(309, 1), Array(342, 1), Array(349, 1), Array(363, 1)) _

, TrailingMinusNumbers:=True

Rows("1:1").RowHeight = 16.5

Range("A1:AD5").Select

Selection.ClearContents

Rows("7:7").Select

Selection.ClearContents

Rows("6:6").Select

Selection.Cut

Rows("7:7").Select

ActiveSheet.Paste

Selection.AutoFilter

Range("D4").Select

ActiveSheet.Range("$A$7:$AD$12930").AutoFilter Field:=1, Criteria1:=Array( _

"DIR", "____", "Rela", "Suc.", "="), Operator:=xlFilterValues

Rows("113:13030").Select

Selection.ClearContents

Range("C114").Select

ActiveSheet.Range("$A$7:$AD$12930").AutoFilter Field:=1

Rows("1:1").Select

Selection.Delete Shift:=xlUp

Selection.Delete Shift:=xlUp

Rows("1:4").Select

Selection.Delete Shift:=xlUp

Range("A9").Select

ActiveSheet.Range("$A$1:$AD$12924").AutoFilter Field:=1

ActiveWindow.ScrollColumn = 2

ActiveWindow.SmallScroll ToRight:=4

Range("AE1").Select

ActiveCell.FormulaR1C1 = "Capital Anterior"

Range("AF1").Select

Columns("AE:AE").EntireColumn.AutoFit

ActiveCell.FormulaR1C1 = "Venta Nueva"

Range("AF3").Select

ActiveWorkbook.Worksheets("INFO-963-920").AutoFilter.Sort.SortFields.Clear

ActiveWorkbook.Worksheets("INFO-963-920").AutoFilter.Sort.SortFields.Add Key _

:=Range("E1:E12924"), SortOn:=xlSortOnValues, Order:=xlDescending, _

DataOption:=xlSortNormal

With ActiveWorkbook.Worksheets("INFO-963-920").AutoFilter.Sort

.Header = xlYes

.MatchCase = False

.Orientation = xlTopToBottom

.SortMethod = xlPinYin

.Apply

End With

'PARTE DONDE OCULTO LAS CELDAS QUE SON DE CONSECUTIVO 1948, 1931

Rows("2:411").Select

Selection.EntireRow.Hidden = True

Range("AE412").Select

'****PUEDE CAMBIAR EL RANGO CHECAR SIEMPRE ESTE DATO ******

'********RUTA DONDE GUARDO EL ARCHIVO EN FORMA AUTOMATICA DANDOLE UN NOMBRE POR DEFAULT *******

ChDir "C:\Users\JJMarquez\Documents\PRUEBAS ESTADISTICO DE VENTAS TXT"

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\JJMarquez\Documents\PRUEBAS ESTADISTICO DE VENTAS TXT\INFO-963-920.xlsx" _

, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

'CODIGO QUE HACE EL CRUCE DE BUSQUEDA POR CONSECUTIVO

Application.ScreenUpdating = False

ActiveCell.FormulaR1C1 = ""

Windows("INFO-963-920.xlsx").Activate

ActiveCell.FormulaR1C1 = _

"=VLOOKUP(RC[-25],'

[Listado Refinanciamiento-OCTUBRE 2012.xlsx]LISTADO OCT-12'!C2:C18,3,FALSE)"

Range("AE412").Select

Selection.AutoFill Destination:=Range("AE412:AE11962")

Range("AE412:AE11962").Select

Range("O412").Select

Selection.Copy

Range("AE412").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Selection.AutoFill Destination:=Range("AE412:AE11962")

Range("AE412:AE11962").Select

Range("M412").Select

Selection.Copy

Range("AE412").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Range("AE413").Select

'ANTES DE HACER LA RESTA DEBE DE HACER LA CONVERSION DE LA CIFRA.

'AQUI SE HACE LA RESTA PARA SABER CUAL ES LA VENTA NUEVA

ActiveCell.FormulaR1C1 = "=RC[-19]-RC[-1]"

Range("AF412").Select

Selection.AutoFill Destination:=Range("AF412:AF11962"), Type:=xlFillDefault

Range("AF412:AF11962").Select

Application.ScreenUpdating = True

End Sub