Re: [es-users] macro vba

[Mauricio Baeza Servin]

On Tue, 6 Jun 2017 16:29:50 -0500, "Helvert Yovanny Camacho" 
 wrote:

> Buenas tardes
> 
> Solicito de su colaboración con la siguiente macro no he podido resolverla y
> no se cómo pasar ese lenguaje al q utiliza libre
> 


Hola...

La macro es sencilla, y será fácil migrarla si puedes usar EasyDev:
http://easydev.readthedocs.io/es/latest/

Mira si puedes instalar EasyDev en tu equipo y te ayudo a migrarla la macro...


Saludos


P.D. Por favor, compañero administrador, cambia ya el reply de la lista.
-- 
Para instrucciones sobre darse de baja envíe un mensaje a: 
users+unsubscr...@es.libreoffice.org
¿Problemas? 
http://es.libreoffice.org/asistencia/listas-de-correo/como-darse-de-baja/
Guías para envío + más: http://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: http://listarchives.libreoffice.org/es/users/
Todos los mensajes enviados a esta lista serán archivados públicamente y no 
pueden ser eliminados

[es-users] macro vba

[Helvert Yovanny Camacho]

 

Buenas tardes

 

 

Solicito de su colaboración con la siguiente macro no he podido resolverla y
no se cómo pasar ese lenguaje al q utiliza libre

 

 

Sub extraerDatosotrolibro()

 

 

'acelerar macro

 

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Application.EnableEvents = False

ThisComponent.CurrentController.ActiveSheet.DisplayPageBreaks = False

 

'borrar datos inicio

Columns("A:S").Select

Selection.ClearContents

With Selection.Interior

.Pattern = xlNone

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Selection.ClearContents

Range("A1").Select



'extraer datos



Application.DisplayAlerts = False

Dim libroDatos As Workbook

Set libroDatos =
Workbooks.Open("Z:\facturacion\recibo\interfce\InterfazIB.xls")

libroDatos.Sheets(1).Range("A1:S65521").Copy

libroDatos.Close savechanges:=False

Sheets("macro real").Select

Range("A1").Select

Sheets("macro real").Paste

Columns("A:H").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Selection.Borders(xlEdgeLeft).LineStyle = xlNone

Selection.Borders(xlEdgeTop).LineStyle = xlNone

Selection.Borders(xlEdgeBottom).LineStyle = xlNone

Selection.Borders(xlEdgeRight).LineStyle = xlNone

Selection.Borders(xlInsideVertical).LineStyle = xlNone

Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Range("A1").Select

Application.DisplayAlerts = True



'acelerar macro



Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

Application.EnableEvents = True

ActiveSheet.DisplayPageBreaks = True

Application.CutCopyMode = False

End Sub

Saludos,

 


Helvert Yovanny Camacho



 

 


-- 
Para instrucciones sobre darse de baja envíe un mensaje a: 
users+unsubscr...@es.libreoffice.org
¿Problemas? 
http://es.libreoffice.org/asistencia/listas-de-correo/como-darse-de-baja/
Guías para envío + más: http://wiki.documentfoundation.org/Netiquette/es
Archivo de la lista: http://listarchives.libreoffice.org/es/users/
Todos los mensajes enviados a esta lista serán archivados públicamente y no 
pueden ser eliminados