Carlos Arrocha

[Hola jose. Lo mejor será que copies y pegues aquí el código para ayudarte mejor. Salu2.

[Hola Sara. Si quieres utilizar la variable "j" en los dos formularios, tendas que hacelas pública. Ejemplo: Public j as Integer y la debes colocar por arriba de: Sub CommandButton1_click() Salu2 C.A.

[Hola. Prueba esta macro a ver si te sirve. Tienes que seleccionar antes de ejecutarla. Dim Item As Range Set Area = Application.Intersect(Selection, ActiveSheet.UsedRange) On Error GoTo Control For Each Item In Area If Application.IsText(Item) Then...

[Hola. Prueba así. If campo_5 >= muyltodos Then callrisdos.BackColor = &HFF& ElseIf campo_5 >= altodos Then callrisdos.BackColor = &HC0C000 ElseIf campo_5 >= mediodos Then callrisdos.BackColor = &H8080FF ElseIf campo_5 < mediodos Then...

[Hola. Que es el alto?

[Hola. Prueba así. Private Sub CommandButton1_Click() TextBox3.Value = CDbl(TextBox1) / CDbl(TextBox2) End Sub Salu2 Carlos Arrocha

[Hola. Si te entendí bien lo que quieres es llevar el orden, de forma que al dar enter se vaya pasando el setfocus a otro objeto. Selecciona cada conttrol uno a uno y vas cambiando el orden en TabIndex. Ten en cuenta que tienes que empezar por el "0"...

[Hola Ana. Lo mejor es que lo protejas. Eso lo haces en la pestaña vista + Proteger Libro. Salu2 Carlos Arrocha

[Hola Cristina. Esta macro hace lo que necesitas con números y fechas. Ponla en un módulo. Sub OrdenarColumnas() Dim i As Double fin = Application.CountA(Worksheets("Hoja1").Range("1:1")) For i = 1 To fin If Application.WorksheetFunction.IsEven(i)...

[Hola Felipe. Te paso un par de ejemplos a ver si te sirve alguno. Debes hacerle los cambios necesarios. 'Opción 1. 'Mestra datos en formulario 1 Private Sub CommandButton1_Click() Dim Opcion As String With UserForm1 Select Case True Case...