Hola estimados foreros de Excel, una consulta he tomado un formato y/o sistema de aqui de este mismo foro hace unos dias hoy recien probando este mismo formato le hice algunas modificaciones pero no me toma el campo de en este caso plataformas para realizar una búsqueda, me explico en breve: 1) En el boton Reporte general, escribo el rango de fecha de busqueda, entonces le he agregado un nuevo textbox para busque tambien el metodo por plataformas, osea si encuentra en las fechas 15/08/2019 al 29/08/2019 plataforma mexico debe mostrar los datos ingresados en ese rango de fechas con existencia de plataforma mexico, si hay otras plataformas no mostrarlo. 2) En el b…

Buenas, me gustaría saber si es posible obtener el nombre o la información de un icono que está en un subitem de un listview. Como veis en la imagen que os adjunto, en el listview se carga los dias de un mes y cada día tiene asignado un icono cuyo nombre es el número.jpg y en el listimage el número se corresponde con su index. Al seleccionar una celda, me gustaría obtener el nombre o el index del icono que contiene. itemSel = ListView1.SelectedItem itemSel..SubItems(2).Icon.name o ActiveIcon,index o algo por el estilo

Hola necesito armar una macro en un Excel que consta de 2 hojas: Primera Hoja ( carga/copiado de datos): En esta hoja al seleccionar en la columna selección con una "X" que copie y pegue este tema en la segunda hoja en la referencia identificada con el mismo nombre ej: al seleccionar con una "X el nombre del participante lo copie y lo pegue en la hoja 2 en la referencia participantes. Y así sucesivamente que cargue los datos seleccionados con una "x" en los objetivos, Temas tratados y Conclusiones y Empresa. Siempre solo si se marca con una "X" el tema que se quiere pegar en la segunda hoja. Aclaración: obviamente la idea es marcar en un mismo tema eJ. Parti…

Saludos @JSDJSD espero este bien Tengo un caso similar al que le plantearon en ta pregunta: En concreto seria posible que al escoger cualquiera de los códigos alfanuméricos que se muestran en el ComboBox1 automaticamebte se efectue la búsqueda y en el ListBox1 se muestren exclusivamente los datos que correspondan con dicho código..? Mucho le sabre agradecer la ayuda que me pueda dar RCI PRUEBA.xlsm

Saludos amigos del foro, como se podría encontrar el numero de diferencias que hay en los datos entre una columna y otra? En la columna Test constaran los aciertos o los fallos con respecto a la col Ref, en este caso me gustaría encontrar el numero de fallos o diferencias y se pueda ver en la celda F6 Teniendo este dato ya podría calcular el porcentaje de acierto o fallo y mostrarlo en otras celdas Subo el archivo para que lo vean Gracias de antemano Numero de Diferencias.xlsm

Cordial saludo, y agradecimiento de antemano por su ayuda. Tengo el siguiente código para imprimir varias hojas desde un Form, pero presenta error : ' error 21470224773 (8007007b) Option Explicit Private Sub CBRegistro_Click() Dim b As Boolean Dim Ruta As String Dim Nombre As String Dim paso2 As Boolean Nombre = UCase(InputBox("IMPRIMIR INFORME - ID DE ACCESO - Guardar una copia de los Registros de la Prueba ejecutada")) paso2 = False Select Case Nombre Case "PRIMERO" If UCase(InputBox("Introduce tu clave de acceso")) = "PRIMERO2020*" Then paso2 = True Case "CLAVEDOS" If UCase(InputBox("Introduce tu clave de acceso…

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

Hola a todos, tengo una duda a ver si alguien puede ayudarme, Tengo una hoja de cálculo vinculada a una base de datos online (concretamente con cotizaciones de Bolsa en tiempo real), y la hoja va haciendo unos cálculos. Mi problema es que si estoy haciendo otra cosa, no me entero de cuando las cotizaciones superan las esperadas. Es decir que por ejemplo cuando la columna D (que se actualiza automáticamente cada minuto a online) supera a la cantidad de la cantidad de la columna B (precio actual supera al previsto y por lo tanto al de venta) que me avise de ello con algún beep sonoro o música… Mi pregunta es: ¿hay alguna forma de que Excel haga esto? Muchas gracias. B…

