Eduard Caballero

Puedes usar el siguiente Macro Sub Macro1() 'Determina la ultima fila con datos fin = Range("C1000000").End(xlUp).Row 'Selecciona el Rango Range("C26:O" & fin).Select 'Finalmente coloca los bordes Selection.Borders(xlDiagonalDown).LineStyle = xlNone...

Lo que debes hacer es llamar al sub que realiza la comparación cuando abre el libro. Debes crear ese procedimiento y llamarlo por ejemplo compara Seria algo como Private Sub Workbook_Open() D = Day(Now) If D > 15 Then Exit sub Else Call compara 'Aqui...

Eso es sencillo, usa la función SI. ERROR. Ejemplo de sintaxis =SI.ERROR(BUSCARV(H4;A:E;2;0);"") Este caso si BuscarV devuele N/A lo dejara en blanco

Aquí tienes un código y espero te sirva Sub filtrar() Dim dStartDate As Date Dim dEndDate As Date Dim myrango, myrango1 As Range Dim celda As Object Dim reg, uf As Integer Dim aei As String dStartDate = UserForm1.TextBox1.Text dEndDate =...

Prueba con esto. Espero te ayude. Sub isertafila() Dim i, x, z As Integer Application.ScreenUpdating = False z = 3000 ' Celda donde terminan los datos For i = 2 To z If IsDate(Cells(i, 1)) Then For x = 1 To 5 ' este for inserta las 5 filas...

Disculpa la tardanza en responder. Si requieres mas condiciones y el if te da error usa la estructura Select Case Aquí encontraras un ejemplo de como usarlo. http://www.allexcel.com.ar/programacion%20VBA/Select-Case/Select-Case.php

Esto lo logras usando el formato condicional con formula al rango deseado. En la pestaña inicio seleccionas Formato condicional--Administrar regla---Nueva regla Allí te aparecen varias opciones y seleccionas Utilice una formula que determine las...

Si es posible enviame el archivo a [email protected] para ayudarte con lo que necesitas

No tengo claro que es lo que quieres hacer. Pareciera q estas usando la grabadora de macros y en este caso no te servirá. Debes primero abrir el libro y luego situarte en la hoja. Por ejemplo Workbooks.Open Filename:="C:\tuarchivo.xlsx"...

Aquí tienes el siguiente código Private Sub exporta() Dim nom, pues As String Dim miHoja As Object Dim txt nom = ActiveCell pues = ActiveCell.Offset(0, 1) txt = "c:\carta.rtf" Set miHoja = CreateObject("Word.Application") miHoja.Visible = True...