Dante Amor

Prueba la siguiente macro. Nota: todos los datos empiezan en la celda A2 en todas las hojas. Sub Registrar_Faltantes() Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet Dim a As Variant, b As Variant, c As Variant Dim i As Long, j As Long, k...

Prueba así: Private Sub CommandButton2_Click() Unload UserForm1 Unload Me End Sub

Siguiendo con tu ejemplo, explica con palabras lo que quieres hacer. Y en tu ejemplo cuál es el resultado que esperas.

Esta puede ser una alternativa. No importa si está con acento o mayúsculas o minúsculas. Es una fórmula matricial. =Si.Error(Indice($F$2:$F$20;Max(Si(Esnumero(Hallar(A2; Sustituir(Sustituir(Sustituir(Sustituir(Sustituir(...

Si estás en el evento Exit para no salir del textbox, se utiliza Cancel = True Prueba así: Private Sub OASFT_Exit(ByVal Cancel As MSForms.ReturnBoolean) If OASFT.Value <= Val(OASF2.Caption) Then MsgBox ("Valor nulo") OASFT.SetFocus OASFT.Value =...

¡H o l a! y Bienvenida a TodoExpertos. No entendí bien, puedes responder lo siguiente: - ¿Qué quieres buscar? Hoja, celda. - ¿En dónde están los datos? Hoja, rango de celdas. - ¿En dónde quieres el resultado o resultados? Hoja, celda o celdas. - Y lo...

Ayudaría mucho, si acompañas las explicaciones con imágenes o con ejemplos. De esa forma obtendrías más ayuda.

¡H o l a! y bienvenida a TodoExpertos. Prueba la siguiente macro, cambia en la macro "Hoja" por el nombre de tu hoja donde quieres el concentrado. Sub Concentrado() Dim sh1 As Worksheet, sh As Worksheet Dim f As Range, lr As Long...

Pon lo siguiente en tu formulario1 Private Sub listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm2.Show End Sub El nuevo formulario tiene el textbox2 para completarse con la columna E, textbox3 columna F, textbox4 columna G. ¿Quieres...

Prueba con la función Val o CDbl. En las celdas de la hoja pon el formato que tú quieras. Private Sub CommandButton1_Click() Range("B2").Value = Val(TextBox1.Value) Range("C2").Value = CDbl(TextBox2.Value) End Sub