Ayuda con SetFocus

Hola Victor Manuel,

FE de erratas: donde dije: "lo que me llama la atencion de
ClearContents es su uso en tu codigo." quise decir: "lo que me llama la
atencion de ClearContents es su sintaxis ( o forma de utilizacion) en
tu codigo."

entiendo 'razonablemente' bien todo lo que has ido exponiendo, y
conozco, tambien 'razonablemente bien', el uso de ClearContents con el
objeto Range, lo que se me ''escapa'' es la sintaxis que utilizas en
el codigo expuesto, de lo que deduje que existe una "forma de uso" que
desconozco. De ahi la consulta: aprender algo nuevo.

Pero no te preocupes, como creo que ya te has dado cuenta, mi nivel es
muy limitado, tanto con VBA como intelectivamente hablando.

un saludo
Ivan

Hola VM,

por si no se entiende mi duda:

Sin probarlos, todos esto procedimientos creo que funcionan, y entran
dentro de la nocion del uso que yo tengo de clearcontents:

.-Borrar la celda a1 ->

Sub Borrar()
ClearContents = Range("a1").ClearContents
End Sub
Sub BorrarContenido2()
Borrar
End Sub

.-Borrar un rango ->

Sub ClearContents(ByVal rng As String)
Range(rng).ClearContents
End Sub
Sub BorrarContenido3()
ClearContents ("a1")
End Sub

.-Borrar un textbox ->

Sub ClearContents(ByVal txt As Single)
Me.Controls(TextBox & txt).Text = ""
End Sub
Sub BorrarContenidos4()
ClearContents (1)
End Sub

Pero esta forma ->

Algo.Algo = ClearContents

-> no la conozco y ademas no me funciona, y de ahí mi duda. Si todavia
tienes ganas de aclararmela, te lo agradezco

Un saludo
Ivan

Pero esta forma ->

Algo.Algo = ClearContents

-> no la conozco y ademas no me funciona, y de ahí mi duda. Si todavia
tienes ganas de aclararmela, te lo agradezco

La forma en que yo la utilizo es dentro de los formularios, has de saber que
dichos formularios contienen objetos, en este caso el TextBox, ComboBox, etc.
los cuales contienen valores, como el caso del TextBox el valor se almacena
en la propiedad Value, entonces si yo tengo un valor, cantidad, etc. dentro
de un TextBox, para borrarlo, necesito hacer referencia hacia ese formulario
y en particular hacia el TexBox y asi podre borrar el contenido de la
propiedad Value del TextBox. Ejemplo:

(trata de hacerlo)

en un Formulario (UserForm1) tengo un TextBox (TextBox1) y un boton de
comando (CommandButton1) si capturo 100 en la propiedad Value del TexBox o
directamente en el TexBox (al momento de ejecutar el formulario con F5) y en
el codigo del boton escribo lo siguiente:

Private Sub CommandButton_Click ()
UserForm1.TextBox1.Value = ClearContents
End Sub

lo que hace el boton el codigo al momento de darle click es borrar cualquier
contenido que introduzcas dentro del TextBox1

NOTA: para crear un formulario necesitas ingresar en el editor de VB y
seleccionar el comando Insertar - Formulario y al momento de que te aparezca
el formulario, tambien aparece una barra de comandos "Flotante" con la cual
puedes "Crear" el o los TextBox, CommandButton, Etc. que necesites "insertar"
en el Formulario y asi puedes diseñar las "pantallas" de captura, consulta,
etc.

Espero no confundirte y que la presente respuesta sea de tu ayuda para
mejorar.

Saludos.
Victor Manuel.

Correccion al codigo anterior

Asi lo expuse:

Private Sub CommandButton_Click ()
UserForm1.TextBox1.Value = ClearContents
End Sub

Debe ser asi:
-
Private Sub CommandButton1_Click ()
UserForm1.TextBox1.Value = ClearContents
End Sub
-

Tambien es valido de la siguiente manera:
-
Private Sub CommandButton_Click ()
TextBox1.Value = ClearContents
End Sub
-
(como ya esta el codigo "dentro" del formulario UserForm1, no es necesario
hacer referencia a el.)

Atte. Victor Manuel

"vm_tapia" wrote:

Private Sub CommandButton_Click ()
UserForm1.TextBox1.Value = ClearContents
End Sub

el ejemplo anterior contiene un error, la correccion queda de la siguiente
manera:
-
Private Sub CommandButton1_Click ()
UserForm1.TextBox1.Value = ClearContents
End Sub
-

tambien es valido de la siguiente manera:
-
Private Sub CommandButton1_Click ()
TextBox1.Value = ClearContents
End Sub
-

como el codigo ya esta dentro del formulario UserFomr1, no es necesario
hacer referencia a el.

Atte. Victor Manuel