Ayuda macro guardar con nombre contenido celdas
Publicado por Juan Pedro (5 intervenciones) el 04/04/2018 11:27:01
Hola,
Con mis escasos conocimientos estoy haciendo una macro para que guarde el libro excel en una determinada ruta tomando para el nombre el contenido de algunas cedas.
La macro funciona, salvo porque al crear el nombre, si los datos de las celdas contienen un espacio lo crea así:
11111111H_JUAN%20PEDRO%20LEYVA_MOTOS%20LEYS_54001234_88001234_AAAA_04042018_121424
Sustituye el espacio por %20
Ni idea de cómo solucionarlo.
Gracias por adelantado.
Leys
Con mis escasos conocimientos estoy haciendo una macro para que guarde el libro excel en una determinada ruta tomando para el nombre el contenido de algunas cedas.
La macro funciona, salvo porque al crear el nombre, si los datos de las celdas contienen un espacio lo crea así:
11111111H_JUAN%20PEDRO%20LEYVA_MOTOS%20LEYS_54001234_88001234_AAAA_04042018_121424
Sustituye el espacio por %20
Ni idea de cómo solucionarlo.
Gracias por adelantado.
Leys
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
'@leys
'Objetivo: guardar la ficha de integración en la carpeta FICHAS_CLIENTES_PAQUETERIA,
'mismo formato,
'nombre compuesto por los valores de las celdas: NIF/CIF, NOMBRE CLIENTE (EN CRM), NOMBRE COMERCIAL, CONTRATO, CLIENTE, ETIQUETADOR, FECHA Y HORA
Sub GuardarFicha()
Dim nombre As String, NIF As String, NOMBRECLIENTE As String, NOMBRECOMERCIAL As String, CONTRATO As String, CLIENTE As String, ETIQUETADOR As String, Ruta As String
'Ruta donde se guardará la ficha
Ruta = "T:"
'Celdas para componer el nombre
NIF = Range("d30").Text
NOMBRECLIENTE = Range("d28").Text
NOMBRECOMERCIAL = Range("d29").Text
CONTRATO = Range("k13").Text
CLIENTE = Range("l13").Text
ETIQUETADOR = Range("m13").Text
'nombre
nombre = NIF & "_" & NOMBRECLIENTE & "_" & NOMBRECOMERCIAL & "_" & CONTRATO & "_" & CLIENTE & "_" & ETIQUETADOR & "_" & Format(Now, "ddmmyyyy_hhmmss")
'Guarda el libro activo tal cual en la ruta y con el nombre definidos
ActiveWorkbook.SaveAs Filename:=Ruta & "/" & nombre
'Mensaje ok
MsgBox "Yujuuu!", , "Guardar Ficha"
End Sub
Valora esta pregunta
0
