Buen día amigos del Foro, tengo una consulta acerca del uso de la función MInverse de las hojas de excel en una función en visual basic. Escribí la siguiente linea esperando que el programa me devuelva la matriz inversa del "rangom" el cual es una variable de ingreso de la función (declarada como Range) pero no me ejecuta el MInverse al parecer no se puede guardar en "rangod" que fue otra variable que declare como Range. rangod = Application.WorksheetFunction.MInverse(rangom) Alguien me podría indicar si es posible usar los comandos de excel en la creación de funciones en el visual? y si es posible, como hacer la codificación?

Buenos dias. Estoy trabajando con un archivo que contiene macros y muchas celdas que estan combinadas y centradas y al momento de ejecutar algunas macros me esta generando errores que me descuadran el formato sobre el cual estoy trabajando. investigando me he enterado que es por el uso de la funcion combinar y centrar. asi que quisiera saber como puedo ajustar un texto un poco extenso pora el cual estableci un espacio de las celdas A8:AD10. he probado con centrar en la seleccion, pero esto solo me sirve para una fila y no con filas y columnas.

hola necesito un codigo que me liste las propiedades de una celda en access tenia algo parecido a esto para las porpiedades de un fomulario, algo como si dim pr As Property For Each pr In Me.Properties Debug.Print pr.Name; "="; pr.Value Next [/CODE] necesito algo parecido pero para las propoedades de una celda en excel grcias

Hola amigo, tengo una macro que me inserta una cantidad de imágenes en mi archivo excel, pero quiero hacer dos pequeñas modificaciones: 1) que la cantidad de fotos (CantFotos) que inserto este vinculado en una celda de mi excel, y no que la tenga que modificar desde la macro 2)que me comprima cada imagen que inserto a 150pp esta es la macro: Sub InsertarImagenes() Dim PosX, PosY, X, J As Integer Dim CantFotos As Integer Dim Ruta As String 'le asigno valores a las variables, mismas que dependerán 'de cada proyecto: 'ruta de acceso a las imágenes Ruta = "\" 'cantidad de imágenes a cargar: CantFotos = 42 'margen izquierdo y superior que separará a cada imagen: …

Consulta... Se puede crear un combobox o lista en una celda, donde al seleccionar uno de los datos, automaticamente muestre una segunda lista ? Ejemplo: Una lista de competencias, dentro tiene Clasificacion, Organizacion, etc... Al seleccionar Clasificacion, muestra los subcontenidos: Control, Punteo, Orden, etc. Seleccionar Orden y sea la opcion definitiva.

buenas compañeritos del foro tengo una duda sobre tabulacion que me gustaria ustedes me ayudaran a despejar. estoy haciendo un formulario que genera una base de datos, pero los datos en la base no me sirven para imprimir, lo que deseo hacer es que los registros ingresados en dicha fila se copien por decir a otra fila donde esta ultima fila este enlazada a 4 hojas que es donde tienen que dispersarse los datos del registro. 1.-generar la base de datos a partir del formulario ya lo tengo hecho. 2.-que la el registro que estoy ingresando/modificando se copie a otra fila no lo tengo hecho 3.- el informe de 4 hojas lo tengo enlazado solo esperando la informacion de la fila …

Hola que tal, saludos a todos los foreros de Excel. Solicito otra vez vuestra colaboración y ayuda para resolver otra cuestión que se me ha vuelto a presentar en una hoja de calculo de Excel . 1ºAYUDA En mi libro de Excel y desde la hoja1, he creado una hoja de calculo con cuatro columnas para desglosar la Base imponible., el I.V.A, y la suma del total factura ,voy a exponer un ejemplo para una mejor comprensión de lo expuesto. . En la columna B, he seleccionado el rango de las celdas de la B1:B10 para aplicar la cantidad X que quiero desglosar en las siguientes otras columnas: En la columna D, he seleccionado el rango de las celdas de la D1:D10 para aplicar el desgl…

Hola, mi nombre Itonino y quisiera daros mi saludo de bienvenida a todos los foreros de Excel. Solicito de vuestra colaboración y ayuda para resolver una cuestión que se me ha presentado en una hoja de calculo de Excel . 1º AYUDA En mi libro de Excel dispongo de tres hojas Excel nombradas como hoja 1,hoja 2 y hoja 3, hasta aquí todo bien ahora lo que quisiera hacer es automatizar la acción de renombrar cada una de las 3 hojas . Para tal fin quiero poder renombrarlas desde las celdas D3, D4, y D5 de la hoja 1 de Excel , como ejemplo seria para D4 renombrarla por LUNES, D5 por MARTES y D6 por MIERCOLES, de manera que no deba de hacerlo por el método tradicional por el q…

