Dante Amor

Cambia esto: For Each Hoja In ActiveWorkbook.Sheets Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count) num = Right(Workbooks(A).Sheets(Workbooks(A).Sheets.Count).[A3], 4) Workbooks(A).Sheets(Workbooks(A).Sheets.Count).[F6] = num Next Por...

H o l a: Te anexo la macro para que la pongas en un botón: Sub EliminarFilas() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If UCase(h1.Cells(i, "D")) = "ABIERTO" Then Set r =...

H o l a: Te anexo el código de los eventos de tu hoja Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) '---------------------------------- If Not Application.Intersect(Target, Range("D22, D23")) Is Nothing Then 'Set...

H o l a: Te anexo el código de la clase Option Explicit Public WithEvents tbxCustom1 As MSForms.Label 'Custom Textbox 'Referencia 'http://www.ozgrid.com/forum/showthread.php?t=80631 ' Private Sub Class_Terminate() 'Destroy The Class Object And Free...

H o l a: Te anexo el código Private Sub UserForm_Initialize() 'Por.Dante Amor 'Cargar etiquetas en la clase Dim ctlLoop As MSForms.Control Dim clsObject As Clase1 ' Set colTbxs = New Collection 'Create New Collection To Store Custom Label For Each...

H o l a: Te anexo la macro actualizada, solo ayúdame con el nombre del libro, le puse: "FACT CANC JULIO 2015.xlsm", revisa si es correcto en la macro. Deberás tener abierto el libro para que la macro funcione. If Not Intersect(Target, Range("G:H"))...

H o l a: Si ya no te funciona esa instrucción, entonces, una opción es cambiar la función para enviar correos. ¿El correo lo estás enviando por outlook? Explícame qué necesitas enviar y cambio la función a CreateObject("outlook.application") '

H o l a : Prueba el siguiente código que se utiliza para minimizar el userform: Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function...

H o l a: puedes pasar la fecha a la celda en el evento activate del userform, cada que abras el formulario te pondra la fecha de hoy en la celda, y tambien deja el evento change para cuando cambies la fecha. s a l u d o s

H o l a: Podrías explicarlo con imágenes y un solo ejemplo. Pon 3 imágenes, la primera con los datos originales y me dices cuál es el ejemplo La segunda, de cómo quieres el resultado La tercera con la tabla después de borrar el dato del ejemplo....