Actividad pública reciente
Ha valorado "Excelente" la respuesta
Textbox que acepte dirección de email
Por ejemplo, si el cuadro de texto se llama textbox1: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) With Me.TextBox1 If (Len(Replace(Replace(.Value, ".", ""), "@", "")) <> Len(.Value) - 2) Or _ (InStr(.Value, ".") < InStr(.Value,...
Ha valorado "Excelente" la respuesta
Buscar datos repetidos en una columna excel
Este es el código Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.DAM Set b = Sheets("Hoja1").Range("B:B").Find(Val(TextBox1), LookAt:=xlWhole) If Not b Is Nothing Then MsgBox "El código ya existe, debes reemplazarlo" Cancel =...
Ha valorado "Excelente" la respuesta
Problema con textbox
Esta es la instrucción: ActiveCell.FormulaR1C1 = "=""=" & Val(TextBox2) & """"