Antoni

Tienes mal la sintaxis de la propiedad picture del botón de alternar: Private Sub ToggleButton1_Click() If ToggleButton1 = True Then ToggleButton1.Picture = LoadPicture ("C:\Users\usuario\Desktop\AL DIA.jpg") Else ToggleButton1.Picture = LoadPicture ("C:\Users\usuario\Desktop\VENCIDO.jpg") End If End Sub

LoadPicture("C:\Users\usuario\Desktop\AL DIA.jpg")

Archivo Excel, no imágenes.

¿¿¿ ???

¿Y el archivo?

No hay solución para lo que pides, unifica el Stock en una sola hoja y no tendrás problemas. Si necesitas saber el stock por marca y editorial, usa autofiltro/filtro avanzado. Paz y amor. 👼

Hola foreros: Como esto está demasiado tranquilo últimamente, he decidido haceros la pregunta del enunciado de este post. Como miembro habitual del foro de macros he observado que este se está convirtiendo en un desfile de media docena de consultantes que preguntan y repreguntan lo mismo una y otra vez, todos sabemos quienes son, pero no dudamos en seguir contestándoles a pesar de ver que solo persiguen que resolvamos sus problemas con una herramienta que desconocen y, que según parece, no tienen el más mínimo interés en esforzarse en conocerla. Los cinco últimos consultantes acumulan la friolera de 1.470 respuestas en su historial de consultas. Esto va más allá de alguna consulta puntual sobre dudas que puedan surgir en el desarrollo de un proyecto. Propongo a la dirección del foro que de alguna forma se ponga punto final a esta práctica, ¿como?, quizás impidiéndoles nuevas consultas por un tiempo, o cobrándoles por ello, o limitando el número de respuestas de sus consultas, no se, pero algo hay que hacer. Repito, ¿Vale la pena seguir en el foro para esto?. Ahí lo dejo. Saludos

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Target.Offset(0, 1).Resize(1, 3).ClearContents End If End Sub

El adjunto, se adapta en un 90% a lo que estás buscando, o eso es lo que yo he entendido. Permite cualquier número de TEMAS (1 hoja por tema), cualquier número de PREGUNTAS (1 fila por pregunta) por tema y cualquier número de RESPUESTAS (1 columna por respuesta) por pregunta, además permite definir las respuestas como OPCIÓN o CASILLA, o sea, una repuesta por pregunta o varias. Solo faltaría habilitar una opción para elegir cuantas preguntas ha de tener el TEST y generarlas de forma aleatoria. Abre el adjunto y pulsa sobre el botón CREAR TEST. TEST.xlsm

Estoy en ello, déjame que busque en el "cuarto de los trastos", si subieras un ejemplo concreto del tipo de test. ¿De donde salen las preguntas y las repuestas?, ¿Están por temas? ¿Las opciones de respuestas son fijas?¿Solo admiten 1 respuesta válida?¿De cuantas preguntas constaría cada examen?, en fin concreta un poco más lo que quieres, y en contra de la opinión de Luis, no creo que necesites Access para esto.

Parodiando a mi amigo Haplox, me rindo.

El archivo que he subido a Mega, hace lo que has pedido, al hacer doble-click en el textbox se muestra el combobox y se visualiza el segundo textbox, al hacer doble-click en el combobox se oculta este, se visualiza de nuevo el textbox y se oculta de nuevo el segundo textbox, de acuerdo con las imágenes que has adjuntado. A ver si te aclaras. 🙁

Ya te comenté cual es la solución, basta con poner un poco de interés y probar Redimensionar formulario

Sub QuitarTotales() Application.ScreenUpdating = False For x = Range("E" & Rows.Count).End(xlUp).Row To 2 Step -1 If UCase(Replace(Range("E" & x), " ", "")) Like "TOTALES*" Then Rows(x).Delete Next End Sub

Te dejo esta UDF: Function PROMEDIAR(Número As Range) As Long Dim Desde As Long, x As Long Dim Veces As Long, Total As Long '-- Desde = 0 For x = 2 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & x) = Número Then If Desde > 0 Then Veces = Veces + 1 Total = Total + x - Desde End If Desde = x End If Next If Veces > 0 Then PROMEDIAR = Int(Total / Veces) End Function Pon la macro en un módulo y aplícala como una fórmula: =PROMEDIAR(Celda) .

zipooiii dijo:

¡Feliz año nuevo! Revisa el adjunto. Eliminar textbox

Sube el archivo con el formulario, con imágenes no hacemos nada. Al escribir/contestar una consulta, en la parte inferior del cuerpo del mensaje está la opción de adjuntar archivos Arrastra los ficheros aquí para adjuntarlos, o escoger ficheros... Tamaño total máximo 0,1MB Si tu archivo es superior a 100Kb súbelo a un servidor de intercambio (Dropbox, Mega, Google drive,......) y adjunta el enlace público.

Sube un archivo y pon un ejemplo de lo que tienes, lo que quieres y como se llega a ello.

Esta macro envía un correo a partir de la fila 1 de la hoja columnas A:E, a ver si te vale: Sub EnviarEmail(): On Error Resume Next Set OutlApp = GetObject(, "Outlook.Application") If Err Then Set OutlApp = CreateObject("Outlook.Application") '-- Destinatario = Range("A1") Copia = Range("B1") Asunto = Range("C1") Cuerpo = Range("D1") Adjunto = Range("E1") '-- With OutlApp.CreateItem(0) .To = Destinatario .Subject = Asunto .CC = Copia .Body = Cuerpo .Attachments.Add Adjunto .Display '.Send para enviar de forma automática End With End Sub

Una imagen no proporciona la información necesaria para evaluar tu consulta. Para milagros hay que ir a Lourdes, sin el userform no hay nada que hacer.

En un userform, Me.Height controla el alto y Me.Width el ancho. Sin ver el userform es difícil decirte algo más.

¡Feliz año nuevo a todos! Te dejo el archivo con esta UDF: Public Function SOLO_NUMEROS(Texto As Range) As Variant For x = 1 To Len(Texto) If IsNumeric(Mid(Texto, x, 1)) Then SOLO_NUMEROS = SOLO_NUMEROS & Mid(Texto, x, 1) End If Next End Function DEJAR SOLO NUMEROS.xlsm

Antoni, me lamo Antoni, no Antonio.

¡ QUE TODO SE REDUCE A QUE EL NOMBRE DEL ARCHIVO CONTIENE CARACTERES INVÁLIDOS (,:+/$@#,......) ! ¿TU TE LEES LAS RESPUESTAS QUE TE DAMOS?