Dante Amor

Te anexo la macro Sub Copiar_Valores() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Origen") Set h2 = Sheets("Destino") ' For i = 5 To h2.Range("A" & Rows.Count).End(xlUp).Row If h2.Cells(i, "A") <> "" Then Set b =...

Pon el siguiente código en tu Userform, te puse los ejemplos para los combos del 1 al 4 Private Sub Combo_Descripcion1_Change() Call Carga_Text(Combo_Descripcion1, Text_Codigo1) End Sub Private Sub Combo_Descripcion2_Change() Call...

Prueba lo siguiente: Private Sub Worksheet_Change(ByVal Target As Range) ' Dim N1 As String If Intersect(Target, Range("B1:CP150000")) Is Nothing Then Exit Sub End If ' If Target.Value <> "" Then Target.Select ActiveCell.Offset(0, 1).Select N1 =...

Te anexo las macros actualizadas, incluso para versión excel 2010. La macro del módulo "Enviar_Correos" Sub Enviar_Correos() '--- ' Por.Dante Amor '--- '***Macro Para enviar correos col = Range("P1").Column For i = 2 To Range("B" &...

Sí, envíame tu archivo para ver las filas y las columnas en donde buscar. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “xitus” y el título de esta pregunta.

1. ¿El selector es un combobox de control activeX? 2. ¿En la fila 19 tienes fechas o textos? 3. ¿Los valores están en una tabla? ¿O es un rango de datos? 4. ¿En las filas inferiores tienes totales? 5. También hay que copiar la columna de Total 2018...

Pon la siguiente macro en los eventos de Thisworkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Por.Dante Amor If boton = False Then MsgBox "NO SE PUEDE IMPRIMIR POR ESTE MEDIO UTILICE EL BOTÓN SEÑALADO", vbCritical, "ERROR" Cancel = True...

Tienes pendiente valorar esta pregunta: Generar txt mostrar en lista desplegable dos columnas Para limitar la longitud de una columna, selecciona la celda o la columna, entra al menú Datos, Validación de datos, Validación de Datos, en Permitir...

Esta podría ser una forma para las filas 5,10,15 Sub centrar() 'Por.Dante Amor Application.ScreenUpdating = False filas = Array(5, 10, 15) For i = LBound(filas) To UBound(filas) ajustarfila Range("B" & filas(i) & ":I" & filas(i)) Next...

Te anexo le código actualizado para generar el txt Private Sub GenerarTXT_Click() 'Sub Guardar_Txt_Comas() ' ' Por.Dante Amor ' Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Set h =...