antares18

A mi no me sale bien. He puesto esot Private Sub UserForm_Initialize() Me.MultiPage1.Value = 0 Image1.Picture = LoadPicture("D:\jose\map_towns.jpg") Me.MultiPage1.Value = 1 Label1.Caption = "Hola como estas" End Sub He puesto sólo 1 userform

Private Sub TextBox1_Change() Range("A" + TextBox1.Text + ":" + "B" + TextBox1.Text).Select End Sub

Aquí tienes la función Public Function unoguion(Dato_a_buscar As String, Columna_buscar_en As Range) As String Dim i As Double Dim trobat As Boolean i = 1 trobat = False For Each Item In Columna_buscar_en 'El item es cada celda de Columna_buscar_en,...

Pones una parte que ponga default: msgbox("El material no está disponible") Funciona como un else. Lo pones antes del end select

Yo normalmente uso esta http://msdn.microsoft.com/en-us/library/bb238869.aspx. Está en inglés, contiene ejemplos de los métodos y propiedades de los objetos

No se si lo he entendido bien, quieres usar lo que hace la función contara pero no en la barra, lo quieres en un módulo para saber el numero exacto que cumplen la función. Si es así la fórmula es esta. Public Function contar_celda(Celdas As Range) As...

Pon =si(eserror(Celda donde está el #!VALOR¡);0;"") Con esto haces que si te da error la celda sale un 0 y el resultado no te cambia y si no hay error te pone la celda a vacío, sin nada dentro de la celda.

Si es posible. Has de poner después de crear la hoja, antes o después de poner el formulario precargado, no importa esto. Sheets(Sheets. Count).Select 'Esto se va a la hoja creada 'Con esto se te pone en formato de 2 ceros como tu ejemplo....

Creo que es porque la fecha está en formato General. Para cambiarlo a fecha haz lo siguiente Señalas la celda, apretás botón derecho, apretás menú Formato de Celda, es el 4o por debajo y lo señalas. Entonces en la lista de debajo de Categoría señalas...

Pues igual que has hecho con el 2 Private Sub ComboBox2_Change() ComboBox3.Clear Hoja3.Select columna = ComboBox2.ListIndex + 1 Cells(2, columna).Select Do While ActiveCell <> Empty ComboBox3.AddItem ActiveCell ActiveCell.Offset(1, 0).Select Loop End Sub