Jump to content

JasallBcn

Members
  • Posts

    131
  • Joined

  • Last visited

  • Days Won

    11

Community Answers

  1. JasallBcn's post in Pasar a tabla CheckBox con Caption was marked as the answer   
    Buenas, seria algo así:
    Range("a1").Value = IIf(Me.CheckBox1.Value, Me.CheckBox1.Caption, "") Range("a2").Value = IIf(Me.CheckBox2.Value, Me.CheckBox2.Caption, "") Saludos
  2. JasallBcn's post in Mejorar tiempo de ejecucion macros, Eliminar Filas was marked as the answer   
    Buenas tardes, solucion usando AutoFiltro
    With ActiveSheet .Range("E5").AutoFilter Field:=1, Criteria1:= _ "=Pajaritos No. 1", Operator:=xlOr, Criteria2:="=Pajaritos No. 2" .AutoFilter.Range.Offset(0, 0).EntireRow.Delete MsgBox "Proceso terminado exitosamente!" End With Saludos
  3. JasallBcn's post in Fecha cambia sola de formato después de ser insertada was marked as the answer   
    Buenas, cambiando estas lineas.
    'TextBox1.value = Format(TextBox1.value, "dd-mmm-yy") Range("B" & ultimo).EntireRow.Insert Range("A" & ultimo).value = CDate(Format(TextBox1, "dd-mm-yy")) inhabilita estas otras 
    ' Dim Celda As Range ' FILA = ActiveCell.Row ' With Hoja1 ' .Cells(FILA, 1).Select ' For Each Celda In Selection ' Celda.value = CStr(Celda) ' Next Celda ' End With si te hace falta comvertir todas las celdas , omite la de la fecha.
×
×
  • Create New...

Important Information

Privacy Policy