tengo una pregunta de como automatizar la funcion de buscar objetivo con fomrula o alguna forma mas comoda pero sin botones tengo esto epro no funciona aver si alguein me ayuda Option Explicit Private Sub Worksheet_Calculate() automatizar End Sub Private Sub automatizar() Static tb As Boolean Dim i As Long With hoja 1 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Round(.Cells(i, 3).Value, 6) <> 0 And Not tb Then tb= True .Cells(i, 2).Value = 0 .Cells(i, 3).GoalSeek Cells(i, 4).Value, ChangingCell:=.Cells(i, 2) tb = False End If next i End With End Sub

Buenos días, Tengo un problema, me gustaría modificar un gráfico de excel que ya existe automáticamente (lo tengo que hacer para 26 hojas ya existentes y cada semana sale una nueva..), me gustaría saber como cambiar su tamaño y posición, reorientar las etiquetas de datos y añadir el eje horizontal, todo ello a través de una macro con VB. He probado varias cosas y ninguna dio resultado.. Muchas gracias de antemano

Hola, Me estoy volviendo loco tratando de hacer una macro, que en realidad es muy sencilla. Simplemente se trata de una columna con fechas separadas por ptos. (ejemplo 01.01.2021) que la copie en otra columna separada por barras , con formato 01/01/2021. Sin embargo, en alguna fechas me cambia el orden de los meses y los días, y no sé como solucionarlo. Sucede entre otras fechas el 12.07.2021 que lo transforma en 07/12/2020 Pongo una hoja de ejemplo. Gracias de antemano !EJEMPLO.xlsx

