Buenas Tardes Tengo dos cadenas de texto, la idea es averiguar si todos los caracteres que contiene una cadena están en la otra, no importando el orden. Saludos Cordiales Pedro Cadenas de texto.xlsx

tengo un problema al momento de querer editar un dato en mi hoja de excel al ejecutar el boton de modificar me manda error 91 variable de objeto o bloque with no establecido ya le busque y no le encuentro adjunto el archivo el problema es el la pestaña AUSENCIAS espero me logren ayudar gracias!!!! Private Sub BtnEditarAUS_Click() Dim Rango As Range Dim NuevaFila As Long Dim Valor As String ' lo puse como string por que el dato de la columna A es 1-1 Dim mensaje As String mensaje = MsgBox("ESTAS SEGURO DE EDITAR LOS DATOS", vbQuestion + vbYesNo, "EDITAR DATOS") If mensaje = vbYes Then Set Rango = ThisWorkbook.Sheets("BASE.AUS.").Range("A1…

Buenos días, Me gustaría saber cómo declarar una constante pública disponible en todos los módulos, tal y como aparece en la siguiente imagen: Public Const SH1_NM As String = "CONEXIONES" public Const SH1_PW As String = "***" Sin embargo, este es el mensaje de error que me aparece: He estado consultando la documentación de VBA, y dice lo siguiente: Fuente: https://docs.microsoft.com/es-es/office/vba/language/concepts/getting-started/declaring-constants Así que no entiendo por qué me da ese error, cuando en la documentación oficial e incluso en los ejemplos presentados dice claramente que admite la clase Str…

Buenos dias por favor espero me puedan ayudar, deseo encontrar la ultima fila de una columna pero segun su valor por ejemplo: aqui encuentro la ulitma fila de la columna A (Esta columna contiene fechas) uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row pero quiero el resultado de la Ultima Fila segun la fecha que se determine * No puedo subir archivo en este mmento por que aun no renuevo mi suscripcion. Espero me brinden su ayuda. Muchas Gracias

Como hago para que los datos de un cliente que ya existe no se duplique en la base de datos cliente, pero que a la vez guarde datos específicos en en otra base de datos, como por ejemplo un pedido.

Hola colegas, buenas tardes. Espero se encuentren bien de salud. Estoy en otro "Proyectico " para tratar de facilitar mi nuevo trabajo, pero tengo un pequeño problema. En el FrmRetenciones yo inserté varios TextBox donde cada uno de ellos imprime el valor en la Hoja4 en las celdas F28 al F37 y todo esto funciona perfectamente para lo que necesito, pero se me ocurrió hacer otra cosa, dentro del Frame2 diseñé un combobox donde localizo e imprimo el rango de cuentas 460... que se encuentran en la Hoja2 (Auxiliar) que no es mas que el Clasificador de Cuentas de nuestra empresa, de acuerdo al numero de cuenta en el CmbID el TxtNombre me imprime el Nombre del trabajad…

Buen día. Estoy buscando ayuda para el siguiente macro: Si en el rango B13:L24 (Son casillas combinadas) no se tiene nada de texto. ocultar el rango B11:L24

Buenas tardes, expertos por favor me pueden ayudar tengo un formulario que fuciona perfectamente los botones nuevo, registrar, eliminar y salir; pero en cuanto modificar me funciona raro cuando selecciono una fecha dentro del combobox la "X" me imprime en la fila de los titulos, antes que insertara el control combobox si funcionaba el boton modificar perfecto, este codigo adjunte al en modificar: If cmbFecha.Text = Hoja1.Range("P4") Then Hoja1.Cells(Fila, 16) = "X" ElseIf cmbFecha.Text = Hoja1.Range("Q4") Then Hoja1.Cells(Fila, 17) = "X" ElseIf cmbFecha.Text = Hoja1.Range("R4") Then …

Buenas tardes. Necesito cargar estos CheckBox en una tabla pero solo si están "check". De no ser así la celda debería quedar vacía. Se entiende? Desde ya muchas gracias por cualquier ayuda o aporte. .Cells(NuevaFila, 33).Value = Me.Comp35.Caption .Cells(NuevaFila, 34).Value = Me.Comp85.Caption .Cells(NuevaFila, 35).Value = Me.Comp205.Caption .Cells(NuevaFila, 36).Value = Me.Comp206.Caption .Cells(NuevaFila, 37).Value = Me.Comp207.Caption .Cells(NuevaFila, 38).Value = Me.Comp329.Caption

