Abraham Valencia

Un modo: Sub hjk() Dim rango As Range For Each rango In ActiveSheet.Range("a1:a10") If rango = "E" Then rango.EntireRow.Delete End If Next End Sub Abraham

=Si(Sumaproducto(--Esblanco(C11:C13)) >=31;"";Min(C11:C13)) Abraham

Pues no es posible aumentar el tamaño de las letras de las listas de validación de datos, pero estos datos, apenas elegidos, adquirirán el formato de las celdas. Una opciones aumentar el "zoom" de la hoja, y otra es usar un Combobox de lo controles...

¿Y no te sirvió la respuesta que te di? Hubiese sido bueno que al menos lo digas :( Respuesta Abraham

Pues en realidad sin ver tu función es un poco complicado ayudarte, pero, ¿intentaste declarar el resultado comoSTRING? Abraham

Unload Me Userform12.Show Abraham

Sub HayQueLeerMasdeVBA() Dim Hoja As Worksheet Application.DisplayAlerts = False For Each Hoja In Worksheets If Hoja.Name = "Hoja4" Then Hoja.Delete MsgBox "Hoja borrada" Application.DisplayAlerts = True Exit Sub End If Next Hoja MsgBox "La hoja no...

Al momento de proteger la hoja, en la caja de dialogo que sale, activa el check de "modificar objetos" Abraham

Const Carpeta = "D:\Access" Sub Nombres_Archivos() Dim fso As Object Dim FSOFolder As Object Dim FSOfile As Object Dim archivo As Long Set fso = CreateObject("Scripting.FileSystemObject") Set FSOFolder = fso.GetFolder(Carpeta) archivo = 1 With...

1- Para asignarle una macro a un botón de la barra de herramientas: With CommandBars.Add(Name:="Nombredelabarradondeestaraelboton") With .Controls.Add(Type:=msoControlButton) .OnAction = "nombredemacroaasignar" .FaceId = 59 .TooltipText = "Blablabal"...