Buenas tardes grupo Recuro a usted a ver si alguno me puede ayudar con un problema que tengo. Tengo mi configuración regional en español (los campos numericos el searador de desimales esta con una coma "," ). el problema surge cuando quiero enviar datos al SQL que esta en ingles que el separador de desimales esta con un punto "." llevo semanas intentando con varias alternativas y ninguna me funciona todas dan error [microsoft][ODBC SQL Server Driver][SQL Server]error converting data type varchar to numeric Algunas de las alternativas que he probado son las siguientes. Sql = Sql & "'" & Format(ActiveCell.Offset(0, 8), "[en-US]…

Tengo el siguiente código: Private Sub CommandButton1_Click() Dim xCodigo As String, xApDcto As String Dim xFila As Integer, xDcto As Integer, xLargo As Integer Dim resp As Boolean On Error Resume Next xCodigo = frmConsulta.TextBox1.Value xLargo = Len(Trim(xCodigo)) If xLargo = 1 Then xCodigo = "000" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 2 Then xCodigo = "00" & xCodigo: frmConsulta.TextBox1.Value = xCodigo If xLargo = 3 Then xCodigo = "0" & xCodigo: frmConsulta.TextBox1.Value = xCodigo Hoja1.Select Range("A2").Select resp = Cells.Find(What:=xCodigo, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows…

buenas tengo tres problemas 1- En los formularios "FACTURA SIMPLE" y "FACTURA MIXTA" en el combobox de categoria, si se pone una letra que no esta en la hoja de codigos por ejemplo "Y" me dispara un error hacia la linea de codigo: Me.ICodigo = nombre.Offset(, -1)[/CODE] es etico resolver el problema poniendo este codigo?: [CODE]On Error Resume Next[/CODE] no es muy elegante... 2- En la parte de modificacion y eliminacion de datos al dar los cambios sea modificar los datos o eliminar los datos en la hoja de "REGISTRO" que solo se necesita mostrar los datos desde la columna "B" hasta la "Q" extra;amente inserta datos desde la columna "R" hasta la "U" cosa que no…

hola a todos. necesito hacer un macro al cual le ingrese 6 números del 0 al 9 y de esos 6 haga combinaciones con 3 números. que a la final serían 60 combinaciones de los 3 numeros. muchas gracias...

Buenas tardes tengo un formulario donde se carga un plan de cuentas, los combobox se eligen y cargan en los textbox el index según el criterio (esto lo tenia pensado para que el rango que se elige en los combobox se visualicen en el listbox, como un filtrado por dos condiciones y que borre solo los que no están en el rango), por ejemplo si pongo en inicio 20 y en fin 15 en el listbox se visualicen 20,201,20111,201111,15, he intentado según el index pero al parecer no es como lo estaba planteando, por favor me pueden ayudar, les dejo el archivo de ejemplo... EjemploAyuda.xlsm

Buenas a todos, Necesito ayuda para una macro que no tengo forma de hacerla. Tengo una tabla con 5 columnas, sus encabezados se llaman “A”, “B”, “C”, “D” y “E”. Busco datos en las columnas A B C y D, y cuando coincidan me den el dato que hay en la celda correspondiente de la columna E. Muchas gracias de antemano.

Buenas, Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito. Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add. Adjunto la macro que encontré por si sirve de ayuda. Sub GeneraMiniArchivoDeTexto() Dim myfile As String, mytexto As String myfile = ThisWorkbook.Path & "\" & _ Cells(Selection.Row, "a") & ".txt" If Dir(myfile) <> "" Then Kill myfile mytexto = Cells(Sel…

Saludos espero me puedan ayudar, he intentado todo y no lo consigo. estoy tratando de descargar datos de una web la cual es "post" y posteriormente es "get" redirecciona a otra pagina, solo lo he logrado con el navegadro explorer pero el detalle que es muy tardado ya que son 170mil datos y con explorer es como si fuera navegando, abrir explorador, poner url, bucar las etiquetas donde se hace la cosulta y despues click en un boton, esperar a que cargue la pagina y extraer los datos de esa consulta. me gustaria poderlo hacer mediante xmlhttp anexo link de la pagina https://serviciosfinanzas.villahermosa.gob.mx:8800/serviciosfinanzas/dp/busqueda…

Buenas, Estoy haciendo un macro para que se generen unos informes diarios, semanales y mensuales. El problema está en que busco que cuando el que llenara el userform no le falte un combobox o un listbox este emita un mensaje, pues esto ya lo e logrado pero cuando lo emite quiera saber cómo hacer que cuando estén completos los combobox este se limpien, empecé a utilizar empty pero realmente no se me ocurrió nada, a su vez quisiera saber si hay alguna forma de hacer lo siguiente: Este formulario es para un personal de 3 turnos y cuando elijan el personal del 3er turno que solo aparezca este en el listado. Anexo documento. Saludos y gracias de ante mano. Libro1(1).rar

Estimados amigos... Hoy vengo con una interrogante, donde puedo conseguir una macro para obtener los FaceId ¿? He probado muchas de la red, y de todas las que he probado dos o tres de ellas se detienen en ActiveSheet.Paste, y no entiendo el motivo. Este es una de las macros que se detiene en ActiveSheet.Paste: https://excelforo.blogspot.com/2014/12/vba-listar-los-iconos-que-corresponden.html Espero me puedan echar una mano con esto. De preferencia macros, no me gusta mucho la idea de instalar Add-in por desconfianza, a no ser que ustedes la recomienden. Saludos.

Buenas tardes, Cordial saludo, espero se encuentren muy bien. Tengo el siguiente problema con una macros y quisiera saber como solucionarlo: Estoy construyendo un lector de textos que agregue "carácteres especiales" cuando se dectecta en el texto una palabra con formato bold (Negrita). Igualmente me gustaría para Subrayado (Underline) pero no puedo continuar de este paso. Tengo marcado como comentario la parte del codigo que me manda error. Actualmente la macro lee bien el texto pero no reconoce el formato bold. Anexo el documento, captures y el código por si alguien tiene alguna idea para solucionar el problema. Muchas gracias a todos! …

Buenos Días: Alguien me podría ayudar para guardar un archivo completo con una macro, tenía para guardar una hoja pero quiero guardar todo el archivo. Option Explicit ' Sub EXCELeINFOGuardarHojaComoArchivoNuevo() ' Dim VentanasProtegidas As Boolean Dim EstructuraProtegida As Boolean Dim NombreHoja As String Dim Confirmacion As String Dim NombreArchivo As String Dim GuardarComo As Variant Dim Extension As String ' On Error GoTo ErrorHandler ' VentanasProtegidas = ActiveWorkbook.ProtectWindows EstructuraProtegida = ActiveWorkbook.ProtectStructure ' If VentanasProtegidas = True Or EstructuraProtegida = True Then MsgBox "No se puede ejecutar el comando c…

Solicito su ayuda para ver si es posible hacer una macro para que al ingresar en la celda b2 por ejemplo el numero 9, en el rango a:a600 se repita 9 veces el 1, despues 9 veces el 2, 9 veces el 3... es decir de la fila 1 a la 9 que haya 1, de la 10 a la 18 que haya 2 . Desde ya muchas gracias, y si es posible hacerlo mediante una formula tambien me va servir pero yo no pude hacerlo de ninguna de las dos formas

Hola a todos, tengo una duda que no consigo resolver. Quisiera poner un visor pdf en una hoja de mi formulario, por el foro y demás sitios he visto que lo hacen pero con la opción de que se pueda elegir cualquier archivo, yo necesito que sea un visor fijo, es decir, que se me cargue en initialize y pueda ver un pdf fijo. Este pdf es de consulta para rellenar una serie de datos dentro del formulario, por eso necesito que sea fijo...además, este pdf tiene que estar en la carpeta del excel.... Yo he probado con lo siguiente: Webb.Navigate2 (ThisWorkbook.Path & "\*.pdf") "Webb" es el webbrowser. Y con algunas variaciones más, pero me sale "Error en el método 'Navigat…

Hola a todos de antemano gracias por los aportes y ayudas, y felicitarlos por esta web que ha sido de gran ayuda para quienes estamos aprendiendo excel y macros. Adjunto archivo. Con datos mínimos, deseo crear una Planilla de Control de Cobros, acorde al DNI de C/Cliente, No. de Préstamo, y Modalidad de Pago, Diaria, Semanal, Quincenal, Mensual, tanto para Kapital como para Intereses, el método de calculo del interés es Simple, cuota e intereses fijos e iguales para cada período, valga la redundancia. Gracias a todos Javishalom Control Cobros Clientes K Int2.rar

se trata del siguiente formulario que inserta los datos de un empleado mecanico en una tabla de manera progresiva y descendente, donde se pone el nombre del mecanico y la actividad que realizó, las actividades estan predispuestas o nombradas por los checkbox 1,2, y 3 de los cuales al menos uno debe insertarse cuando le de click al boton de "insertar". help:worked_till_5am::worked_till_5am::worked_till_5am::worked_till_5am:, necesito validar mi formulario para que el usuario al menos escoja un check antes de que se graben en la tabla los datos de excel con la salvedad que tambien pueda escojer dos o todos de los tres que existen. He intentado pero como que no encuentro l…

Buenas tardes, ¿Es posible guardar un número sin separador de miles? Es decir si ingreso en un textbox el número: 15080 que en la planilla me lo guarde como 15080 y no como 15.080 es posible quitarle el punto (.)? Si ingreso por ejemplo 1000000000 --> me lo guarda así: 1.000.000.000 pero debería guardarse 1000000000 Muchas gracias.

Buenas noches, parecera para algunos sencillo pero a mi el tema me esta trasnochando por mis conocimientos limitados en macros. Quisiera programar una macro que me subtotalice en las celdas vacias de la colmumna y de ahi continue a la siguiente y asi en adelante. Adcional como puedo hacer que la macro determine cuando parar y totalizar?. Gracias de antemano a quien me pueda hechar una mano con el tema. Adjunto un excell para ver si es clara mi solicitud. Ejemplo.xls

Hola amigos: acudo nuevamente solicitando su ayuda, este es mi caso: he estado trabajando en un proyecto utilizando listview en un userform, mi equipo tiene instalado windows 7 de 32 bits. utilizo excel 2010, la version del listview que utilizo es version 6.0(SP6) ya tengo registrado los componentes mscomct2.ocx y mscomctl.ocx en la carpeta \system32 por un problema que tuve. con mi equipo que tuve y que fue formateado, tengo el problema que cuando abro mi aplicacion en otro equipo no funciona, algo que me parece extraño pues antes de ser formateado funcionaba en cualquier equipo, incluso en equipos que tienen excel 2007 ahora al abrirlo en otro equipo me envia el mensaj…

Hola tengo 2 archivos pero al tratar de correr la macro como complemento me da error 424. este es el código, el error esta en esta linea STOCK.AutoFilterMode Then, me sale error 424 no encuentra el objeto por que según no encuentra el STOCK que es una hoja del archivo que abrió. por su ayuda gracias Dim FILE As String FILE = ThisWorkbook.Path & "\" & "STOCK.xlsb" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(FILE) Then Workbooks.Open Filename:=FILE Else MsgBox "El archivo " & FILE & " no existe.", vbCritical, "ARCHIVO INEXISTENTE" Exit Sub End If If STOCK.AutoFilterMode Then …

Que tal amigos de ayuda excel , bueno me dirijo a ustedes porque tengo un problema con la sentencia if then dentro de un for , lo que pasa es que comparo dos columas lista1 que contiene proveedores (donde hay repetidos) lo comparo con lista2 donde hay proveedores pero unicos , lo que hago es comparar la primera celda de la lista2 con todas las celdas de la lista1 y si son iguales que me copie los datos de celdas especificas que son adyacentes a la encontrada osea si lista2 j10 = lista1 b10 me copia las celdas de c10 y f10 y asi con cada celda que sea comparada, pero lo que pasa con el if es que al primer dato que encuentre verdadero osea cuando la comparacion es igua…

Hola amigos Quisiera que me ayuden para crear un macros en donde se pueda ingresar datos y generar un reporte con los últimos datos que se ingresaron, con la hora y fecha. estoy adjuntando un ejemplo de como seria. Muchas Gracias PRUEBA.rar