Buenas tardes foreros, he creado una aplicación para unos amigos autónomos que hace las facturas y las guarda y controla lo facturado , el problema lo tengo al abrir el archivo me da erro 91, os lo adjunto para que lo podáis ver para entrar usuario "Ana" passwor " 1" Gracias de antemano por vuestra ayuda Relacion Facturas Autonomos nuevo pasword.rar

Buenas tardes; Se puede crear una consulta por SQL desde un Excel a un Excel teniendo el encabezado en la fila 2??. un saludo, Libro1.xlsx

¡Hola! Tengo una tabla con con los ingresos de X personas durante los últimos años y meses. Mediante una macro, me gustaría extraer a una nueva hoja aquellos datos (que sean anteriores al mes actual) superiores a 500. También, extraer del mes actual (que lo pueda elegir) aquellos datos superiores a 1000 y para los meses y años futuros, los datos superiores a 500. Al extraer esos datos, me gustaría que les ponga al lado el nombre de la persona al que le corresponde ese dato. No se si alguien me podría ayudar en esto... lo agradecería mucho. Un saludo!!! TABLA.xlsx

Hola!! Tengo un problema con mi archivo, como ven en la Columna de enfermedades hay varias enfermedad, necesito tener una opción en la que pueda se refleje, respiratorias (que entra asma), endocrinología (que entra la diabetes y azúcar), cardiopatía y otras, de forma que yo seleccione por ejemplo, respiratoria y me salga el listado de usuarios con enfermedades respiratorias. Por otro parte quiero crear lo mismo con la columna de autonomía, como aparecen ruta 1, ruta 2, ruta santa cruz, ruta centro, autonomía y familia. Lo tengo creado con tres opciones que es si, no y familia, y necesito cambiarlo y añadir las otras opciones para poder buscarlo por ejemplo por r…

buenas Me llamo franespi y soy nuevo por ello os doy un saludo Bueno vamos a lo que vamos tengo una hoja excel , en la primera columna tengo introducidos unos nombres , y tengo tambien una macro que cuando pulso cualquier celda de la primera columna pues se tiene que cojer el valor de la celda con la macro y completar con una variable en la mitad de una direccion web , el problema esta en que no conozco la sintaxis de introducir una variable en la direccion web podria alguien ayudarme . os incluyo la macro Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim CeldaActual As String Dim valor …

hola expertos buenas noches mi idea es como podremos distribuir 800 numeros que se encuentran en la columna A pasarlos a la columna E en grupos de 40 numeros por columna

Hello everybody My new problem is this. On an Excel sheet with office 2007 I extract links relating to images from a web page. And I insert them in the 8 lines starting from the cell ("B10: B17") And so far everything is ok In turn, the related images are extracted from these links. Now the problem is this: 1) I would like the first image to be imprinted only in the cell (A2) While all the others were positioned at each extraction in the row ("A6: G6") 2) at the same time I would like the procedure start button Remain unchanged in its place That's all, thanks in advance for all the help you want to give me in this regard. Thanks from A.Mauri…

Buenos días, En el archivo adjunto tengo un listview que en las columnas respectivas C, F que corresponden a los € necesito que se muestren en el listview los importes con dos decimales. ¿Alguien me podría ayudar a definirlo?. He encontrado varias formas por internet pero ninguna soy capaz d e adaptarla a mi código... Muchas gracias de anteamano. BUSCADOR PRECIOS SUBCONTRATAS.xlsm

Sub importarEnDesarrollo() Dim wb As Workbook Set wb = ThisWorkbook Dim ws_main As Worksheet Set ws_main = wb.Worksheets("Main") Dim directorio As String 'directorio = ws_main.range("path").Value directorio = "C:\Users" Dim sCadena As Variant Dim nFichero As String Dim i As Integer i = 0 Open directorio For Input As nFichero Do While Not EOF(nFichero) Line Input #nFichero, datos i = i + 1 sCadena = datos With Sheets(1) .Cells(i, 1) = Trim(Mid(sCadena, 1, 10)) .Cells(i, 1) = Trim(Mid(sCadena, 12, 4)) .Cells(i, 1) = …

Buenas, os adjunto un ejemplo para convertir una fecha separada por barras dd/mm/yyyy (columna A) en yyyy-mm-dd (columna B). El caso es que aunque en la celda se visualiza como yyyy-mm-dd después de convertir, en la barra de fórmulas sigue figurando dd/mm/yyyy. No encuentro el modo de solucionar esto... tampoco he encontrado cómo solucionarlo. Alguna idea? Gracias! ej_fecha.zip

Bueno gente buenas noches Mi duda es la siguiente tengo unos datos nuevos que genera un software pero los genera muy diferentes como los trabajamos la idea es adaptar esa misma informacion al formato que ya manejamos , lo esplico mejor en el aejmplo que subo de antemano muchas gracias si me pueden colaborar EJEMPLO PARA MACRO.rar

Señores, Junto con saludarlos me permito ingresar esta solicitud. Estoy intentando automatizar la creación e impresión de nuevas hojas. Hasta el momento he logrado crear nuevas hojas, pero tengo problemas con la impresión de estas. Tengo que mencionar que apenas conozco un poco lo referente a macros. Saludos, Sergio ejemplo crear nuevas hojas.zip

Hola Amigos del Foro Es mi deseo agradecer la oportunidad que dan en este foro de aprender de muchos de ustedes y a su vez aportar algo de los pocos conocimientos. En esta oportunidad tengo un inconveniente con la conexión Excel Access - He tratado de crear la macro de conexión pero solo me da errores. Donde está la situación creo es que la BD Access está en un equipo remoto. No he podido establecer la cadena de conexión bien... en fín he intentado con múltiples opciones y nada Este es mi codigo: , Private Sub CmBtnEnviar_Click() Dim strSQL As String, _ CuadroTexto As Control 'me aseguro de que todos los cuadros de texto están rellenos 'For Each CuadroTex…

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

