Jhone Ruiz

Dante Amor respondió: Como quieres enviar el correo, ¿por outlook? ¿A qué password te refieres? Espero tus comentarios. Saludos. Dante amor

Dante Amor respondió: Agrega este código en el evento Activate Private Sub UserForm_Activate() TextBox1.Enabled = False ComboBox2.Enabled = False End Sub En el evento combobox1_Change Private Sub ComboBox1_Change() 'Por.DAM TextBox1.Enabled = False ComboBox2.Enabled =...

Aneudys Martinez respondió: Mándame el archive para agregar la macro [email protected]

Dante Amor respondió: H o l a: Te anexo la macro Cambia en la macro "Hoja10" por el nombre de la hoja que contiene los datos Cambia "B" por la columna donde tienes los códigos La macro supone que tienes en la fila 1 los encabezados y en la fila 2 empiezan tus datos. Al...

Dante Amor respondió: H o l a: Te anexo la macro. Según tus comentarios necesitas 3 hojas, una para poner la lista de validación, la 2 donde tienes tus datos y la 3 para poner el resultado. Cambia en la macro "Hoja1", "Hoja2" y "Hoja3" por los nombres de tus hojas También...

Dante Amor respondió: H o la: Te anexo el código para guardar en la hoja del otro libro. El libro BDCCOSTOS.xlsx deberá estar abierto. El código tiene un ejemplo, deberás adaptar mi ejemplo a tus datos, por ejemplo, yo puse TextBox1 con el nombre de la hoja. También puse...

Dante Amor respondió: Te anexo la macro actualizada Sub Imprimir_Click() 'Act.Por.Dante Amor num = InputBox("Escribe el número de folios a imprimir", "IMPRIME FOLIOS") If num = "" Or num = False Or num = 0 Or Not IsNumeric(num) Then MsgBox "Impresión cancelda",...

Elsa Matilde respondió: Lo que debes agregar son las instrucciones para hacerla visible y al finalizar volverla a ocultar: Private Sub CommandButton1_Click() Application.ScreenUpdating = False Application.DisplayAlerts = False Set h = Sheets("Etiquetas") If h.Range("A1") =...