Respuesta
en
Microsoft Excel
y en 2 temas más
a
Mejorar una Macro en Excel
Envíame tu archivo con la hoja "Modelo" y unos ejemplos en la hoja "Base de Datos", también agrega una tercera hoja para ver un ejemplo de cómo debería quedar cada hoja. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Multiplicar 2 valores ingresos en textbox diferentes y mostrar automáticamente el resultado en un tercer textbox?
Pon el siguiente código en tu formulario Private Sub TextBox1_Change() Call Multiplicar End Sub ' Private Sub TextBox2_Change() Call Multiplicar End Sub ' Sub Multiplicar() TextBox3 = "" t1 = Val(TextBox1.Value) t2 = Val(TextBox2.Value) TextBox3 = t1...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cómo sumar los valores de una columna que depende de la coincidencia de una valor dado?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como puedo hacer para que en Excel el programa me pregunte en que hoja me quiero situarme y en que celda y que quiero escribir
Te anexo la macro con algunas validaciones Sub Ejer02() Dim hoja As String, tex As String, celda As String celda = InputBox("En que celda desea situarse") tex = InputBox("Que desea escribir") hoja = InputBox("En que hoja desea situarse") ' If celda =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
MACRO para copiar un valor y filtrar otra hoja con ese valor
Te anexo la macro para lo siguiente: 1. Captura el dato en la hoja "actualización", celda C4 2. Ejecuta la macro. Si no hay dato, te envía un mensaje 3. La macro realiza los 2 filtros 4. Si hay información en la columna A, la copia y la pega en la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar Datos en una planilla excel y pegar en otra planilla cuando los valores coincidan
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Formulario VBA ComboBox "enlazado" a TextBox
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para proteger celdas con datos
Prueba lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) ' Dim N1 As String If Intersect(Target, Range("B1:CP150000")) Is Nothing Then Exit Sub End If ' If Target.Value <> "" Then Target.Select ActiveCell.Offset(0, 1).Select N1 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar valores en rango dinámico según selector
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Solo poder imprimir mediante la macro
Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Por.Dante Amor If boton = False Then MsgBox "NO SE PUEDE IMPRIMIR POR ESTE MEDIO UTILICE EL BOTÓN SEÑALADO", vbCritical, "ERROR" Cancel = True...