Actividad pública reciente
Ha valorado "Excelente" la respuesta
Enumerar y contar los 4 primeros registros mayores de una base de datos con macros
Este es el resultado de la macro y esta es la macro Sub crear_tabla() Set H1 = Worksheets("datos") Set H2 = Worksheets("resultados") H2.Cells.Clear Set DATOS = H1.Range("a2").CurrentRegion With DATOS filas = .Rows.Count - 1 Set DATOS =...
Ha valorado "Excelente" la respuesta
Ya no me funciona guardar modificar y eliminar ya que cambie en el lisbox arrays por rowsource
Estoy dejando Todoexpertos poco a poco, esta es una de mis ultimas respuestas (ni siquiera tiene que valorarla), viendo que esta plagado de personas que mal informan a los que menos saben y se hacen pasar por "expertos". Permítame aclarar algunas...
Ha valorado "Excelente" la respuesta
Como sacar estadísticos de datos del lisbox la cual mencionare en la descripción
Como te mencione en otro post los array son muy buenos y excelentes para cargar información de forma masiva el único inconveniente es que tienen sus desventajs y limitaciones una de ellas es que se rquiere demasiado código para hacer cálculos o...
Ha valorado "Excelente" la respuesta
Problemas en el filtro desde un UserForm
El problema es que el listbox no soporta por additems cargar ams de 10 columnas de datos en tu caso tienes 11, prueba esta nacro tienen menos código y no tiene el problema de la limitante de columnas, te recomiendo usar tablas insertadas, la macro...
Ha valorado "Excelente" la respuesta
Problemas con el código suma al momento de hacerlo en otro formulario
Prueba este código: Sub SumarTodo(Valor1 As Double, Valor2 As Double, Valor3 As Double) Dim Total As Double Total = Valor1 + Valor2 + Valor3 Me.TextBox4.Value = Total End Sub Private Sub TextBox1_Change() Dim Val1 As Double, Val2 As Double, Val3 As...
Ha valorado "Excelente" la respuesta
Solo sumar en tres cajas de texbox conteniendo números y letras
Cambia la macro por estay esta es la macro Private Sub CommandButton1_Click() FILAS = Range("A3").CurrentRegion.Rows.Count TextBox1.Text = FILAS For I = 2 To 4 VALOR = Val(UserForm1.Controls("TEXTBOX" & I).Text) If IsNumeric(VALOR) Then SUMA = VALOR...
Ha valorado "Excelente" la respuesta
Como hago para buscar dentro de un mismo filtro sin que reinicia los datos.
Brenda, pon este código 3 veces en el mismo modulo pero con nombre diferente: Sub FiltrarNombre() Dim pacientes As Worksheet: Set pacientes = Sheets("Paciente") Dim uF As Integer Dim diagnostico As String, condicion As String, ficha As String, nombre...
