Respuesta
en
VBA
y en 2 temas más
a
Imprimir Formato en forma Descendente
Prueba así: Sub IMPRIMIR() ' IMPRIMIR Macro ' Imprime las hojas de control de consumos diarias de los usuarios inicio = Range("U3").Value fin = Range("W3").Value For i = fin To inicio Step -1 Range("Q1").FormulaR1C1 = i...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Ordenar texto dentro de una caja (TextBox)
Puedes poner la imagen de la hoja "Datos", solamente para ver cómo tienes tu ejemplo del significado de "nostalgia". También puedes poner el código de tu botón "Buscar" (utiliza el icono para insertar código)
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Quiero filtrar números con Macro
Revisa si lo siguiente es lo que necesitas: Private Sub TextBox1_Change() If TextBox1.Text <> "" Then If IsNumeric(Sheets("Filtro").TextBox1.Text) Then criteriofiltro = Sheets("Filtro").TextBox1.Value Else criteriofiltro = "*" &...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito un Msgbox para evitar salvar los datos de dos Textbox...
No olvides el poner el código con el icono para insertar código. Prueba si la siguiente solución te ayuda. Copia el siguiente código en tu formulario. Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean) If TextBox5.Value = "" Then Exit...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro que compare los datos de 2 hojas de excel según 2 criterios
¿Los ID en la hoja "formulado" son únicos? ¿Los ID en la hoja "Comprado" son únicos?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
MsgBox dependiente de fórmulas y condicionales
Si quieres que funcione cuando capturas el dato "Facturado" en la columna M, entonces pon el siguiente código en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("M3:M" & Rows.Count)) Is...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como controlar una celda con macros que controle periodo y mes actual y anterior
Pon el siguiente código en los eventos de tu hoja: Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range, c As Range ' Set rng = Intersect(Target, Range("E8:E" & Rows.Count)) If Not rng Is Nothing Then For Each c In rng If c.Value <>...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Macro para mover rango discontinuo a otra columna?
Puedes poner otra imagen para ver las columnas de excel, revisa el siguiente ejemplo:
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Buscar multidatos en hoja de excel
¿Todos los datos empiezan en la fila 1? ¿En la hoja3 quieres la columna A y B o solamente quieres la columna B o? Si no encuentra el valor, ¿simplemente qué deje la fila vacía? Prueba lo siguiente y me comentas, en la hoja3 te pone la columna A y B y...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Últimos pasos para finalizar el UserForm
Revisa la siguiente propuesta: En el textbox del producto, capturas el producto y presionas un botón para agregar el producto a un listbox: Este es el código para agregar el Producto al listbox y el código para guardar todos los datos en la hoja:...