Jump to content

Antoni

Members
  • Content Count

    10,122
  • Joined

  • Last visited

  • Days Won

    548

Everything posted by Antoni

  1. Se puede hacer con el evento change de la hoja. Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False If Target.Address = "$S$17" Then Select Case Target Case 25 Rows("14:38").Hidden = False Rows("39:58").Hidden = True Case 30 Rows("14:43").Hidden = False Rows("44:58").Hidden = True Case 35 Rows("14:48").Hidden = False Rows("49:59").Hidden = True Case 40 Rows("14:53").Hidden = False Rows("54:58").Hidden = True Case 45 Rows("14:58").Hidden = False Case Else Cells.Select Selection.EntireRow.Hidden = False Range("A1").Select End Select End If Application.ScreenUpdating = True End Sub Revisa el adjunto. Libro1.xlsm
  2. Busca en Google: Sql server ADO connection string
  3. Actualizado a Windows última versión, Office 365 a última versión y si me funciona MSForms.DataObject.
  4. Sube tu archivo y cuando pueda le echo un vistazo.
  5. No conozco esa solución para desactivar la cinta del programador, salvo la que ya ha expresado Gerson, o sea, deshabilitandola de forma manual. En cualquier caso, si alguien es capaz de desproteger el proyecto VBA, es que tiene suficientes conocimientos como para desactivar cualquier otra solución. ¿Y para que quieres la cinta del programador si eres capaz de entrar directamente al editor de VBA desprotegiéndolo?
  6. Con ordenar previamente los datos por Elemento/Componente/Categoría, tema resuelto.
  7. 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
  8. LoadPicture("C:\Users\usuario\Desktop\AL DIA.jpg")
  9. 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. 👼
  10. 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
  11. 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
  12. 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
  13. 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.
  14. 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. 🙁
  15. Ya te comenté cual es la solución, basta con poner un poco de interés y probar Redimensionar formulario
  16. 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
  17. 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) .
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png