Actividad pública reciente
Ha valorado "Excelente" la respuesta
Pegar Unicel
El unicel no se puede pegar con cualquier cosa puesto que es muy delicado, te recomiendo un pegamento especial para unicel marca UHU que puedes adquirir en cualquier papelería o centro comercial, esto es lo más sencillo, si quieres aun mayor...
Ha valorado "Excelente" la respuesta
Problema con el método open de worksheet
Me parece que la parte que no mencionaste es que tu archivo opera en una versión de Office posterior a la 97, podría ser XP, casi de seguro. Ocurre que mi versión es la vieja y querida 97 y no lograba hacer funcionar tu macro ni por el evento de...
Ha valorado "Excelente" la respuesta
Ejemplo de facturas
Puedes solicitarla al correo [email protected] Mauricio P.D. Cuando este satisfecha con la respuesta.
Ha valorado "Excelente" la respuesta
Nombre en textbox
Para estos casos yo uso este código... Private Sub TxtClave_Change() Dim Buscado As Range Dim Clave As String 'Obtengo la clave a buscar Clave = Trim(txtClave.Text) 'Busco la clave en la columna correspondiente Set Buscado =...
Ha valorado "Excelente" la respuesta
Valor de Fecha
No se si estés usando declaración de variables, supongo que la variable Fecha de tipo Date Dim Fecha As Date Esta linea es correcto, si tu variable Fecha es de tipo Date o Variant Fecha = CDate(TxtFecha.Text) podria quedar así Fecha =...
Ha valorado "Excelente" la respuesta
Valor máximo en textbox
'Recuerda que la función DMax espera tres argumentos 'La base de datos (RANGO) 'El nombre del campo (TEXTO o NUMERO) 'Y los criterios (RANGO) 'entonces, en tu función le estas pasando un rango que se llama mirango, 'pero esta mal usado por que ya lo...
Ha valorado "Excelente" la respuesta
Autofiltro
Tu código esta bien, salvo un detalle, el criterio esta mal construido, prueba este otro: Option Explicit Public Sub Filtrar_Datos() Dim strCriterio As String 'Solicitamos el crierio y le quitamos los espacios strCriterio = Trim(InputBox("Cual es el...
Ha valorado "Excelente" la respuesta
Valor en textbox
Con esta sencilla línea, saludos txtMaximo.Text = Application.WorksheetFunction.Max(Range("A:A")) Solo tienes que poner la columna que quieras
