Respuesta
en
Microsoft Excel
y en 2 temas más
a
Tengo dos Combobox y varios Textbox y necesito que cuando uno de los combobox este ocupado el otro este en cero...
Declara una variable global, ejemplo Dim cargando En el evento change del combo1 If cargando = true exit sub Combo2 = 0 Textbox2 = 0 Comboy = 0 ' aquí el demás código que tengas. ' 'Luego pones en false la variable Cargando = false End sub En el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Tengo un listbox pero los títulos de las columnas son muy grandes y necesito que cuando escriba se incorporen debajo..
En un listbox no puedes poner algo como multiline, si no son muchos los encabezados, podrías poner cada título en un label, calculando que abajo de cada label quede la columna correspondiente. El tamaño de cada columna lo puedes establecer en la...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Llamar a userform de un libro con un userform de otro libro
Tienes que hacer referencia al libro y a la hoja donde quieres guardar. Por ejemplo: En el libro ISO 9001 en un módulo: Sub abrirform() Run "'TEMA 2.xlsm'!abrir" End Sub Ahora en el libro TEMA 2, en un módulo: Sub abrir() UserForm1.Show End Sub En el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como Filtrar por medio de una macro varios Criterios
En tu código tienes esta instrucción: On Error Resume Next Lo que pasa es que en esta instrucción: ActiveSheet.Range("$A$:$N").AutoFilter Field:=6 Pusiste un símbolo $ de más. La macro debe enviarte un error "1004 en tiempo de ejecución". Pero como...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Usar variable inputBox dentro de una fórmula R1C1
Prueba con lo siguiente, Sub Macro3() ' On Error Resume Next Set celda = Application.InputBox(prompt:="Digite Número de Celda que quiere utilizar", Type:=8) If celda Is Nothing Then Exit Sub On Error GoTo 0 ActiveCell.FormulaR1C1 = "=IF(ISTEXT(R" &...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
En excel en una hoja ejecutar una macro para poner un mensaje y que siga ejecutando la macro hasta que acabe y borre el mensaje.
Te anexo el código Sub Macro1() 'Por.Dante Amor ' On Error Resume Next ActiveSheet.Shapes("mensaje").Delete On Error GoTo 0 izq = ActiveCell.Left arr = ActiveCell.Top Set figura = ActiveSheet.Shapes.AddShape(msoShapeRectangle, izq, arr, 100, 100)...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro que copie una fórmula hasta ultima fila con datos de una columna
Va Sub ejemplo() Range("iv3").End(xlToLeft).Offset(0, 1).Select u = Range("A" & Rows.Count).End(xlUp).Row col = ActiveCell.Column With Range(Cells(ActiveCell.Row, col), Cells(u, col)) .Formula = "=VLOOKUP(RC[-7],R3C2:R1816C2,1,)" End With End Sub sal...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿Como programar una macro para imprimir mediante una lista desplegable?
Te anexo la macro con un ciclo para tomar cada uno de los nombres que están en el rango P5:P12 y lo pone en la celda C48 Sub Macro1() 'Act. Por Dante Amor ' Macro1 Macro ' imprime cada uno de las hojas por lider ' ' For Each nombre In...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Insertar fila donde se saltea un numero
Te anexo la macro Sub Macro6() ' ' Por Dante Amor ' ' Insertar fila donde salta número ' Application.ScreenUpdating = False u = Range("A" & Rows.Count).End(xlUp).Row For i = u To 4 Step -1 num2 = Cells(i, "A") num1 = Cells(i - 1, "A") n = 0 For j =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para eliminar contraseña de varias hojas al mismo tiempo
Sub quitarcontra For each h in sheets h.unprotect "abc" Next End sub . Cambia "abc" por el password que tienen tus hojas. Sal u dos