JasallBcn
-
Posts
131 -
Joined
-
Last visited
-
Days Won
11
Community Answers
-
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
-
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
-
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.