En la Hoja "Obras Sociales" tengo que cargar las entradas de dinero según el mes. Me interesaría saber cómo hacer una macro para que me copie en la hoja "Resumen mensual" las obras sociales( en total son 42) que ha ingresado dinero durante un mes determinado. Ojalá alguien pueda ayudarme !!!! Se me han ocurrido diferentes formas...pero no termino con ninguna.. Gracias de antemano. Alejandro.

Buenas noches, necesito ayuda con una programación de una macro. Es un poco complejo y no sé si seré capaz de expresarme correctamente para que me entendáis. El valor de Modelo1 puede ser entre 0 y 12. El valor de Modelo2 puede ser de 0 a 24. 2*Modelo1+Modelo2=24 --> calcular y escribir el la hoja el resultado de: Modelo1*Margen1+Modelo2*Margen2. Rellenar la tabla de: nº (número de combinación; por ejemplo la combinación 1 puede ser: Modelo1= 12 y Modelo2=0), Modelo1, Modelo2, Beneficio total (fórmula anterior). Todo esto se tiene que poder calcular a través de un botón. Cada vez que se escribe una combinación de Modelo1 y Modelo2 que cumpla la fórmula 2*Modelo1+M…

parte del codigo y donde se produce el error es el siguiente, mas abajo se produe el error: FechaInicial_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(1, 2).Value FechaFinal_2013 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(2, 2).Value FechaInicial_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(3, 2).Value FechaFinal_2014 = Workbooks(LibroActivo).Sheets(hojaactiva).Cells(4, 2).Value Application.ScreenUpdating = False Set pt = ActiveSheet.PivotTables("Tabla din?mica1") Set pf = pt.PivotFields("Fecha") For Each pi In pt.PivotFields("Fecha").PivotItems FechaComparacion = VBA.Format(pi.Value, "dd/mm/yyyy") 'CDate(pi.Value) If FechaComparacion &…

El problema que tengo es que me han pasado esta macro, la cual me impide GUARDAR el libro si no hay 3 celdas, concretas, con información, pero no puedo salvar el proyecto con las celdas vacías. Procedo a intentar explicarme mejor: El código que me han pasado es este: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 'selecciono la hoja que debe controlar Sheets("Mañana").Select If Range("G3") = "" Or Range("B58") = "" Or Range("F58") = "" Then MsgBox "Por favor, ingresa la fecha y los Nº" Cancel = True End If End Sub [/CODE] Y me han dado la indicación de abrir el programador, editor de visual basic, doble clic en ThisWorkbook pa…

Buenas tardes!!! Estoy trabajando en un proyecto, casi esta finalizado pero me gustaría me ayudaran, LA MACRO SE UTILIZA PARA EL REGISTRO DE MALLAS (PRODUCTO) POR DÍA Y POR ÁREA PRODUCTIVA DE UNA EMPRESA DE FLORES. Al ingresar el primer registro todo perfecto, pero al ingresar el segundo registro la información se sobrescribe en las mismas celdas , necesito que se, almacene en las celdas continuas y conservar todos los registros. también les pido su ayuda para que vinculen la información a un concentrado final de todas las variedades, POR FECHA EL TOTAL DE FREEDOM PRODUCIDA 04/04/2014 Agradezco su atención mallas.zip

Buenas tardes. Tengo un listado de eventos los cuales tienen prorroga por lo que tengo que hacer un calculo manual para establecer la fecha de vencimiento, esto en ocaciones es complejo ya que no siempre se tien un calendario a la mano para verificar si el mes de de 28 30 o 31 dias Lo que quiero logarar es que partiendo de la fecha inicial me sume los dias, los meses o los años de prorroga para tener una fecha de vencimiento por medio de la userform Muchas gracias. Adjunto archivo Gracias. Sumar a fecha.rar

Buenas tardes. Tengo una conexión a una tabla de query, pero cuando actualizo el excel el primer dato que me trae a excel es el siguiente 3,7791E+17 y tendría que ser este numero. 377912903807458311 que es lo que estos haciendo mal?? Desde Gracias Saludos Sabatd datos de query .xls

buenas a todos, otra vez... en el negocio de mi mujer su sistema de cobros, me genera un archivo con la fecha y la hora con todas las ventas de la historia. pregunta yo separo las ventas x mes, a mano, pero me gustaria saber las ventas diarias hay alguna manera de usar la funcion SUMA, que me pueda dar esta opcion y no tener que hacerlo a mano? adjunto excel como siempre gracias a todos Libro1.xls

Buenas tardes, Agradeciendo su colaboración, me permito enviar la siguiente consulta: Tengo una hoja con busqueda de productos por plu de otra hoja que contiene una base de datos, al terminar de buscar el producto yo agrego otros datos ( cantidad y observacion ) y hago una macro que vaya llenando un listado en otra hoja, pero resulta que me copia la formula de buscar v y no los valores que encuentra en esa celda .... Muchas gracias. ListaMercado.xls

