carlos moraes

'Updateby Extendoffice 20161215 Dim xRg As Excel.Range Dim wSh As Excel.Worksheet Dim wBk As Excel.Workbook Set wSh = ActiveSheet Set wBk = ActiveWorkbook Application.ScreenUpdating = False For Each xRg In wSh.Range("A1:A7") With wBk .Sheets.Add...

Manda el código a [email protected] para hecharte una mano

Crea una variable dim nombrecliente as string Envía a nombrecliente el valor de la celda donde se maneja el nombre de cliente ejemplo celda a2 cells(2,1).value nombrecliente = activesheets.cells(2,1).value agrega esa variable e tu codigo ChDir...