José Luis Sánchez

Dante Amor respondió: H o l a: Te anexo la macro actualizada Sub rest() ActiveWorkbook.Worksheets("LISTADO").Sort.SortFields.Clear ActiveWorkbook.Worksheets("LISTADO").Sort.SortFields.Add Key:=Range("B2:B530" _ ), SortOn:=xlSortOnValues, Order:=xlAscending,...

Elsa Matilde respondió: Esta puede ser una opción: En el Editor, insertá un módulo y allí copiá esto: Sub encabezados() 'por Elsamatilde encabe = InputBox("Ingresa texto para el encabezado") If encabe <> "" Then With ActiveSheet.PageSetup .LeftHeader = encabe 'encabezado...

calvuch respondió: En excel pasate al editor de visual basic ( alt + f11) selecciona la hoja en la que deseas que este el macro y pega este script Private Sub Worksheet_Change(ByVal Target As Range) ' cuando en columna A pones un 1 te pasas a la columna "B" + la linea...

sir_drake respondió: Pues mira si quieres guardar el archivo en una ruta especifica eligiendo la carpeta de destino yo utilizo el siguiente código, abre una venta del explorador de windows para seleccionar la carpeta donde queremos guardar el archivo, una vez...

snaki Fco respondió: Te aconsejo que inicies la grabadora y desde inicio abras el archivo, detén la grabadora y te quedara guardada el el vb, el dirección del archivo

Elsa Matilde respondió: Este es la instrucción con ruta incluida: Application.Dialogs(xlDialogSaveAs).Show ("C:\Mis documentos\Plantillas\Suzuki\ 01 Archivo de ventas")

sir_drake respondió: Para obtener la ruta de la carpeta del usuario seria así: C_Usuario = Environ$("HOMEPATH") ChDir "C:" & C_Usuario & "\Mis documentos\PLANTILLAS\Yamaha"