Buenos días a todos, explico brevemente mi problema: Estoy intentando copiar las datos (solo los datos) de una celda (que contiene una fórmula Condicional) concreta de la Hoja "Tesorería" y pegarlo como un valor en la Hoja "Saldos Banco" en una celda concreta. No se exactamente cual es el código que hay que poner para hacerlo, paso el código de la macro a ver si me podéis ayudar con el problema. Sub CopiarDiciembre2021() 'Desactivar eventos pantalla Application.ScreenUpdating = False 'Importe INGRESO (Pagos BANCO) '.... Sheets("Tesorería").Activate '.... i = 8 'comienzo el bucle For i = 8 To 8 'compruebo que el valor…

Hola a todos. Alguno de uds. tendrá un formulario que al abrir el archivo excel solicite nombre de usuario y contraseña. Gracias anticipadas. Saludos.

Hola buenas! He estado merodeando por el foro per no he encontrado ninguna pregunta parecida del todo, y me sobta puesto que encuentro que es algo que si realmente se puede conseguir hacer dentro de Excel el resultado es muy atractivo. Resulta que estoy en una liguilla donde cada semana los participantes ganamos una cantidad yi de puntos que se añaden a los que hemos ido acumulando a lo largo de las 38 semanas. Es por eso que decidí crear un ranking para irlo pasando actualizado en forma de gráfico cada semana por el grupo de whatsapp. En ese grafico de ranking se encuentra un simple histograma donde cada elemento X (cada columna) equivale a la suma de punt…

Hola, no se en que momento empezó a aparecer el signo de interrogación en la parte superior izquierdo del firmulario. Saben a que se debe?

Hola Foristas. Espero se encuentren bien de salud. De nuevo por acá. Esta vez necesito me ayuden con algo. Tengo este Proyecto que estoy desarrollando para mi esposa sobre las Pre-Nóminas pero necesito algo: En el FrmPreNomina ella hace los cargos de cada trabajador según el tiempo trabajado y los salario que devenga, pero tiene varios Tipos de Pre-Nóminas (Salario, Dejado de Pagar, Feriado, Estimulación, Objeto de Obra y Sobre Cumplimiento) que se detallan en el CmbPrenomina, pero en un mismo mes, un trabajador puede tener varias prenóminas, por ejemplo: El trabajador : 8045 Luis Carlos Avila Pupo 66062804844 O Contratos Carrocero Chap…

Como puedo vincular un string a internet desde una variable string. ej.: LIGA="https://ayudaexcel.com/foro/search/?q=url&quick=1" Gracias

El título lo dice todo, si introduzco la formula en la barra de fórmulas, funciona, pero con la macro que sigue, no. ¿? Sub FórmulaSecuencia() ActiveCell.FormulaLocal = "=SECUENCIA(7;1;1)" End Sub Después de ejecutar la macro, en la barra de fórmulas aparece así: =@SECUENCIA(7;1;1) y no hace lo que se supone que tiene que hacer.

Buenas compañeros, un gran placer saludarles. Les escribo una duda que tengo, ojalá me puedan ayudar. ¿Cómo podría filtrar el valor de una variable que tengo definida en el código y a su vez tengo indicado su nombre en una celda de excel? Por ejemplo: La variable a=12 (en el código) Si escribo "a" en una celda como puedo poner el filtro para que filtre el valor "12" y no el valor "a". Es decir, que el criterio de filtro sea el valor de la variable a, que he indicado en la celda. .Range("A1:D200").AutoFilter field:=1, Criteria1:=(El valor de la variable a) Muchas gracias a todos por su valiosa ayuda. Un abrazo

Hola, Al cambiar de formulario lo hago asi F_Citas.Hide y abro el otro con F_principal.show El problema es que cuando cambio de formulario ejecuta el Userform.activate y me iniciliza el formulario, pero quiero que se quede como estaba al cambiarme. Espero haberme explicado. Gracias.

Insertar fotos de carpetas en celdas vacías Hola se podría Insertar fotos de una carpeta en celdas vacías de una tabla Ejemplo 1 Foto 22 33 Foto 4 Gracias, saludos

Estimadas/os, Junto con saludar, estoy recien empezando en este mundo del VB, y estuve trabajando en una macro que en función de una lista, empleo BUSCARV según vendedor y enviar al correo de forma separada con copia a jefaturas correspondiente. La macro sería la siguiente: Sub Enviar_Rango_a_Destinatario_de_correo() ActiveSheet.Range("AG2:AX14").Select For i = 1 To 13 ThisWorkbook.Sheets("RESUMEN").Range("X1").Value = i ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = ThisWorkbook.Sheets("Resumen").Range("X4").Value .Item.cc = ThisWorkbook.…

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.

Hola buenas tardes, Tal como comento en el titulo del tema, el problema que tengo es que cuando realizo un filtro de búsqueda e intento editar el registro o eliminar, estas funciones dejan de funcionarme. Solo funcionan si tengo todo el contenido e la tabla en el listbox. Cual puede ser el motivo? Es en el apartado de PERSONAL (Page7) Adjunto archivo, Gracias de antemano PaqNuevo.xlsm