Buen dia: Tengo el siguiente código de una tabla dinamica: ActiveSheet.PivotTables("ADPRO").PivotFields("Suma de Costo").Orientation = _ xlHidden ActiveSheet.PivotTables("ADPRO").AddDataField ActiveSheet.PivotTables("ADPRO"). _ PivotFields("Saldo"), "Suma de Saldo", xlSum ActiveSheet.PivotTables("ADPRO").PivotFields("Suma de Saldo").Orientation = _ xlHidden ActiveSheet.PivotTables("ADPRO").AddDataField ActiveSheet.PivotTables("ADPRO"). _ PivotFields("Costo"), "Suma de Costo", xlSum pero cuando requiero que se oculte el campo Suma de Saldo que es un campo calculado me saca el siguiente error: "No se puede asignar la propiedad Orientation de la clas…

Hola a todos: Soy nuevo en el foro, gracias de antemano por su ayuda. Estoy trabajando con plantillas de datos bioinformáticos muy extensas (60.000 filas) y busco una forma de aliviarme el trabajo Tengo dos columnas adyacentes. Columna A contiene nombre de genes (alrededor de 1000 genes, repetidos a lo largo de la columna en diferentes frecuencias hasta llegar a aproximadamente 60.000 filas), ordenados alfabéticamente. Para cada nombre de gen, una columna adyacente (columna contiene un nombre de secuencia asociada. Toda la información está en texto. utr|3OMYR000001|p-ras omy-miR-nov217-3p_3 utr|3OMYR000001|p-ras omy-miR-nov53-5p utr|3OMYR000001|p-ras omy-miR-n…

Llevo adelante un proyecto personal, con la intencion de mantener un registro mas o menos organizado de incidencias del personal a mi cargo. En el archivo que les dejo, utilice una base que dejaron en este mismo foro y con el mismo arme la carga de dichas incidencias. Ahora bien, necesito filtrar la informacion, tanto por nombre, trimestres, informador, etc. En este mismo foro vi el Super Turbo Filtro, me fascino, pero no consigo hacer que funcione, no se en que estoy fallando. De no ser posible ese filtro, cualquier otro que me permita hacer algo similar, de manera sencilla, incluso que luego me permita imprimir la informacion filtrada. Desde ya, como siempre, muchas …

Buenas tardes Estoy aplicando un archivo para la captura de informacion de personal , pero ya no se como hacerle en la parte de consulta de datos por medio de una busqueda con varios resulados, les dejo el archivo para que puedan darse una idea de lo que requiero. en lo ultimo lo que deseo es consultar la clave de empleado ( que es unica), consultar por categoria ( con varios resultados) y consultar nombre o primer apellido o segundo apellido ( con varios resultados) y que la informacion que arroje lo pueda imprimir en un formato de reporte. saldos. Proyecto Historial de Personal2.rar

Buenas tardes estimados, de nuevo molestando por acá, estoy tratando de crear un formulario para poder llevar el control de facturas de mis gastos mensuales, pero ya me quedé atorado en el código, lo que quiero es que al momento de usar el combo box pueda empezar escribir el nombre de la empresa y me aparezca y me refleje en un text box el nit de la misma, quisiera fueran tan amables de orientarme en esto. De antemano muchas gracias!!! P.S. Adjunto el documento Dropbox - Ingreso de Facturas.xlsm

Amigos del Foro Buenas tardes por aquí dando vueltas de nuevo, espero puedan ayudarme. si no es molestia. y me regalen un poco de su valioso tiempo Al dar clic en la celda que tenga la palabra "actualiza Equipo". Me almacene algunos datos en la hoja histórico según el modelo de la hoja. Y y luego me guarde la lectura del kilometraje de ese neumático en la celda correspondiente en este caso serian la celda de la columna "AA". y finalmente me limpie los datos de la celdas. N,O,P,Q,R,S,T,U,V,W,AF,AG,AH,AI,AJ. Y así sucesivamente con todas las filas que tienen la palabra "actualiza equipo". por ejemplo doy clic en la celda AL6, me almacena los datos determinados en la h…

Sub Macro1() ' ' Macro1 Macro ' ' With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.708661417322835) .RightMargin = Application.InchesToPoints(0.708661417322835) .TopMargin = Application.InchesToPoints(0.748031496062992) .BottomMargin = Application.InchesToPoints(0.748031496062992) .HeaderMa…

Hola, Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes: Dim inicio, final As Integer inicio = InputBox("Indique Registro Inicial", "Inicio") final = InputBox("Indique Registro final", "Final") b = inicio For i = inicio To final Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" & Label1.Caption = Range("a1") Sheets("Hoja1").PrintOut b = b + 1 Next i En este caso el label toma el val…