buenos días, tengo un tarificador de primas que me he quedado estancada por la funcion if dentro de un commandbutton. me explico: en la hoja excel tengo un cuadro combinado con tres valores (2010,2011,2012) según el año que elijas dará prima tanto de hombre como de mujer, en las celdas B12 y C12 respectivamente, los valores de los años 2010 y 2011 son la misma tanto para hombre como para mujer, pero la del 2012 la prima varía. una vez facilitada la prima, ésta debe pegarse en la hoja PRES que es un presupuesto que debe imprimirse. he creado un boton de comando y con la funcion If verifica la condición si B12<>C12 preguntar con un inputbox el sexo y una ve…

Buenos días @JSDJSD espero estes bien Utilizando la información proveniente de los dos posts anteriores en los que usted me dio un excelente soporte: Me guie para intentar configurar las siguientes macros: Sub VerificarTextBoxes() Dim txtBoxes As Variant Dim contador As Integer Dim sextoTextBox As Double Dim septimoTextBox As Double Dim i As Integer txtBoxes = Array(frmvtl.TextBox16.Value, frmvtl.TextBox17.Value, frmvtl.TextBox18.Value, frmvtl.TextBox19.Value, _ frmvtl.TextBox20.Value, frmvtl.TextBox21.Value, frmvtl.TextBox22.Value) contador = 0 …

Hola Colegas, Buenas Noches. Mis deseos que se encuentren bien de salud. Hoy acudo a ustedes para ver si me pueden ayudar con un reporte que necesito en VBA en el Proyecto de las Disponibilidad Bancaria. Yo debo emitir una información semanal con los Cobros que me hacen las Agencias Extranjeras, con los datos Fecha, Estado de cuenta (EC), Agencia e importe. Acá tengo a mi parecer dos opciones: 1.- Habilitar una columna y a través de un CheckBox o ComboBox validar esa acción, que me ponga si es True " CAE" (Cobro de Agencia Extranjera) … Esa variante conllevaría a cambiar casi todo el Código, toda vez que se insertaría una columna y eso cambiaría m…

Buenas noches, expertos con la siguiente macro necesito que me registre en una solo fila, lo que esta macro esta registrando es una parte en una sola fila dos ultimos en la parte inferior de las filas como la imagenes que se muestra pero lo necesito como la imagen de acontinuación. Por favor si me pueden ayudar, los agradezco de antemano. Ajunto el archivo. Premisas.rar

Hola buenos días, estoy haciendo una macro con el cual traigo los datos de diferentes libros y de ahí extraigo datos, según la hoja que necesito. mi macro actualmente funciona. indicando directamente el nombre del libro al que quiero hacer referencia. Set l2 = Workbooks("Bd_Sunny1.xlsm") pero como trabajo con diferentes archivos y datos me gustaría poner en la celda U1 del libro1 el nombre del archivo al cual quiero hacer referencia, y no estar modificando mi macro a cada momento. Mi libro1 (L1) es donde esta la macro y L2 es el libro de donde buscare los datos. trate de hace referencia de esta manera. nA = l1.Sheets("Contenido").Range("U1").…

Saludos alguien me puede ayudar con un ejemplo de una macro que importe informacion de una pagina web apartid de poner la liga en una celda, de antemano muchas gracias

Hola! Como estan? Estoy necesitando ayuda con lo siguiente, tengo una hoja que se encuentra bloqueada excepto 2 columnas, luego de accionar distintos botones, se vuelve a bloquear TODA la hoja excepto esas 2 columnas. Pero el problema que estoy teniendo, es que uno de los botones, imprime la hoja con el codigo Print.Out y si no encuentra impresora cargada, arroja un error y se DESBLOQUEA TODA la hoja. Se me ocurrio un If, pero no se como insertarlo, tal vez hay otra forma. Copio parte del codigo y explico: Es una planilla de stock que genera un remito, la planilla de stock se envia a distintas personas pero NADIE deberia poder alterar los valore…

Buenos días, espero alguien pueda ayudarme, estoy perdido en esto. Tengo una tabla con 9 columnas y 200 filas. En la columna A, que es la numero 1 hay un código de informe. En la columna I, que es la numero 9, se pueden ver los siguientes elementos: UNV, AVP, UDV, PLV. Cada uno de estos conjuntos de tres letras son una Unidad de Negocio a las que reporta cada informe. El problema surge cuando un informe de la columna A reporta a más de una Unidad de Negocio, como sucede en la fila 12, por ejemplo. Necesito que en todas las celdas de la columna 9 haya solamente una Unidad de Negocio: UNV, AVP, UDV, PLV. Para ello necesito q…

