jerryeagle

En el evento open de ThisWorkbook pon esto: ActiveSheet.Range("A10").Value =0 Así cada vez que se abra el archivo el contador iniciará de 0

Lo que hace pesado a los libros de Excel son las fórmulas, una forma de "alivianar" la carga es que el calculo de las fórmulas no sea automático, pero tendrías que presionar F9 para actualizarlas. Otra forma seria con macros que calculen al momento y...

Un ejemplo seria así: Private Sub TextBox1_Change() 'Solo Numeros If Not IsNumeric(Me.TextBox1.Value) Then Me.TextBox1.Text = "": Exit Sub End Sub Private Sub TextBox2_Change() 'No Numeros If IsNumeric(Me.TextBox2.Value) Then Me.TextBox2.Text = "":...

Un InputBox no es multilínea, ¿pero cuál seria la ventaja de que lo fuera? Si de todos modos el usuario debe presionar ENTER para cambiar de renglón (Igual que si presiona ENTER para que aparezca tu 2o. InputBox)

Bueno la Consulta SQL seria así: SELECT * FROM (El nombre de tu Tabla) WHERE Nombre = @Nombre AND Edad = @Edad Ahora, ¿cómo haces normalmente las consultas? Para poder ayudarte y adaptarlo a tu caso

Intenta así: Sub imprimir() If MsgBox("Desea imprimir el documento?", vbYesNo) = vbYes Then Application.Dialogs(xlDialogPrint).Show End If End Sub

No med queda claro por que debe aparecer otro userform y poner otro valor, ¿es para diferentes celdas? Si es solo un textbox, mejor usa un InputBox Range("Tu Celda").Value = Val(InputBox("Escriba un número") Si pudieras explicar mejor qué es lo que...

Esto se puede hacer sin macros, usa la función BUSCARV, en la celda donde quieres poner por ejemplo el nombre del Cliente, escribe: =BUSCARV("Valor", "Rango", "Columnas", "V/F") Explicacion: Valor = El valor a buscar (Codigo por ejm) Rango = En que...

En el evento Worksheet_Change pon esto: Private Sub Worksheet_Change(ByVal Target As Range) Dim Consecutivo, Formato As String Application.ScreenUpdating = False Consecutivo = Range("C2").Value If Target.Address = "$C$2" And Not Target.Value = ""...

Hice una macro con la que incluso puedes hacerlo más dinámico, con un inputbox preguntas que el valor que deseas buscar y con otro inputbox le dices el nuevo valor. Dim V1, V2 As Variant V1 = InputBox("Escriba el valor que desee Modificar") V2 =...