Adriel Ortiz Mangia

[Hola Asegúrate que el nombre de la hoja esté escrito correctamente, revisa si hay espacio después del nombre Private Sub CommandButton1_Click() Set h = Sheets("Hoja4") ' h.Visible = True h.Select h.Range("A1") = UserForm1.TextBox1 End Sub

[Hola Revisa esto Formulario en excel, como minimizar y poder usar la plantilla con el formulario minimizado

Prueba así Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target = Range("k2") Then Range("D4").Value = "" ' If Target.Address = "$D$4" Then filtra End Sub

[Hola Mi gran Maestro y Generoso Dante, me cuesta entender que hayas tomado esta decisión pero es algo que respeto mucho. Me queda decir Dante que estoy profundamente agradecido, porque gracias a tus aportaciones y otras personas que participan en...

[Hola Has clic derecho en la barra de estado y activa lo que necesitas

Pon la macro para actualizar

[Hola Prueba así, guardando la configuración de tu formulario a una celda. Por ejemplo para tu formulario los option if option1 = true then sheets("Hoja1").Range("A1") = "Bolivares" if option2 = true then sheets("Hoja1").Range("A1") = "Sol" . . . Y...

[Hola Te paso la macro Sub SEPARA_CADENA() ' 'VALORA LA RESPUESTA PARA FINALIZAR Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' ini = 2 'fila inicio k = 1 h2.Cells.ClearContents For i = ini To h1.Range("AT" & Rows.Count).End(xlUp).Row If...

[Hola Te paso la macro Valora la respuesta con manito arriba para finalizar Sub copiar_datos() 'Por.Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") ' h2.Cells.Clear k = 1 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i,...

[Hola Te paso la macro Valora la respuesta para finalizar Sub copiahoja() 'Por.dam 'Act. Adriel Ortiz Set l1 = ThisWorkbook Set h1 = l1.Sheets("Hoja1") ' ruta = ThisWorkbook.Path & "\" ARCH = "NUEVA DATA" h1.Copy Application.DisplayAlerts = False...