Hola a todos. Necesito una macro para eliminar una fila entera en la que se repitan los datos en las columnas A y B. Envío un Excel con un ejemplo y he coloreado la fila que necesitaría se elimine. He encontrado código para eliminar si encuentra duplicados en una sola columna, pero no logro encontrar que el criterio sean dos columnas. Gracias de antemano. Moisés. Prueba.xlsx

Hola buenas noches, He estado investigando y no consigo realizar una búsqueda con los campos de mas de 10 columnas. El método que utilizo es el Additem y este solo me permite hasta un máximo de 10. Adjunto método y archivo: Private Sub txt_btfiltro_Click() numerodatos = Hoja9.Range("A" & Rows.Count).End(xlUp).Row ListPedidos = Clear Y = 0 For fila = 3 To numerodatos numeropedido = Hoja9.Cells(fila, 3).Value If UCase(numeropedido) Like "*" & Me.txt_pfiltro.Value & "*" Then Me.ListPedidos.AddItem Me.ListPedidos.List(Y, 0) = Hoja9.Cells(fila, 1).Value Me.ListPedidos.List(Y, 1) = Hoja9.Ce…

Hola colegas. Buenas Tardes. Espero se encuentren bien de salud. Hoy tengo un pequeño problema y voy a necesitar de su desinteresada y muy oportuna ayuda. tengo una Hoja (Hopa15 Plantilla) con la Plantilla de Cargo de mi Empresa, y necesito llevar esto a un Formulario para poder Integrarlo a otro Sistema (en VBA) que diseñé, pero no encuentro la manera. Voy a Explicarme: La Hoja15 es el Modelo de Plantilla que se lleva en mi Empresa y necesito: Primero: Que se muestre en el ListBox (LstPlantilla) Segundo: A través del Evento DobleClick del propio ListBox llamar a los TextBox cada uno de los registros. No pretendo Agregar, Insertar o Dar Alta a ningún reg…

Hola a todos:-Os adjunto un archivo e enlace de un video donde explico mi requerimiento.Se trata de comparar títulos de columnas que almaceno en una variable y comparar si coinciden con los que importo a la macro desde otra hoja. video concatenarSaludos y buen día a todos. MConcatenar.zip

Hola, dentro de mi formulario tengo un Multipage1. Como puedo saber cual es la página que se encuentra activa? (Page1, Page2 o Page3) Gracias por su apoyo. Saludos

Estimados(as) Junto con saludar y esperando estén todos bien, paso a exponer mi duda: como puedo copiar un rango de celdas, que conozco numericamente su fila y columna en otra hoja donde conozco el destino lo conozco tambien en forma numerica tambien Intento hacer esto ------>>>> worksheets(3).range(cells(valor1,valor2), cells(valor3,valor4)).Copy Destination:=Worksheets(2).range(valorx,valory) ?????? gracias

Los datos que tengo fijos son: ruta = ActiveWorkbook.Path & "\Archivos\" Archivo="2021-11-22-4-1" La extension del archivo No es fija, puede ser (XLS, DOC, PPT) pero solo hay uno con ese nombre Pregunta: Que instrucción debo de escribir para que abra el archivo Gracias

alguien tiene un excel con una formula para convertir de cielab a rgb

Que propiedad debo de utilizar en un ListBox de varias columnas para que me pongo tanto las líneas verticales y horizontales (cuadricula separador de filas y columnas)

Hola compañeros. Esta es mi primera consulta. Me presento, mi nombre es Jose. Necesito vuestra ayuda ya que estoy estancado en un proyecto y no se solucionarlo. Tengo un formulario, al que accede pulsando un botón colocado en la hoja 1, en el que hay un InkEdit/Textbox. La cuestión es que ese InkEdit/TextBox contiene bastante texto, motivo por el que le he añadido una barra de desplazamiento vertical. El problema es que, al pulsar el botón imprimir (que permite imprimir o guardar en pdf) tan solo se imprime la parte visible en la pantalla. Lo que no soy capaz de conseguir es imprimir todo el texto, tanto el que se ve en pantalla, como el que se ve al …

Hola buenas tardes La presente es para solicitar de su ayuda en el siguiente trabajo necesito hacer un reporte presupuesto en el cual tengo desde enero hasta diciembre , en la hoja "Presupuesto" es en donde se va a realizar el resumen de las hojas antes mencionada, donde cada hoja seria una columna, en cada hoja de los meses hay una columnas que se llaman Localidad y Unidad además que me lo debe de transformar según unas cuentas que están en la hoja de "Descripción Cuentas" Ejemplo la unidad GCIA.DE RECURSOS HUMANOS de la localidad de CCS me la cambie por AT010604 , en descripción va el nombre de los conceptos que están desde la columna "G" hasta la "AL" que se encue…

Private Sub Capitulos_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Set cat = Worksheets("tablas") t = Me.Capitulos.ListIndex + 1 r = 6 Do While cat.Cells(r, 3) <> "" If cat.Cells(r, 2) = t Then nc = cat.Cells(r, 3) Exit Do End If r = r + 1 Loop nomarea = InputBox("Cambio de Nombre a : " & nc, "Modificaciones: Areas de Seguimiento") If nomarea = vbNullString Then MsgBox "Cancel" Else 'Aqui me manda error Me.Capitulos.List(t - 1, 0) = nomarea MsgBox "Acepto" End If l = Len(nomarea) End Sub Quiero renombrar el Item del List Bo…