Saltar al contenido

Antoni

Miembros
  • Contador de contenido

    9722
  • Unido

  • Última visita

  • Days Won

    475

Sobre Antoni

Información de perfil

  • Sexo Hombre
  • Localización: Galicia (UTC+1) Excel 2016

Configuraciones

  • Campo que utilizas como separador de argumentos ;

Visitantes recientes del perfil

El bloque de últimos visitantes está desactivado y no se puede mostrar a otros usuarios.

  1. Añade esto a tu código: Private Sub ComboBox1_Change(): CalcularVencimiento: End Sub Private Sub TextBox1_Change(): CalcularVencimiento: End Sub '-- Private Sub CalcularVencimiento() If IsDate(TextBox1) And Not ComboBox1.ListIndex = -1 Then TextBox2 = CDate(TextBox1) + Val(LTrim(ComboBox1)) End If End Sub
  2. Antoni

    Calendario minimalista

    Version 1.0.0

    2 downloads

    Es un calendario al uso, sin misterios. Ya sabeis de mi debilidad por los calendarios, en este caso la gracia está en el código VBA. Os recomiendo que lo reviseis y os dareis cuenta que se puede hacer click en un label sin evento individual y sin módulo de clase. Calendario mínimo.xlsm
  3. Antoni

    Fecha de modificación

    De eso se trataba ¿No?
  4. Antoni

    Fecha de modificación

    No se si e he entendido, pero prueba así a ver que tal: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 17 Then If Not IsDate(Cells(Target.Row, 16383)) Then Cells(Target.Row, 16383) = Now End If If Target.Column = 18 Then If Not IsDate(Cells(Target.Row, 16384)) Then Cells(Target.Row, 16384) = Now End If End Sub
  5. Antoni

    Cambiar color del textbox

    Ya deberías saber que sin archivo es difícil que alguien te conteste. Además debes indicar a que textxboxes se debe cambiar el color y en que circunstancias.
  6. Private Sub CommandButton2_Click() Dim i As Integer, Rango As Range, Rango2 As Range For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then If Rango Is Nothing Then Set Rango = H2.Rows(i + 2) Set Rango2 = H1.Rows(H2.Range("H" & (i + 2))) Else Set Rango = Union(Rango, H2.Rows(i + 2)) Set Rango2 = Union(Rango2, H1.Rows(H2.Range("H" & (i + 2)))) End If End If Next If Not Rango Is Nothing Then Rango.Delete Rango2.Delete If Not H2.Range("A2") = "" Then ListBox1.RowSource = H2.Name & "!A2:H" & H2.Range("A" & Rows.Count).End(xlUp).Row End If End If End Sub
  7. Es esto a algo parecido. determinar horario de horas xD.xlsm
  8. Antoni

    Introducir datos por formulario

    El formulario está hecho en VBA, te dejo un pequeño tutorial: Tutorial VBA En cuanto al calendario, revisa el adjunto. Gastos Mensuales.xlsm
  9. Antoni

    Introducir datos por formulario

    Para ver el formulario, doble-click en C1:E1 en cualquier hoja. Gastos Mensuales.xlsm
  10. Antoni

    Introducir datos por formulario

    No va a poder ser hoy, a ver si tengo un hueco mañana.
  11. Antoni

    Eliminar repetido "duda"

    Prueba así: Sub EliminarTodosLosRepetidos() Application.ScreenUpdating = False For x = Range("C" & Rows.Count).End(xlUp).Row To 4 Step -1 Set celda = Columns("C").Find(Range("C" & x), , , xlWhole) If Not celda.Address = Range("C" & x).Address Then Range(celda.Row & ":" & Range("C" & x).Row).EntireRow.Delete x = Range("C" & Rows.Count).End(xlUp).Row + 1 End If Next End Sub
  12. Esta función también valdría: Function SumarMeses(Fecha As Date, Meses As Integer) As Date SumarMeses = DateAdd("m", Meses, Fecha) End Function Ejemplo; =SumarMeses(A2;B2) .
  13. Antoni

    Introducir datos por formulario

    Mañana rebusco por ahí, que seguro que tengo algo parecido a lo que estás buscando, eso si, no va a poder ser con el tipo de formulario que propones tal como ya te ha indicado Gabriel.
  14. Al utilizar RowSource, los datos están ligados al rango de la hoja, por este motivo, no pueden eliminarse items directamente del listbox, debes eliminar las filas en la hoja que se corresponden con las filas a eliminar del listbox Private Sub CommandButton2_Click() Dim i As Integer, Rango As Range For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then If Rango Is Nothing Then Set Rango = H2.Rows(i + 2) Else Set Rango = Union(Rango, H2.Rows(i + 2)) End If End If Next If Not Rango Is Nothing Then Rango.Delete If Not H2.Range("A2") = "" Then ListBox1.RowSource = H2.Name & "!A2:H" & H2.Range("A" & Rows.Count).End(xlUp).Row End If End If End Sub .
  15. Añade esta macro en la hoja actual. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address Like "$A$*" Then If Not ActiveCell = "" Then If IsNumeric(ActiveCell) Then SpinButton1 = ActiveCell End If End If End Sub
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.