Dante Amor

Te anexo la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 6 And Target.Row > 2 Then ActiveSheet.Unprotect "abc" fila = Target.Row Range("A" & fila - 1 & ":E" & fila - 1).AutoFill _ Destination:=Range("A" &...

Te anexo la macro con el ciclo que va desde la fila 2 hasta la última fila con datos de la columna A Sub PasarDatosaPdf() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set h2 = Sheets("Datos") 'contador ' celdas...

Te anexo la macro Sub Pegar() 'Por.Dante Amor Set h = ActiveSheet 'validaciones If h.ComboBox1.Value = "" Then MsgBox "Falta el artículo", vbExclamation Exit Sub End If If h.ComboBox2.Value = "" Then MsgBox "Falta la talla", vbExclamation Exit Sub...

Envíame tu archivo para revisar cómo poner la barra de progreso. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Nicolas Koroll” y el título de esta pregunta.

Te anexo un ejemplo con 4 textbox, deberás cambiar los nombres de los textbox y las columnas donde va cada textbo, así como agregar todas las celdas y los controles que quieras revisar. Private Sub CommandButton1_Click() 'Por.Dante Amor 'valida si el...

Envíame tu archivo y me explicas con un ejemplo tu requerimiento

Tiene que ser con una macro. Las celdas a revisar son las de la columna D. Si en la columna D no tienes fórmulas, entonces pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Not...

Entra al menú de VBA, presiona Alt + F11. Del lado izquierdo verás todas las hojas. Selecciona hoja por hoja y en la parte inferior busca la propiedad "Visible". Cambia la propiedad a "-1 xlSheetVisible" Ya que hayas hecho visibles todas las hojas,...

Te anexo la macro Sub Comparar_Columnas() 'Por.Dante Amor ' j = 1 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Set b = Columns("C").Find(Cells(i, "A"), lookat:=xlWhole) If Not b Is Nothing Then Range("A" & i & ":B" & i).Copy Cells(j, "D") j = j...

Te anexo el código actualizado, también agrega la macro "agregar" en el mismo código del formulario Private Sub Combobox1_Change() Dim i As Integer Dim libro As Workbook ComboBox2.Clear Set libro = Workbooks.Open("libroprueba.xlsm") With...