buenas a todos , pido disculpas por preguntar ta lves cosas elementales , ya con la practica ire aprendiendo . la cuestion que me toca hoy es saber cual seria la instruccion para que en un txt del formulario (todod datos numericos) se llene como resultado de la division de otros 2 txt , intente con: Private Sub txtValorPresupUsd_Change() Dim Valor1 As Double Dim Valor2 As Double Dim valor3 As Double Valor1 = Val(txtValorPresup.Text) valor3 = Val(txtCotiz1.Text If txtValorPresup.Value <> "" Then txtValorPresupUsd.Value = Valor1 / valor3 End If txtValorPresupUsd.Value = Format(txtValorPresupUsd, "#,##0.00") …

Muy buenas a tod@s,Estoy intentando automatizar un dashboard conectado a una ruta de SharePoint que contiene varias carpetas por mes y año. Por cada año 12 carpetas, y un libro por cada día del mes. Necesito añadir una columna a cada libro con su fecha en formato MM/DD/AAAA. Cada libro contiene la fecha en el formato requerido en la celda E1 > " Viewing Range=[1/31/22 - 1/31/22] ", ¿hay una macro para extraer solo la fecha y copiarla en la columna A hasta donde terminan los datos? Y esto mismo poder ejecutarlo para todos los libros dentro de la ruta.Saludos y gracias de antemano

Existe la manera de que al momento rellenar los campos de búsqueda, busque al presionar algún botón llamado búsqueda y no que lo haga automático, ya que al momento de ser automático y tener muchos datos se pega o se demora mucho . Solo si puedes ayudarme @Antoni ya que tu conoces el tema. PRUEBA - copia.xlsm

Hola, tengo un excel en mac con dos columnas de registro de fechas de caducidad. Me interesaría que cuando la fecha fuera inferior a 1 mes, enviara un mail de aviso o un texto estándar mediante el programa Mail de Mac. gracias de antemano. un saludo

Hola a todos amigos, tengo este código que me trae la información de un libro, sin embargo, ando intentando importar varios archivos a la vez pero ya me bloquié, este es el código que ocupo para leer el libro, espero alguien me puede dar una idea, saludos Application.ScreenUpdating = False Dim wbLibroOrigen As Workbook Dim wsHojaOrigen As Worksheet Dim wbLibroDestino As Workbook Dim wsHojaDestino As Worksheet Dim ruta As String ruta = ActiveWorkbook.Path & "\" & "Lista_Negra_SAT.csv" 'Datos destino Set wbLibroDestino = Workbooks(ThisWorkbook.Name) Set wsHojaDestino = wbLibroDestino.Worksheets("Hoja1") 'Datos origen Set wbLibroOrigen = Workbooks.Open(ruta) S…

Hola queridos foreros, podrían ayudarme con una macro por favor, necesito normalizar o tabular a columnas una serie de tramos (desde - hasta) que se repiten, pero que tienen distinta información ("especie") en columna E, en este ejemplo son 4 posibles "especies", a veces pueden ser 7 u 8, cada "especie" además tiene asignado un porcentaje (columna F). Lo que requiero como solución se muestra a modo de ejemplo en columnas desde la "J" a la "P". adjunto un ejemplo sencillo y la solución que requiero. Ojalá puedan ayudarme estimados foreros. ayudaexcel_tabular_tramos.xlsx

Hola a todos, Estoy intentado ejecutar una consulta Sql en un formulario y se ejecuta bien, pero quería ir un paso mas y establecer unas validaciones las cuales se me están atragantando. Hasta ahora mismo solo lo consigo con la fecha y me falta conseguirlo con dos criterios mas que son "Cuenta" y "Concepto" En la validación se debe tener en cuenta que siempre debe haber uno excepto con las fechas que se debe incluir fecha inicio y fin. Saludos Adjunto macro. MiSQL.xlsm

Amigos, tengo esta planilla (adjuntada) con una macro en la cual la idea principal es buscar los folios (en 10 archivos distintos) y arrojar la información de la fila asociada al folio en esta planilla, el problema de esta planilla es que tengo seleccionar manualmente el archivo origen (10 planillas), la idea principal es que se pueda realizar esta búsqueda con las planillas de origen cerradas (osea sin necesidad de abrirlas manualmente), alguien me podría ayudar? de antemano muchas gracias. Buscar11.rar

hola tengo una duda, tengo varios libros de Excel ordenados de forma Numérica, cada libro de Excel tiene 4 hojas con su título y su información que puede varias en filas con información de uno a otro libro, quiero pegarlo en otro libro de Excel, como especie de un consolidado, pero de forma ordenada, es decir la información de la hoja 1 del libro 2, se copie y pegue debajo de la informacion de la hoja 1 del libro 1, la del libro 3 debajo de libro 2 y asi sucesivamente, quine pueda colaborarme con el codigo macro , Gracias de antemano

Buenas gente, preciso una macro para poder desde un libro activo, tomar los datos de otro libro, filtrarlos y pegar su resultado en el libro activo, en una pestaña determinada. Alguien podria ayudarme? Muchas gracias!!

Hola buscando el la web me encontré con un generador de etiquetas QR solo que no eh podido adaptarlo a mi proyecto , los codigo qr los genera sin problema , solo que busco que se pasena otra hoja en una celda en especifico segun corresponda al valor ejemplo en la celda A1 tengo el valor 01 y deseo que el el codigo qr generado con el 01 se pase en C1 de la otra hoja , adjunto archivo espero haberme explicado muy bien y que me puedan orientar ya busque otras alternativas pero el que genera qr con formula me hace lento el archivo

Hola buenas tardes: Necesito ingresar una formula en la columna C solo si una celda celda anterior tiene valor Columna B. Mi formula es (=SI.ERROR(EXTRAE(B3,ENCONTRAR("*",SUSTITUIR(B3,"\","*",LARGO(B3)-LARGO(SUSTITUIR(B3,"\",""))))+1,LARGO(B3)),"") Espero me puedan ayudar. Gracias Insertar formula si.xlsm

buenos días, necesito vuestra ayuda llevo días buscando código para terminar un tarificador y no doy con el código. en un formulario necesito que cuando el usuario escriba en un textbox un codigo postal "05495" automaticamente "05" se pegue en una celda excel y de ahi poder hacer un buscarv y sacar la provincia de la tabla "Codigos" he utilizado el codigo Hoja1.Range("d2") = TextBox1.Value para que peque todo el codigo postal en la celda excel, despues con =izquierda() saco los dos caracteres de la izquierda y con un buscarv sacar la provincia de la tabla, pero me sale error. preferiria conocer el codigo que busque la provincia de la tabla el objet…

Hola buneos dias. Tengo un archivo que uso como plantilla está dentro de un libro 1 que he llamado (LibroOrigen). en ella esta una hoja llamada "Lista" y una vez que lleno esta hoja lo copio en otro libro 2 (libro destino) ahí voy acumulándolos y cambio el nombre de estos. Con una macro he podido enviar la hoja "Lista" de libro origen a libro destino, pero este me lo guarda con el nombre de "lista". Me gustaría poder guardarlo en libro2, con el nombre puesto en una celda (A2) de la hoja lista Libro1. y así el acumulado ya tendrá nombre diferentes. Muchas gracias Mario Libro Origen.xlsm

Tengo un problema en mi macro, ya que se ejecuta solamente al reescribir sobre la celda J23 Quisiera que se ejecute de manera automática al realizar un nuevo cálculo en la hoja, como podria solucionarlo? Dejo mi código: Private Sub Worksheet_Change(ByVal Target As Range) Dim Rango As String Rango = "J23" If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then For i = 1 To ActiveSheet.Shapes.Count ActiveSheet.Shapes(i).Visible = True Next i For i = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes(i).Name = Range("J…

Hola a todos Estoy haciendo una rutina en excel para insertar unas imágenes en un archivo Word. Las imágenes las logro insertar pero no se fijan en la linea que deseo sino que se mueven ya sea en líneas anteriores o posteriores y no he encontrado la forma de fijarlas en la linea específica donde son insertadas. Aquí adjunto la rutina que estoy utilizando y además dos imágenes de como queda la imagen insertada y como debe quedar Lo que deseo resolver y para lo cual necesito su valiosa ayuda es saber cómo puedo fijar las imágenes en la línea donde son insertadas. De antemano muchas gracias por su tiempo Daniel ImagenWord.xlsm

Hola! Estoy intentando hacer lo que explico en el adjunto. Ojalá me podáis ayudar Saludos Pregunta.rar