Hola, amigos. Seguro que me van a poder ayudar en este tema. He creado una macro para guardar un documento con el nombre que se contiene en una celda. Mientras que la ruta donde guardarlo nos lleve a un espacio del disco duro, no hay problema. La coas se complica cuando intento guardarlo en una biblioteca de Sharepoint, ya que aunque no me da ningún error al ejecutar la macro, el archivo no llega a destino Gracias de antemano por su ayuda El código es el siguiente: Sub Guardar_Ficha_Cliente() Dim nombre As String nombre = Range("N4").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "/Users/andreu/Desktop/" &…

Buenos días estimados, necesito una macro que al ejecutarse, guarde en un nuevo libro solo los valores de la hoja activa y que todas las celdas tengan formato "texto". Además de ser posible que el nombre con el que se guarde contenga la fecha del día. Intenté hacerlo con varias macros publicadas en el foro pero no logro hacer que todo salga bien. Desde ya, muchas gracias por su ayuda.

buenos dias, mi nombre es pablo tengo tabla de excel donde tiene varias hojas: listado de participantes carrera 1 carrera2 resultados todo funciona bien, yo añado en la lista de participantes los corredores que van a participar. cuando hago la carrera, tengo que anotar los numeros de dorsal en su casilla y correcto, el programa me pone el resto. los tiempos tengo que anotarlos a mano. hay posibilidades de añadir un cronometro en la hoja carrera1 de manera que cuando yo ponga el dorsal, ademas de ponerme todos los datos, tambien me ponga el tiempo realizado ??? nota: tengo el formato office mac y no me lo deja subir, he intentado pasarlo a excel97 y me dice que es …

Tengo un problema tengo que simular una baraja americana con numeros aleatorios ya tengo los numeros aleatorios que estan asignados a cada carta y el aleatorio que genera una carta cuando presionamos F9 , lo que quiero es que al presionar F9 aparesca la imagen de la carta. saludos aqui les dejo mi archivo zandoval.zip zandoval.zip

Buenos días, Tengo un problema puesto que he ocultado una serie de celdas y necesito crear un botón que cuando lo presione me las muestre (si la celda que le he indicado está en blanco). Las filas que necesito que me muestre son de la 62 a la 153. No sé bien como hacerlo porque soy nuevo en esto, he tratado con: Sub Macro1() ' ' Macro1 Macro Dim i As Integer If Range("J37").Value = Empty Then Rows("62:153").Select Selection.EntireRow.Hidden = False Else i = 62 + Range("J37").Value * 13 + 1 Range("A153:O" & i).EntireRow.Hidden = False Range("A153:O" & i).EntireRow.Hidden = True End Sub [/CODE] Me funciona la parte en la que introduzco el dato y s…

Tengo un archivo con muchas (realmente muchas) tablas dinamicas (que voy a llamar dashboard.xlsb), cuyo origen de datos esta en otro archivo de excel con multiples hojas (que voy a llamar basededatos.xlsx). El tema es que el archivo de datos creció tanto que se hizo practicamente inmajejable. Para sortear este problema, decidí convertir este archivo en binario (lo cambie de .xlsx a .xlsb). Por supuesto, ahora las tablas dinamicas están buscando los datos en el archivo basededatos.xlsx y no lo encuentran, pues decidi cambiarlo a basededatos.xlsb. Hay alguna forma mediante VBA de cambiarle la ruta o el nombre del archivo con el origen de datos a TODAS las tablas dinamica…

Buenas tardes Quisiera saber como podria agregar una columna en un listbox donde pueda digitar cantidades segun la lista de materiales que aparecen en el listbox... EL formulario aparece al hacer click en el botón "Liquidación de Materiales" Gracias por la ayuda. Sistema de Inventarios.xlsm

Hola amigos: Disculpen que los moleste, quisiera saber si es posible resolver lo siguiente: por medio de un macro importar los datos de una tabla de access remotamente mediante IP publica a una hoja de excel; es decir via internet me he encontrado algunas macros para hacer ese trabajo pero en una red local, pero esta vez quisiera hacerlo remotamente, las condiciones de la infraestructura que tengo montada son las siguientes: Servidor windows server 2003 Tiene habilitados escritorios remotos con usuario y contraseña IP publica 190.xxx.xx.xxx base de datos access (.accdb) con contraseña y lo que deseo hacer es como lo que hace este macro (me lo encontre en internet) …