Buenas tardes!! Mi nombre es Sol, soy nueva en el foro, asi que mil disculpas si me equivoco en la explicación. Tengo una macro con visual que saque de esta pagina (Puedo usarla no?) la cual me sirvio mucho para mi trabajo. El tema es que cambie algunas cosas y quedo bien, pero tengo un textbox donde necesito que cuando el usuario ingrese la fecha, solo le deje ingresar la fecha de hoy o la de ayer. Si quiere ingresar la fecha de antes d ayer o alguna fecha futura que salga un mensaje de error. La verdad que intente, mi idea era poner: Private Sub TextBox3_Change() If TextBox3.Text <> Date Or Yesterday Then MsgBox ("No") End If End Sub Pero directamente …

Buenos dias Tengo un problema con mi código que no acabo de conseguir realizar que me filtre por los dos datos requeridos. A continuación explico las partes del código txt_equipo: se cargan los datos al realizar la búsqueda en el cbo_not, estos datos son iguales que la columna 1 del tabla equipos cbo_tarea_prin: los datos los recoge de la hoja7 . este combo lo tengo como evento clik , estos datos están en la columna 2 de la tabla equipos Lo que necesito es que en el cbo_tarea_prin me aparezcan los datos de la columna 2 que concuerden con los de la columna 1 y que después me los muestre en el listbox1. Espero puedan ayudarme. Gracias …

Buenos días, Estoy ejecutando una macro, y en un momento dado necesito guardar los valores en una matriz de dos vectores, es decir mi_array (x,y). El problema reside en que a priori desconozco el tamaño de la matriz, pero puede ser muy grande (varios miles (o cientos de miles) en la posición x). Si le defino el tamaño al principio del proceso, por ejemplo mi_array (1 to 1000, 1 to 1000), funciona el proceso de después pero llega un momento en que se queda fuera de rango porque necesito más posiciones. Si la dimensiono más grande por ejemplo mi_array (1 to 10000, 1 to 10000) entonces desde el principio me índica Memoria insuficiente (el límite para el error está apro…

Buenas tardes, Tengo un problema con macros en visual basic para excel y que, por más que mire, no consigo solucionar. Tengo el siguiente código: Option Explicit Dim oConexion As ADODB.Connection Sub ConnectDB() On Error GoTo err Set oConexion = New ADODB.Connection oConexion.Open "Provider=SQLOLEDB.1;Password=bandoiberica2015b;Integrated Security=SSPI;Persist Security Info=True;" & _ "User ID=Administrador;" & _ "Initial Catalog=BANDOIBERICA_2015;" & _ "Data Source=bandoserver3" 'ip o nombre del servidor 'MsgBox "Connexió establerta.", vbInformation, "1" Exit Sub err: MsgBox "E…

Buena Tardes, Les escribo en esta oportunidad, debido a que estoy teniendo problemas con una macro de intersección de rangos de fechas el cual realice para que cumpliese con mis necesidades, el cual es que me diga si chocan en sus periodos de vacaciones el supervisor y el tablerista, así como los turbinista_1 y turbinista_2 entre si y con el tablerista; y por ultimo los turbinaista_1, turbinista_2 y Operador Auxiliar de Turbina (op. aux. tur.). El problema que estoy teniendo es que haga lo que haga siempre me aparece la ventana que dice: "Coinciden Tus Vacaciones Con la Segunda Fracción del Tablerista" o "Coinciden Tus Vacaciones Con la Segunda Fracción del Supervisor…

Hola, buenas tardes, hacía tiempo que no escriía por el foro. Tengo una macor que da formato a unos valores de una hoja Excel, mi problema es que intento conservar el color del fondo de "sólo" las celdas con determinado height y no soy capaz de hacerlo. El código que estoy intentando usar es: ... If Range("a6").EntireRow.RowHeight = tamanio Then celdaActual.Interior.ColorIndex = 2 End If ... Podéis echarme una mano. Gracias. Saludos.

Hello everyone as always when it comes to evaluating by column; I lose myself in a glass of water. My problem is this: 1) In Column (A2: A200) I should enter dates 2) I would like you to write me only the day of the week of that date every time I enter the dates in the column (B2: B200). 3) While in column (C2: C200) he wrote me the same thing as in column (B) but taking only the first letter. As for example: If in Column (B) it is written (Monday) in Column (C) it should only show the letter (L) that's all! Thanks as always for all the help you want to give me about it. Greetings from Maurizio Modificare_Giorni_Set_e_Giorni_Set_Solo_Prima_Lettera.xlsm

