Dante Amor

Sigue los pasos. Si el combo está en una hoja: Pon el siguiente código en los eventos del libro para cargar por primera vez los nombres en el combo Private Sub Workbook_Open() 'Por.Dante Amor Sheets("Factura").Select Set h2 = Sheets("hoja2") col =...

Te anexo un par de macros La primera, te pone una fórmula como esta: =SI(C15="m",SI(M15>0,N15*M15,""),SI(C15="s",SI(M15>0,O15*M15,""),"")) La fórmula verifica si en la celda C15 tienes una letra "m" o una "s" u otro valor. Sub Macro() 'Por.Dante Amor...

Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor cFactura = "C5" 'Celda de factura cFecha = "D3" 'Celda de fecha If Not Intersect(Target, Range(cFactura)) Is Nothing Then If...

Me gusta más usar el For Next, en la misma línea le indicas de dónde a dónde quieres el ciclo For i = 1 to 10 (va desde 1 hasta 10, de uno en uno) También le puedes indicar que avance de 3 en 3 For i = 1 to 10 step 3 (va desde 1 hasta 10, de tres en...

Recomendaciones para reducir el tamaño de archivos: Lo que hago para reducir el tamaño, es quitar formatos que no se utilizan, quitar fórmulas que no se utilizan, crear las fórmulas hasta que pones datos, quitar formatos condicionales. Otra forma es...

Podrías explicar un ejemplo, qué hay que buscar, qué se debe copiar y en dónde se va a pegar. También puedes actualizar las imágenes para que se vean las filas y las columnas de excel, así como los nombres de las hojas.

Para que funcione de manera automática, pon la siguiente macro en los eventos de tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Range("C2")) Is Nothing Then...

H ol a : en el evento Change del Textbox Fecha no hagas nada. Pon lo siguiente en el botón agregar: Private Sub CommandButton1_Click() 'Por.Dante Amor 'Agegar If Fecha.Value = "" Or Not IsDate(Fecha.Value) Then MsgBox "Captura una fecha correcta",...

H o l a: Te anexo la macro actualizada Sub Pasar_ID() 'busca "Verdadero" copia y pega 'Por.Dante Amor Sheets("hoja1").Select ufila = Range("E" & Rows.Count).End(xlUp).Row 'última fila con datos de la columna E col = Columns("E").Column 'número de...

H o la: Te anexo unos comentarios. El detalle está en que cuando cambias de color una celda, no se activa ningún evento. Te explico. El evento "Private Sub Worksheet Change", se activa cuando modificas el valor de una celda. Cambiar el color o el...