Buenas Tardes: Tengo 2 hojas en excel una categorias y otra subcategorias. Necesito crear 2 combobox en un userform y que suceda lo siguiente: 1. combobox categoria sea medicamento combobox subcategoria aparezcan humano, fitoterapeutico, homeopatico, veterinario y oficinal. 2. combobox categoria sea cosmetico combobox subcategoria aparezcan humano, veterinario y dermatologico. 3. combobox categoria sea suplemento dietario combobox subcategoria no aparezca nada 4. combobox categoria sea alimento combobox subcategoria no aparezca nada 5. combobox categoria sea plaguicida combobox subcategoria no aparezca nada Una vez mas gracias

hola amigos les queria pedir ayuda, como obtengo en una variable la fecha actual? en un formato como año-mes-dia + la hora con los minutos y segundos? saludos

Hola amigos: Tengo el siguiente código: Public Buscarhoja As String Private Sub UserForm_Initialize() 'Al iniciar el userform Application.Visible = False 'Ocultar la Aplicación Excel End Sub Private Sub UserForm_Terminate() 'Al cerrar el userform Application.Visible = True 'Mostrar la Aplicación Excel End Sub Private Sub UserForm_Activate() 'cargar número TextBox20 = Sheets("EXTRAS").Range("O1") + 1 'Cargar combobox ComboBox1.RowSource = "FP" ComboBox4.RowSource = "LA" ComboBox5.RowSource = "EP" p = Sheets("CLIENTES").Range("C1").End(xlDown).Row ComboBox2.RowSource = "CLIENTES!D2:D" & p End Sub Private Sub TextBox1_Change() 'Formato de fecha E…

Hola amigos tengo la siguientes macro que saque por ahí, pero me a traido muchos problemas, lo que quiero es que según un valor ingresado me entregue una fotos con ese nombre y además me comprima la foto, porque tengo que insertar cerca de 40. agradezco desde ya su ayuda y buena voluntad. adjunto archivo saludos imagenes.rar

Buenas, tengo una consulta, tengo una macro que manda los datos a una tabla que uso de base de datos, el tema es que ya se ha vuelto muy extensa y el archivo se puso muy "pesado". quisiera que la BD esté en otro archivo, es eso posible? De paso quisiera que le den un vistazo a la macro que se ha vuelto muy lenta en el archivo original, no se si tendrá que ver que la tabla está muy larga 130000 filas desde ya muchas gracias y perdón por lo desprolijo del ejemplo Saludos Ejemplo.xlsm

Hola, tengo un formulario donde puedo abrir archivos pero antes de abrirlo debo verificar que no esté abierto con anterioridad. Estoy tratando de implementar : If FileAlreadyOpen(nomb_archivo) Then Pero me manda error.

existe algun comando para terminar la ejecucion de la macros desde dentro del codigo? If StoPper <= RealMonth Then mSg = MsgBox("El mes analizado no cuenta con datos reales", vbCritical, "Error") 'aqui nececito algo que termine todos los procesos y termine la macros Else ... gracias.

BUENOS DIAS, ABRA ALGUNA MACRO QUE AMARRE MI PROYECTO EXCEL A UNA SOLA COMPUTADORA, YA SEA POR CODIGO DE DISCO DURO, O OTRO , ES DECIR QUE SI LLEVAN MI PROYECTO A OTRA MAQUINA NO LES ABRA.

Buenas tardes!! Estoy intentando buscar sin éxito información acerca de a través de una tableta para firma electrónica poder capturar la firma e insertarla en una hoja Excel, en un rango o una picture, pero no tengo éxito. Os agradezco si podéis darme un poco de luz, o si sabéis de algún link, o donde buscar, porque no veo información al respecto. La intención es que a la hora de imprimir una hoja de entrega de por ejemplo una herramienta de trabajo, en vez de imprimirla y firmarla en papel, pudiera firmarla en una tableta y guardar en PDF o imprimirla pero ya firmada. Todo lo que me sugiráis será de ayuda. Gracias de antemano. Moisés.

