Dante Amor

Primero selecciona la imagen y después ejecuta la siguiente macro Sub a_PowerPoint() 'por.dam On Error Resume Next Selection.Copy Set PPApp = CreateObject("Powerpoint.Application") PPApp.Visible = True Set ppFile = PPApp.Presentations.Add(True)...

Con esto puedes leer todos los controles que tienes en tu formulario i = 2 For Each ctrl In Me.Controls If TypeName(ctrl) = "Label" Then If ctrl.Caption <> "" Then ctrl.Caption = i End If i = i + 1 End If Next con esta instrucción puedes saber si el...

Esta parte no me queda clara: "Dicho rango comienza desde la celda b5 y termina en la fila que se encuenta la función en la misma celda b" ¿Qué dato necesitas? ¿El último de la columna B? Para lo segundo: ¿Qué vas a pasar como parámetro en...

Esta sería la macro Sub Guardar() ActiveSheet.DisplayPageBreaks = False mio = ActiveWorkbook.Name ruta = Hoja1.Range("p1") Workbooks.Add otro = ActiveWorkbook.Name Workbooks(mio).Activate Sheets(Array("COMPRAS_CAB", "COMPRAS_DET")).Copy _...

El número que estás poniendo lleva guiones o espacios. Y te regresa algún mensaje de los que tienes en MsgBox, ¿o solamente cierra el form4 y el form3 y no selecciona la hoja? ¿Te envía algún mensaje de error? Si quieres envíame tu archivo y lo reviso.

¿Cómo tienes la instrucción en tu macro para registrar en la hoja? Por ejemplo: si tienes esto range("D5") = fecha Puedes ponerlo así Range("D5") = format(fecha, "mm/dd/yyyy") Aunque veas en el formato esto: "mm/dd/yyyy", realmente te va a poner en...

Previamente selecciona la celda en donde vas a poner la fórmula y ejecuta la macro. Si tu fórmula es matricial ocupa esta Sub Macro1() ' Selection.FormulaArray = _ "=IFERROR(INDEX(R1C3:R3C3,MATCH(1,COUNTIF(R1C1,""*""&R1C3:R3C3&""*""),0)),"""")" End...

Esta es la macro para sumar las celdas de N4 en adelante, el resultado te lo pone en la celda M4 Sub sumarm() 'Por.DAM c = Cells(4, Columns.Count).End(xlToLeft).Column If c < Columns("M").Column Then c = Columns("N").Column Range("M4") =...

Con esto puedes fijar la ruta y el archivo Sub abrirarchivo() 'Por.DAM ruta = "C:\Documents and Settings\Mis documentos\" arch = Range("D5") Workbooks.Open Filename:=ruta & arch End Sub Cambia la ruta por la que tienes en tu servidor Cambia "D5" por...

Si la celda activa está en la columna A, B o C, te va a enviar error, porque ya no hay columnas a la izquierda y quieres que se active la celda de 3 columnas a la izquierda. Si la celda activa está en la columna D y quieres seleccionar la celda 3...