Homero Tobar

Homero Tobar

 Laos @hotto desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Excelente" la respuesta

Evitar duplicados en formulario access, dar setfocus

respondió: Basta con poner, en las propiedades del cuadro de texto- eventos-Antes de actualizar, con el generador crear un procedimiento de evento y entre Private Sub y End sub escribir If dcount("*","registros","noctafact=" & me.noctafact & "")>=1 then...
Voto positivo a la respuesta

Sumar total en un textbox

respondió: Agrega un botón de comando, nombralo cmdSumar y en su evento click pones... Private Sub cmdSumar_Click() Dim Suma As Double Suma = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) TextBox5.Text = Str(Suma) End Sub...
Ha preguntado en el tema en

¿Puedo desde un Combobox buscar y ubicar un registro en un listbox?

Primero que nada mi nivel de VBA es muy básico. Cuento con una base de datos (BD) donde registro los datos de unas cuentas médicas, ésta BD la gestiono mediante código VBA desde un userform (Ingresar, borrar, modificar), en este objeto tengo un...
Sin respuestas
Voto positivo a la respuesta

Uso de Espacios(ref) de excel en VBA

respondió: H o l a: Si quieres una macro: Sub SinEspacios() 'Por.Dante Amor celda = "A1" Range("B1") = Evaluate("=trim(" & celda & ")") End Sub Si lo quieres en forma de función: Function QuitaEspacios(celda As Range) 'Por.Dante Amor QuitaEspacios =...
Ha valorado "Excelente" la respuesta

Restar meses a fecha y colorear celda si cumple condición

respondió: La idea sería utilizar un formato condicional personalizada con fórmula Seleccionas la celda sobre la que quieres aplicar el color/formato. Accedes al Formato condicional > Nueva Regla En la ventana diálogo abierta marca la última de las opciones:...
Ha valorado "Excelente" la respuesta

Error 1004 en tiempo de ejecución al ejecutar código

respondió: El error te da por causa de que escribes hoja1 en minúscula debes cambiar a mayúscula, que es el nombre real de la hoja: Sub ocultarhojas() Dim hoja As Worksheet For Each hoja In Worksheets If hoja.CodeName <> "Hoja1" Then hoja.Visible =...
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha cambiado su perfil.
  • Ha cambiado su foto.