A que se debe que mi exeb no arranca pidiendo habilitar macros y luego no puede hacerlo?

Hola, buenas tardes. Llevo varios dias dándole vueltas a un problema con una macro, me explico: La función de esta macro es de, en primer lugar, listar los documentos archivados en una carpeta cualquiera (seleccionada con un Browser), con sus propiedades y características. Esto ya he conseguido hacerlo (es la parte fácil) No obstante, ahora necesito que, si escribo en otra columna X un nuevo nombre para el documento (digamos que el nombre actual del documento está en la celda "C2", y yo tecleo un nuevo nombre "*.*" en la celda "D2") al activar la macro ésta vaya a la carpeta del documento, y modifique su nombre antiguo por el nuevo, sin modificar el directorio. Más o …

Buenos dias. Necesito pegar los datos de la ultima fila ( o mediante un formulario) las veces que me indique la celda K7, indique esta pegar 20 veces, 25 veces o 120 veces en forma descendente a partir de la primera celda en blanco. Aqui les dejo la macro para copiar la info (pero me falta la macro para pegar) Range("d100").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy With Sheets("DATOS").Range("D" & Rows.Count).End(xlUp).Offset(1) .PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False End With End Sub Muchas gracias!!! BVA.zip

Buenas necesito de su ayuda de nuevo, tengo un archivo que rellenando las tres primeras hojas genero un albarán, en dicho albarán en "J10" tengo el numero de versión y quiero que según vaya generando los albaranes la columna "C" de las primeras hojas en donde tengo las cantidades pase a la siguiente columna poniendo en la fila 2 de dicha columna el numero de versión y así sucesivamente, de tal modo que siempre tenga los datos almacenados. les dejo un archivo con los datos simulados. Muchísimas gracias. Material FTTH Act.-PRUEBA.rar

Hola, quisiera una ayuda con esta macro: Sub copiarNuevo() Dim hj As Worksheet, x As Long, celda As Range x = 8 y = 0 For Each hj In ThisWorkbook.Worksheets If hj.Name <> "Index" And hj.Name <> "Plantilla" And hj.Name <> "Consolidado" Then If celda <> 0 Then y = y + 1 With hj For Each celda In .Range("v8:z48") If celda <> 0 Then Worksheets("Consolidado").Cells(y, x) = celda x = x + 1 End If Next End With End If Next End Sub Lo que deberia hacer es recorrer todo el libro (menos las hojas indicadas), copiar las celdas ocupadas en el rango v8:z8, y pegarlas en otra hoja, fila tras fila. El problema es que…

buenos dias, me pueden colaborar indicándome como hacer lo siguiente, yo tengo una base de datos y a esta realizo una serie de informes con la ayuda de dos tablas dinamicas ubicadas en hojas diferentes y lo que quiero hacer es que el usuario pueda en una casilla seleccionar un rango de fecha las cuales deben ser de quincenas, es decir del 01 al 15 de julio o del 15 de julio al 15 de agosto y que automáticamente las tablas dinámicas carguen los datos de esas fechas. gracias por su ayuda:welcoming:

Tema cancelado

Saludos tengo una tabla dinamica sencilla pero deseo poder modificar el "filtro de informe" desde una macro con un criterio, los años, por ejemplo que solo muestre los datos entre 2009 y 2013 pero esto desde una macro para luego insertarle esa pregunta con un inputbox y hacerlo interactivo. algo asi Sub filtro_interactivo() año2 = InputBox("Ingrese el año hasta donde quiere ver datos: ", "AÑO FINAL") ' el campo3 es la variable que va en el filtro y son años desde 2009 hasta 2019 If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").items &lt; año2 Then ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").Items.visible=true End If End Su…

Buenas noches a todos; Aquí traigo una consulta, tiene que ver con la posibilidad de actualizar una tabla en Excel a partir de una tabla (o una consulta en Access), creo que la forma de hacerlo sería mediante ADO. He probado a hacerlo mediante los botones de formulario en datos, pero me encuentro con el problema de que al tener el archivo de Access una contraseña siempre aparece la ventana conexión pidiendo usuario (admin) y contraseña. Como no quiero que aparezca esa ventana ni la posibilidad de que se vea ningún tipo de contraseña, creo que la mejor opción sería mediante ADO. La base de Access tiene contraseña (la tiene que tener) y es 123 He visto algunas consultas …

Buenas tardes, necesitaría ayuda, no se como empezar, quisiera una cosa simple. En la hoja 1, produzco la factura, con la consabida MACRO. En la Hoja Listado, tengo en la columna H el STOCK. Como podría ir rebajando el STOCK, al hacer la Factura. Muchas gracias Factura.rar

Buenos días para todos... Mi consulta es: Tengo un excel en donde esta conformado en la primera hoja una lista y n cantidad de hojas donde: n= personas que deben cumplir con ciertos criterios para pasar primera hoja= lista donde deben ir las personas que no cumplieron con ciertos criterios como mencione anteriormente en cada hoja se pone el nombre y cédula del individuo y se desglosa en los criterios que deben cumplir para pasar ejemplo: Experiencia certificada, realizacion de cursos etc... Cuando la persona no cumple con el requisito de terminar estudios se debe reportar en la lista (situada en la primera hoja) con su nombre y cédula... Realice una macro para que c…