Buenas tardes, Necesito que alguien me ayude a generar una macro en la que si cumple dos condiciones me dé un texto en otra celda. Pongo un ejemplo, Una condición es que del dato que hay en la celda A1 (04E100011EF) compruebe el “1000” y la otra condición es que del dato que hay en la celda B1 (2497 Prueba macro) compruebe la palabra “prueba” y si cumple esas dos condiciones me ponga “correcto” en la celda C1 y si no cumple esas condiciones ponga lo que pone en la celda B1. Gracias. Un saludo

Hola, De que forma puedo eliminar las filas de las celdas que tienen un texto? Me explico, estoy usando este codigo SuB test() [H:H].Selection.SpecialCells(xlCellTypeConstants, xlTextValues).Select Selection.EntireRow.Delete End Sub Y me da error, he buscado y me parece que no se puede usar así, creo entender que no se pueden combinar estas dos cosas (xlCellTypeConstants, xlTextValues) La pregunta es. Como puedo seleccionar/eliminar las filas que tienen constantes texto. Gabriel.

Buenas tardes, gusto saludarles. Tengo un problema con el código que del Modulo 2, cuando lo pongo a correr se detiene en la línea: {ActiveSheet.Range("$X$5:$BD$357").AutoFilter Field:=2, Criteria1:="PC1"} , y me lleva al Modulo 1, la verdad no encuentro porque se da el error. Les agradezco si me pueden ayudar. Saludes desde Costa Rica, Nota: No me dejó subir el archivo, tal vez se lo pueda enviar por correo.

Buenos días, estoy intentanto hacer un filtro avanzado en vba y no consigo que funcione. Estuve viendo un ejemplo que solucionaba Antoni pero ni así... Os paso el código para ver si podeis darme un poco de ayuda. Lo que me gustaría conseguir es un autofiltro avanzado donde pueda filtra las filas entre dos fechas que yo introduzca con un "inputbox" Sub filtrarfecha() Dim FechaIni As date, Dim FechaFin As date FechaIni = InputBox("Ponga fecha inicio") FechaFin = InputBox("Ponga fecha fin") ActiveSheet.Range("a5:a13").AutoFilter field:=1, _ Criteria1:=">=" & FechaIni, _ Operator:=xlA…

Hola amigos. no es el mejor titulo para exponer el problema que os trasmito, pero en el fichero que os adjunto creo haberme explicado para esta peticion. Un saludo y muchas gracias movimiento de celdas con sus importe.zip

la idea es que busque los numeros de 3 cifras en aquellos numeros que estan 4 cifras como lo muestro en el ejemplo experimento2.xlsm

Hola a todos, mi nombre es Maurizio y mi problema es este: Para abrir un formulario de usuario en el nivel de la hoja de trabajo sin utilizar los botones Vari; Normalmente utilizamos este Código: Private Sub Worksheet_SelectionChange (ByVal Target As Range) UserForm1.Show End Sub Y hasta ahora todo está bien! Ahora mi pregunta es qusta: Deseos ¿Sería posible asegurarse de que el formulario de usuario1 no se abra si un determinado evento es positivo? Permítanme explicar: creé en una forma de usuario la posibilidad de bloquear la modificación de los datos ingresados en una hoja de laro (Hoja1) al mostrar una forma de usuario para ingresar una cont…

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, estoy queriendo completar una columna (Comision) desde una determinada fila hasta otra, con un determinado valor. En el archivo que les dejo, seria: en el formulario, seleccionar desde que registro (Registro 3 por ejemplo) hasta que registro (Registro 9 por ejemplo), y en todas esas filas colocar la comisión mediante el textbox. Cada registro colocado en los combobox tienen que estar incluidos, es decir que si selecciono el Registro 9, esa fila también tiene que cambiar. A su vez, quiero que si desde el primer combo selecciono el Registro 3, en el segundo combobox no aparezcan los registros anteriores, es decir Registro 1 y Registro 2. …

Hola amigos, tengo un problema que no se resolver con macros. Necesito encontrar la fecha exacta en que un trabajador hace cada trienio en su historial de fechas de trabajo. Además son periodos discontinuos. Os subo un archivo en el que se ve los periodos trabajados y el total de años, meses y días trabajados. Pero a la hora de saber el día que hace el trienio tengo que contar con un calendario en la mano. Y me gustaría que cuando ingrese el último periodo de trabajo (si suma 3 años ) me dijera la fecha exacta. Saludos y gracias. Antigüedadmio.rar