hola, chicos, tengo un problema con mi proyecto de VBA en Excel, y estoy parado, y no avanzo, por muchas vueltas que le de no doy con la solucion, a ver si alguno de vosotros teneis la sabiduria que no tengo yo, y me echais un cable. Gracias de antemano Os expongo el codigo y os digo que tipo de error me salta y donde salta. Private Sub cmbActualizar_Click() Dim jugador As String jugador = Me.cmbNomFutbolistas.Value Range("B1").Select Do Until ActiveCell.Text = jugador ActiveCell.Offset(1, 0).Select If IsEmpty(ActiveCell) Then Exit Do End If Loop ActiveCell.Offset(0, -1).Text =…

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") …

Buen dia, tengo un problema, espero me puedan ayudar, Tengo un libro Proncipal el cual hace su apertura si el formulario de acceso lo permite, y se comunica con otros libros, el detalle es que nececito que los otros libros se puedan abrir solo si el libro principal esta abierto, si no lo esta que lo abra para poder accesar desde el formulario de acceso. *Libro Admon.xlsm - Formulario acceso ***Libro Poliza ***Libro Diario ***Libro Edo Financiero lo intenté llamando esta macro desde los libros Poliza, Diario, Edo Financiero Workbook - Open Private Sub Workbook_Open() Call Inicializando End Sub _______________________________…

Hola! Necesito que una Macro me haga lo del título: Imprima de forma consecutiva una hoja de datos donde una celda cambia la numeración y me arme UN SOLO PDF con todas las hojas mandadas a imprimir. Ya tengo armada una Macro que imprime en forma consecutiva, pero tengo dos inconvenientes: 1) Si mando a una impresora común me sale todas hojas impresas en una sola cara. Se desperdicia el doble de hojas. 2) Si mando en PDF para luego unir todos los archivos separados con algun otro software, tengo que darle imprimir a cada una de las impresiones y es muy tedioso. Por eso es que necesito una Macro donde me cree un solo PDF con todas las impresiones que se mand…

Saludos, quisiera que me ayuden respecto a un problema que tengo con un reporte. Tengo una tabla que contiene las siguientes donde almaceno la siguiente información: Fecha 1, pago 1, fecha 2, pago 2, fecha 3 y pago 3 Lo que necesito es que en un formulario en excel de consulta que tengo, en base a 2 textbox colocar el rango de fechas y haga la consulta en la base de datos de acuerdo a las columnas fecha 1, fecha 2 y fecha 3 y jale al listbox los datos de pagos 1, 2 y 3. Esta es mi macro, pero solo hace consulta con la fecha 1 Agradezco de antemano su apoyo Sub Consultacaja() Call Conexion.Abrir_Rs sql = "SELECT Correlativo, C_1, C_2, C_5, C_6, C_…

Buenas foro. Mediante scraping me logueo en una web a traves de internet explorer. Llego hasta un cuadro de dialogo (Pulsando un boton) para subir un archivo. Se me ocurre subir la ruta mediante la funcion sendkeys, pero como es tan volatil, me pregunto si no hay alguna funcion para subir, adjuntar al cuadro de dialgo el archivo

MUY BUENAS A TODO EL EQUIPO DE AYUDA EXCEL. Tengo el siguiente pedido de auxilio que no logro solucionar ya que estoy aprendiendo y leo todo lo que encuentro pero en esta ocasion no he encontrado info. el tema es el siguiente: En el formulario tengo 10 chechbox que cargan segun su condicion las correspondientes casillas txt y necesito cagar el txt Total presupuesto con la suma de todos aquellos txt con los que tenga sus valores cagados por el checkbox,cuando hago click en boton CargarDatos, he probado verios codigos para esta macro pero no obtengo resultado , Podran ayudarme con este codigo

Estimados Buen Día Pongo la consulta acá, en la anterior me equivoque de foro. Favor su ayuda con lo siguiente, he buscado soluciones, adaptando códigos de consultas anteriores, pero no logro dar con un camino. La web es la siguiente: https://www.patentechile.com/ Usar la siguiente patente "HKHW10" Hay tres opciones para consultar datos (Buscar vehículos, Buscar Motos, buscar rut) , los resultados los entrega en dos tablas (Información propietario y información vehicular). Ideal seria conseguir ambas tablas. No tengo libro pues no he tenido resultados positivos. De antemano muchas gracias …

