Preguntas esperando respuesta
Actividad pública reciente
Ha preguntado en el tema en
Microsoft Excel
y en 1 temas más
Eliminar código de las últimas filas de la hoja
Tengo una hoja donde se registran códigos de forma regular diariamente (Entre 50 y 100) y la mayoría de estos códigos se repiten. En ocasiones necesito eliminar alguno de estos, pero no de cualquier fila, necesito que el código sea de los últimos...
Ha valorado "Excelente" la respuesta
Macro para filtrar que no filtra
Prueba lo siguiente: Sub Filtrar() Dim h As Worksheet Dim b As Range Dim fecha As Date ' Set h = Sheets("Hoja1") If h.AutoFilterMode Then h.AutoFilterMode = False fecha = CDate(h.[F1]) With h.Range("A:D") Set b = .Find(fecha, , xlValues, xlWhole) If...
Ha valorado "Excelente" la respuesta
Sumar los valores de una columna (Listbox) según la selección de combobox.
Puedes poner aquí todo el código que tengas. Cómo cargaste los datos en el combo y cómo en el listbox.
Ha valorado "Excelente" la respuesta
Cambiar automáticamente una coma por un punto en un textbox
Si estás en un formulario, utiliza el evento Change del Textbox: Private Sub TextBox1_Change() TextBox1 = Replace(TextBox1, ",", ".") End Sub
Ha valorado "Excelente" la respuesta
Llenar Listbox de forma consecutiva con cada clic de botón.
Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el dato en el textbox1" TextBox1.SetFocus Exit Sub End If With ListBox1 .AddItem .List(.ListCount - 1, 0) = TextBox1.Value .List(.ListCount - 1, 1) =...
Ha preguntado en el tema en
Microsoft Excel
y en 1 temas más
Realizar registros pero limitado a un rango de filas
Necesito un código (lo más reducido posible) para registrar el contenido de 5 cajas de texto, partiendo de la columna "A" hasta la columna "E" y de la fila 13 hasta la fila 29.
Sin respuestas
Ha valorado "Excelente" la respuesta
Buscar si existe el dato en la columna antes de registrar.
Prueba lo siguiente: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el primer dato" TextBox1.SetFocus Exit Sub End If If TextBox2.Value = "" Then MsgBox "Captura el segundo dato" TextBox2.SetFocus Exit Sub End If ' Dim...
Ha valorado "Excelente" la respuesta
Como registrar en una hoja dependiendo de la inicial del dato a registrar?
Utilicemos esta opción: Las hojas pueden estar nombradas por ejemplo: "A" - "B" Pon el siguiente código en tu formulario: Private Sub CommandButton1_Click() If TextBox1.Value = "" Then MsgBox "Captura el primer dato" TextBox1.SetFocus Exit Sub End If...
Ha valorado "Excelente" la respuesta
Enviar los datos de una caja de texto para cada hoja.
Pongo un ejemplo: Set h1 = sheets("Hoja1") h1.range("A" & rows.count).end(3)(2).Value = textbox1.Value
