Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Cómo programar los botones “primera fila”, “anterior” , “siguiente” y “última fila” de un ListBox?
Te anexo el código para moverse en el listbox y también en la hoja 'Por Dante Amor Private Sub CommandButton1_Click() 'Primera If ListBox1.ListCount > -1 Then ListBox1.Selected(0) = True Range("tabla1").Cells(ListBox1.ListIndex + 1, "A").Select End...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para seleccionar dato de un listbox, buscar el dato en una Base de Datos y señalar la fila
Te anexo el código Private Sub CommandButton1_Click() If ListBox1.ListIndex = -1 Then MsgBox "Selecciona un registro del list" Exit Sub End If ' codigo = Val(ListBox1.List(ListBox1.ListIndex, 0)) Set h = Sheets("APU") Set b =...
Respuesta
en
Microsoft Excel
a
Fórmula de Excel "Residuo" valor inexacto
¿En las celdas A1 y A2 no tienes más decimales? Si solamente tienes 2 decimales, revisa en las opciones de excel, Avanzadas, en "Al calcular este libro", marca la casilla "Establecer precisión en pantalla" Revisa y me comentas. sal u dos
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pegar datos en excel según condición en VBA
Te anexo la macro Sub Buscar_Pegar() 'Por Dante Amor 'Pegar datos en excel según condición Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 5 To 98 If h1.Cells(i, "Q") <> "" Then Set b = h2.Range("J3:J2000").Find(h1.Cells(i, "Q").Value,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cambiar nombre a las hojas de un libro con VBA Excel
Te anexo la macro Pon tus datos en estas líneas de la macro: ruta = "C:\trabajo\libros\" 'nombre de la carpeta hojaP = "Principal" 'nombre de la hoja principal hojaX = "xx" 'nombre nuevo Sub Cambiar_Nombre_hoja() 'Por Dante Amor 'Cambiar el nombre de...
Respuesta
en
Microsoft Excel
a
Macro que guarda datos fuera de la planilla
Podemos actualizar los bordes Cambia la macro por esta Private Sub cmdbguardar_Click() 'mensaje cuando no se eligio hoja If ComboBox1.ListIndex = -1 Or ComboBox1.Value = "" Then MsgBox "Selecciona una hoja", vbExclamation Exit Sub End If If...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Imprimir de una lista desplegable
Supongo que con las fórmulas llenas la hoja "boleta", entonces solamente quieres cambiar de uno en uno el DNI en la hoja "resumen"; e imprimir la hoja "boleta". Te anexo la macro. Crea una hoja llamada "TEMP" Sub Imprimi_DNI() 'Por Dante Amor Set h1...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Macro para Ingresar miles y decimales textbox
Prueba con lo siguiente If isnumeric(textbox6.value) and textbox6.value <> "" then Activesheet.Cell(3, 12) = CDbl(textbox6.value) End If
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cambio de color de una celda
Pon la siguiente macro en los eventos de tu hoja. Cambia la "D" por la columna que vas a actualizar. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("D")) Is Nothing Then If Target.Count > 100 Then Exit Sub For...
Respuesta
en
Microsoft Excel
a
Crear nueva hoja en mismo archivo pero con fecha.
¿El título va en una celda? ¿En cuál celda? ¿Cómo se va a llamar la nueva hoja?