Generar txt mostrar en lista desplegable dos columnas
Para Dante Amor,
Hola:
1. Requiero una macro para generar el txt. Delimitado por comas
2. Seleccionar desde una lista desplegable dos columnas pero que al final me cargue solo la primera.
1 Respuesta
Respuesta de Dante Amor
1
Te anexo le código actualizado para generar el txt
Private Sub GenerarTXT_Click()
'Sub Guardar_Txt_Comas()
'
' Por.Dante Amor
'
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
Set h = Sheets("Almacenamiento de carga")
ruta = ThisWorkbook.Path & "\"
arch = Format(h.Range("B1"), "dd-mm-yyyy")
h.Copy
ActiveSheet.Rows("1:2").Delete
ActiveWorkbook.SaveAs _
Filename:=ruta & arch & ".txt", _
FileFormat:=xlCSV, CreateBackup:=False, _
Local:=True
ActiveWorkbook.Close
Application.EnableEvents = True
MsgBox "Archivo creado"
End SubEn tu rango de celdas del nombre "CONCATEPUERTOZONAPORTUARIA" seleccionaste la última celda en blanco, es por eso que te permite capturar cualquier dato, ajusté el rango :
=AUXILIARES!$C$1521:$C$1611
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
