Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro pegar valores de un ciclo sin modificar formato
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro ordenar, falla cuando se queda una fila en blanco
Te anexo la macro actualizada Sub ordenar() 'Act.Por.Dante Amor ' Set h1 = Sheets("ALBARAN") u = h1.UsedRange.Rows(h1.UsedRange.Rows.Count).Row f_enc = 22 With h1.Sort .SortFields.Clear: .SortFields.Add Key:=h1.Range("B" & f_enc + 1 & ":B" & u)...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Mostrar en textbox registro con la fecha más reciente
Pon el siguiente código en tu botón de buscar. En el textbox1 pon el número de cliente En textbox2 quedará el nombre En textbox3 quedará la fecha En textbox4 quedará el importe Private Sub CommandButton1_Click() 'Buscar 'Por.Dante Amor ' If TextBox1...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cómo bloquear y proteger celdas sin que desactive las macros
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro pegar rango de valores para un ciclo
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Cortar Filas con valores duplicados en Columnas y pegar en Nueva Hoja, dejar solo los valores Únicos.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Limpiar o copiar y pegar contenido de celdas según condición
H o l a: Quieres que la macro se ejecute en automático o quieres capturar el ingreso o egreso y entonces presionar un botón para ejecutar la macro. Si la quieres en automático, deberás capturar todos los datos y hasta que captures el último dato...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Quiero saber si se puede que cada cierta hora un textbox o ComboBox se ilumine o cambie de color
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Realizar una resta entre el numero máximo y mínimo de una columna con macros
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro validación Campos: Completar celdas condicionadas a rellenar celda inicial.
Prueba con lo siguiente, cambia "Hoja2" por el nombre de tu hoja Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Act.Por.Dante Amor Set h = Sheets("Hoja2") Set rng = h.Range("A1:A20") h.Select For Each celda In rng If celda.Value <> "" Then If...