Amigos Muchas gracias por este necesario e impresionante sitio y ayuda prestada. Tengo una duda tengo un macros para guardar ciertos datos de manera vertical, pero mi gran duda ahora es se puede hacer algo similar pero de forma horizontal? Sub copia() Dim Datos As Range, Dato As Range, x As Byte Set RECUENTO = Range("R3:U3") With Sheets("Hrs").Cells(Rows.Count, 2).End(xlUp)(2) For Each Dato In RECUENTO .Offset(, x) = Dato: x = x + 1 Next Dato End With End Sub Lo que necesito es copiar un rango fijo (q7:v404) a otra hoja y que estos sean copiados hacia la derecha (despues de la ultima columna vacia) Desde ya mu…

Hola, tengo un userform con un ComboBox que al iniciar selecciono un item. se podria hacer que al seleccionar uno de esos item cargue en el TextBox1 otro item relacionado con el ComboBox. ejemplo: Seleccionar Enero y en el texbox1 ponga 31 dias. Que los datos no los seleccione de una tabla que los seleccione desde el userform. Gracias Saludos. Libro1.xlsm

Pretendo crear una tabla para hacer un seguimiento de documentos, de dónde vienen y dónde están. Los documentos son ingresados a la tabla con anterioridad (en una primera etapa), junto con otros. Luego de un tiempo estos documentos tienen destinos diferentes. Mi problema esta en la segunda etapa, al momento de registra el destino de esos documentos. Mi idea es por medio de un USEFORM: Textbox1: Ingresar el Nº del documento. (Buscaría en datos ya cargados) Textbox2: Fecha de Endoso. => COLUMNA (J) Textbox3: Endosado a. => COLUMNA (K) Textbox4: Obs. => COLUMNA (L) Lo que quisiera lograr es: Buscar en la Tabla, el dato ingresado en el Textbox1, a partir de …

Buenos dias, No soy capaz que funcione la macro, os explicco: Mi objetvo es: Macro 1: Conseguir que inserte una fila nueva cada cambio de celda de la columna a sea diferente. Despues de muchos dias y copiando ejemplos de la web conseguido Macro 2: Paso 1: que realice sumatorio de la columna J hasta espacio blanco y mantenga formula en la celda,( le llamare en este post obj1 y al range para su obtencion Range1). Despues de muchos dias y copiando ejemplos de la web conseguido Paso 2:que realice sumaproducto de la columna J * la columna K hasta espacio blanco y mantenga …

Hola amigos, solicito su ayuda con el siguiente caso: Mediante una macros quisiera subir varios archivos excel automáticamente a la nube de DRIVE (hojas de cálculo Online). Para no estar subiendo uno por uno, ya que diariamente tengo que subir 50 archivos excel al Drive, y como son los mismos formatos tendría que reemplazar diariamente la misma hoja de cálculo de Drive. Ejemplo - Hojas de cálculo de Google. Quedo atento a vuestra gentil respuesta. Gracias!!! EJEMPLO.rar

Hola, estoy intentando modificar esta macro para poder obtener una ruta del archivo excel del forma automatica. Cambiar HostFolder = "C:\TestFolder" por la ruta que obtengo de concatenar 2 celdas Sub startIt() Dim FileSystem As Object Dim HostFolder As String HostFolder = "C:\TestFolder" Set FileSystem = CreateObject("Scripting.FileSystemObject") DoFolder FileSystem.GetFolder(HostFolder) End Sub Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next i = Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim File For Each File In Folder.Files Active…

Buenas me gustaría saber como hacerle para crear una macro que sea capaz de informarme cuando esta por agostarse mis inventarios Inventario.rar

Muy buen día, tarde, noche. Quisiera solicitar de su amable colaboración en un pequeño inconveniente que estoy teniendo. Estoy siguiendo un tutorial para un sistema de facturación, pero me he quedado atorado en un proceso, el cual es el siguiente: Según el instructor, para continuar con el tutorial se debe descargar un archivo que él dejo en un ejecutable, y que supuestamente me guarda una Dll entre mis archivos, la Dll se llama DllAdo.dll, la cual permitirá realizar una conexión entre Excel y Access, y que todo quedará según él más rápido. La cuestión es que nos indica que se debe crear un módulo de conexión con la siguiente función: '''''''''''DLL ADO ''''…