Hola,Actualmente tengo una macro que me hace una comprobación de si un fichero está abierto o no.Al pasar estos archivos a una carpeta compartida via web he tenido que actualizar la ruta del archivoAl actualizar la ubicación del archivo y el nombre del archivo con la propia, funciona toda la macro excepto la funcion isfileopen." If IsFileOpen(UbicacionNombre) Then' Display a message stating the file in use.MsgBox "El fichero " & NombreFicheroEmpleados & "está en uso. Lo tienen que cerrar para poder continuar", vbCritical, "MENSAJE DE ERROR"Application.ScreenUpdating = TrueExit SubEnd If"UbicacionFicheroEmpleados = "https://bsi1870ext-my.sharepoint.co...1870_net/Do…

Buenas tardes, expertos en la plantilla que adjunto de prestamos, cuando calculo el prestamo y los registro en la hoja estado me registra de la mayor a menor los registro, esto me podrian indicar que debo hacer para que se registre de forma ascendente Por otro en la hoja resumen el porcentaje me muestra muy elevado, ejemplo si es 20% aparece 200% Por favor me puede ayudar, adjunto el archivo Planilla Prestamos 1.5Final.xlsm

Tengo este codigo el cual me recorre las filas evaluando la columna "E", en este caso evalua si en la columna tiene estos datos "Pajaritos No. 1" o "Pajaritos No. 2", y si es asi, que elimine la fila completa, pero al ejecturala se alenta mucho el proceos tarda como 1 min o aveces mas. Como puedo mejorar esto. Saludos Sub borrarFilas() Dim ultimaFila As Long Dim fila As Long ultimaFila = Hoja1.Cells(Rows.Count, "E").End(xlUp).Row For fila = 5 To ultimaFila If Hoja1.Cells(fila, 5) = "Pajaritos No. 1" Or Hoja1.Cells(fila, 5) = "Pajaritos No. 2" Then …

Tengo el siguiente codigo que me extrae datos del listbox a una hoja de excel. pero al pasar los datos que traen fecha me los coloca como mm/dd/aa y lo requiero como dd/mm/aa, cabe recalcar que los datos de las fechas estan en una fila especifica "solo en una fila". Como podria modifcar mi codigo para poder realizar el cambio. Set r = Sheets("RESUMEN") uf = r.Range("B" & Rows.Count).End(xlUp).Row + 1 'Worksheets("RESUMEN").Range("A4:M" & uf).ClearContents Dim Fcc As Date 'Declaracion de variable de tipo fecha Fcc = FormatDateTime(Now, vbShortDate) 'asiganos la fecha a la variable r.Cells(1, 1) = "REPORTE REGISTRO DE COMIDAS…

Hola colegas, buenas tardes, buenos días o buenas noches según el caso de ustedes y espero se encuentren bien de salud. Hoy necesito una ayuda más de ustedes. Hace más de un año hice un Proyecto (Conciliación y Disponibilidad Bancaria) con ayuda de algunos de ustedes que me es muy útil en mi trabajo diario y que funciona perfectamente, pero hubo en mi empresa un cambio de mando y el Jefe nuevo que entró quiere que le envíe por e-mail diariamente el reporte. Mis conocimientos no llegan hasta ahí, pero sé qué se puede hacer porque en algún momento recuerdo haber oído a Sergio Alejandro Campos hablar del tema. Ahora, ¿qué necesito? Este Proyecto trabaja con tres …

Buenas Foro. En un rango de celdas variable en columna A tengo rutas y nombres de archivos para adjuntar a un correo. Con .Attachments.Add adjunto un archivo y mi pregunta es como podria adjuntar los que tengo en el rango A con algun bucle o algo?

me surge la siguiente cuention que no logro resolver , al querer dar nombre a un Textbox del formulario se surge de que es ambiguo por ej: quiero poner txtFecha revisando c/u de los Text del folmulario no existe el txtFecha pero si voy a la pestaña orden de tabulacion si aparece, como asi tambien muchos otros que no estan , como borro estos nombres o cual seria la solucion.Desde ya mucha s gracias

Buenas tardes Tengo una hoja de excel donde necesito que en dos columnas haya una lista desplegable en cada una de ellas que me permita elegir varios valores a la vez. No sé si esto es posible en excel y si se puede hacer de alguna manera. Alguien me puede echar una mano? Muchas gracias.