Dante Amor

H o l a: Después de esta línea: Application.ScreenUpdating = False 'Det undgår, at skærmet blinker Agrega esta línea: If OptionButton1 Then OptionButton1 = False Prueba y me comentas.

H o l a: Si el libro está compartido, se tiene que quitar el modo compartido Si la hoja está protegida, se tiene que desproteger. Te anexo la macro, para quitar el modo compartido, desproteger la hoja, ocultar o mostrar las columnas, proteger la hoja...

H o l a: Agrega lo siguiente: Application.ScreenUpdating = True Private Sub MultiPage1_Change() Application.ScreenUpdating = True If Me.MultiPage1.Value = 1 Then Sheets("hoja2").Select Else Sheets("hoja1").Select End If End Sub Si estás apagando las...

H o l a: Si influye lo de las fórmulas, envíame tu archivo para revisar cuál sería la mejor forma para hacer la macro. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Abel Rodrigo” y el título de esta pregunta.

H o l a: Te anexo el código para enviar los datos al listbox Private Sub CommandButton5_Click() 'Por.Dante Amor 'Aceptar If TextBox1 = "" Then MsgBox "Falta descripción" TextBox1.SetFocus Exit Sub End If ' If TextBox2 = "" Then MsgBox "Falta unidad"...

h o l a: Puedes enviarme tu archivo para entender lo que necesitas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Luis Barrales” y el título de esta pregunta.

H o l a: También puedes poner en una variable la hoja, para que no la repitas; también puedes poner en una sola variable el número de fila en donde vas a escribir, ya se para crear o actualizar. Private Sub CommandButton3_Click() 'Por.Dante Amor Set...

H o l a: Estaba contestando tu pregunta anterior, sobre la comparación del rango de fechas, pero cuando le puse enviar, me encontré con que la pregunta ya no existe. Te anexo la respuesta, igual te ayuda a solucionar el problema de las estaciones del...

H o l a: En el editor de VBA no se pueden utilizar caracteres gráficos, solamente es un editor de texto, lo que puedes hacer es, por ejemplo, en la celda A1 escribe el caracter "┴" y en vba pon lo siguiente: Sub Macro1() ' Columns("B:C").Replace...

H o l a: Esta sería otra opción para controlar el error: Private Sub CommandButton1_Click() Valor = Application.VLookup(ComboBox1, Sheets("Proveedores").Range("b:k"), 7, 0) If IsError(Valor) Then MsgBox "Valor no encontrado" Else Me.Label1.Caption =...