FPAYNO

Buenos días. He tenido el siguiente problemón el cual espero que me podáis ayudar. Hace mas o menos cosa de un mes guarde uno de mis archivos con contraseña y no me acuerdo de cual es 😖. he probado mil cosas (programas, páginas online. etc..) para intentar desactivar la contraseña y nada imposible. Espero que podáis ayudarme. Gracias y un saludo.

Doy solución al problema que propuse. ActiveWorkbook.Queries.Add Name:="stock", Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Origen = Csv.Document(File.Contents("UBICACION DEL ARCHIVO""),[Delimiter="";"", Columns=15, Encoding=1252, QuoteStyle=QuoteStyle.None])," & Chr(13) & "" & Chr(10) & " #""Encabezados promovidos"" = Table.PromoteHeaders(Origen, [PromoteAllScalars=true])," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(#""Encabezados promovidos"",{{""Almacén"", Int64.Type}, " & _ "{""Artículo"", Int64.Type}, {""Denominación"", type text}, {""Fecha Congelado"", type date}, {""Fecha Caducidad"", type date}, {""Lote"", type text}, {""SSCC"", type text}, {""SSCC Superior"", type text}, {""Peso Bruto"", type number}, {""Tara EDTR"", type number}, {""Peso Neto"", type number}, {""Unidades"", type number}, {""Proveedor"", type text}, {""Nombre Prov." & _ """, type text}, {""Nº Pedido"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Tipo cambiado""" Sheets.Add After:=ActiveSheet With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=stock;Extended Properties=""""" _ , Destination:=Range("$A$1")).QueryTable .CommandType = xlCmdSql .CommandText = Array("SELECT * FROM [stock]") .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = False .ListObject.DisplayName = "stock" .Refresh BackgroundQuery:=False End With

Buenas chicos tengo el siguiente problemilla. Mediante una macro intento acceder a un archivo csv. delimtado con puntos y comas. y al usar Workbooks.Open Filename:="C:\Users\pc\Desktop\stock.csv" me la abre mal Si la abro normal me la abre perfectamente, he intentado un par de cosillas pero nada fracaso total. Si podéis arrojarme un poco de luz sobre esto os lo agradecería mucho. Un saludo.

Buenas noches. Utiliza las fórmulas de k.esimo te localizan dentro de un rango el mejor o el peor valor y puedes seleccionar si quieres el ultimo penúltimo o otros valores y partiendo de esa base podrías combinar con otra fórmula para localizar el valor buscado Ya siento no poder ayudarte más pero si me veo con tiempo mañana te monto algo Saludos.

Buenas noches. De nuevo necesito vuestra sabiduría para solucionar un problemón que es el siguiente. En mi trabajo he implementado un Excel online el cual partiendo de unos datos que antes sacábamos de manera manual y pegábamos en la hoja, nos devuelve información. (Stock actual de cargas que tenemos programadas durante el día.) Actualmente me han montado un JOB que es un programa CSV que nos va generando cada 5 minutos un listado con la información que hay en ese instante, que en este caso son cámaras códigos y kilos netos y brutos. La cosa es que estoy intentando conectar ese libro con el Excel Online. De momento lo he adjuntado y desde el programa Excel todo bien pero cuando intento visualizarlo en la web al actualizarlo me da fallo y tira el siguiente fallo Error durante la actualización de los datos externos No se pueden actualizar una o más conexiones de datos del libro. No se pudieron actualizar las siguientes conexiones: Consulta - stock Me imagino que al pasarlo online pierde el vínculo de la hoja. La verdad que con el tema de conexiones entre libros ando muy perdido y no lo domino nada por lo que os agradecería que me echarais un cable al problemilla y a entreder el tema de conexiones un poquito al menos. Gracias a todos y ya lo siento por la chapa.

Por mi parte encantado de poder aportar en el foro. En cuanto tenga un ratin hago una explicación completa de como acceder y jugar con macros y excel online.

Holaa. Si es posible pero con su claros INCONVENIENTES. Yo las macro las tengo adjuntadas en los archivos excel que tengo el pc los cuales son los encargados de alimentar las hojas online. Y si, es posible desde una macro abrir un archivo online y trabajar en ella. Pero vamos estoy pidiendo ayuda por el tema de conexiones a otras hojas de datos y no de macros. . . . Gracias de todos modos y un saludo.

Buenos días Chicos. Tengo dos dudas respecto a los excel online. La primera creo que es la mas sencilla que ando buscando y no encuentro solución que es simplemente ocultar una hoja con contraseña. Y la otra es el tema de conexiones quiero ir actualizando cada cierto tiempo los datos, pero la verdad que lo veo bastante jodido por el tema de que si ya hay varias personas visualizando la hoja en modo edición es imposible acceder desde una macro para ir modificando ciertos valores, por lo que he pensado en la idea de las conexiones que por lo que creo es que son datos que recogen desde otra hoja.. No se si alguien me podría explicar un poco de este tema ya que me estoy iniciando en el tema del excel online dadas las necesidades de la empresa en la que trabajo. Bueno chicos muchisimas gracias por adelantado y un abrazo.

Nadie tiene idea sobre esto?? Estoy buscando otras alternativas... Si alguien tiene alguna idea se agradecería.

DIsculpad por la demora en la respuesta. Ya está solucionado gracias chicos. Saludos.

Buenas tardes. Necesito ayuda. Necesito que en el momento que activo una celda se ejecute una macro Lo unico que he encontrado es una forma de ejecutarlo cuando das doble Click. pero estoy buscando la forma de activar cuando activas la macro cuando habilitas para escribir o le das doble click. Adjunto el ejemplo con doble click Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Application.Intersect(Target, Range("D4:D100")) Is Nothing Then Cancel = True Call ENTRADA1 End If Gracias de ante mano y un saludo.

Buenas tardes. Necesito ayuda para abrir un archivo en modo escritura que ya está siendo usado en la web online. La ruta del archivo es esta..(sustituyendo algunos datos) Workbooks.Open Filename:= _ "https://xxxxxxx-my.sharepoint.com/personal/xxxxxxxxxx_com/Documents/Desktop/MANUAL%20USO%20DE%20LAS%20CAM/ejemplo.%20ejemplo.xlsx" Cuando accedo a el me lanza el siguiente mensaje. Archivo en uso. Usuario - bloqueo la edición del archivo Opciones: Ver una copia. Guardar y editar una copia del archivo. No se si existiría la forma de poder acceder en modo escritura a el sin tener que expulsar a la gente que está trabajando en el mismo archivo online. Muchísimas gracias de ante mano y un saludo.

Como que si la encaminas diferente?? Si das esas ordenes las aplican a todos los archivos Y yo quiero una macro que solo lo realice en un único libro libro

Esa macro es antigua y no sirve únicamente la estaba utilizando a modo de ejemplo ya que cuando utilizaba esa macro los cambias afectaban a todos los archivos y busco algo distinto que solo afecte a un archivo Esta duda la tengo que hace varios años y no he podido encontrarle solución. Ahora tenemos las versiones de Excel mejoradas

Buenas noches. Estoy buscando una macro que realice la siguiente funcionalidad en un solo archivo. Una vez abierto el libro se ejecute automáticamente una macro la cual oculte todas las barras de los extremos (barra de menú, barra de herramientas, cinta de opciones, barra de formula, etc..). La dificultad de esto es que solo lo tiene que dejar las barras ocultas en un libro dejando el resto de libros abiertos y pendientes de abrir con las barras habilitadas. Únicamente he encontrado está macro la cual te oculta todos los archivos abiertos. por lo que no me sirve Private Sub Workbook_Open() Application.CommandBars("Worksheet Menu Bar").Enabled = False Application.CommandBars("Standard").Visible = False Application.CommandBars("Formatting").Visible = False Application.CommandBars("Visual Basic").Visible = False Application.CommandBars("Reviewing").Visible = False Application.CommandBars("Drawing").Visible = False Application.CommandBars("Formula Auditing").Visible = False Application.CommandBars("Formatting").Visible = False Application.CommandBars("Standard").Visible = False End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Formula Auditing").Visible = True Application.CommandBars("Drawing").Visible = True Application.CommandBars("Reviewing").Visible = True Application.CommandBars("Visual Basic").Visible = True End Sub Gracias por adelantado y un saludo.