Adriel Ortiz Mangia

H o l a Sub guardarcomoxlam() 'cambia la ruta para guardar el archivo ruta = "C:\Documents and Settings\expertos\" ' Application.DisplayAlerts = False ActiveWorkbook.SaveAs ruta & ".xlam", FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close End Sub no...

H o l a ¿Aun necesitas la solución?

Cambia esta línea dia = Day(Date) If Day(Date) = 2 Then valora la respuesta para finalizar

H o l a prueba esto y me comentas Private Sub Worksheet_Change(ByVal Target As Range) Set h1 = Sheets("Datos") Set h2 = Sheets("Captura") Set b = h1.Range("A7:A999999").Find(What:=h2.Range("R7").Value, LookAt:=xlWhole) If Not b Is Nothing Then MsgBox...

H o l a te paso la macro que genera el código y pasa los datos de los textbox Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") ' hoja donde se guardará los datos ' u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 j = h1.Range("A" &...

H o l a te paso la macro nomb = Textbox12 & "_" & h.Name & "_" & TextBox13 h.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=Ruta & nomb & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False,...

Te paso la macro Sub CopiarDatos() 'Por Adriel Ortiz Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") j = h2.Range("H" & Rows.Count).End(xlUp).Row + 1 For i = 3 To h1.Range("H" & Rows.Count).End(xlUp).Row If h1.Cells(i, "H") = "cerrado" Then...

H o l a prueba esto Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("K5:K34")) Is Nothing Then ' If UCase(Target.Value) = "ERROR" Then call Mandar_Correo2 End If ' End If End Sub Valora la respuesta para finalizar...

H o l a te paso un ejemplo de un formulario con 3 textbox Set h1 = Sheets("Hoja1") ' hoja donde se guardará los datos u1 = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 ' captura la ultima fila para vaciar los datos a la hoja h1.Cells(u1, "A") =...

H o l a ¿Pero cuál es el rango a seleccionar? Puedes mostrar unos ejemplos