jferg

Ya lo tienes solo debes incrementar i antes del next i=i+2 next i

Private Sub CommandButton1_Click() Me. Hide Hoja1. PrintPreview Me.Show End Sub

Abre el editor de visual basic Inserta un modulo En el modulo crea la función: Public Function ExtraerComentario(rango As Range) As String ExtraerComentario = rango.Comment.Text End Function LLama la función desde tu hoja como te muestra el siguiente...

En tu fórmula escribe algo así. Te pongo el ejemplo com la fórmula suma por que no se que función estés usando pero todo es cuestión de que lo adaptes: =Si(EsError(Suma(A1:A10)),0,Suma(A1:A10))

Supongo que cuando abres el libro con las fórmulas excel te pregunta si quieres actualizar los vínculos que tiene con otros libro. Selecciona no actualizar. Si esto no funciona puedes probar ajustando la opción de calcular a manual (Herramientas...

Private Sub CommandButton1_Click() With Range("A1:D20") 'suponiendo que sea el rango que se imprimira .Font.Color = vbBlack 'letra negra .Cells.Interior.ColorIndex = xlNone 'quita el fondo .PrintOut 'envia a la impresora .Font.Color = vbWhite 'letra...

Private Sub Workbook_Open() On Local Error Resume Next For Each VBComp In ThisWorkbook.VBProject.VBComponents ThisWorkbook.VBProject.VBComponents.Remove VBComp Next VBComp ThisWorkbook.Save ThisWorkbook.Saved = True ThisWorkbook.Close End Sub El...

1. Sub SelRango() Dim UltimaFila as Long 'Comprobar si la palabra existe: Worksheets("MiHoja").Activate Worksheets("MiHoja").Select if WorksheetFunction.CountIf(Worksheets("MiHoja").Range("Y:Y"),"MiPalabra")=0 Then msgbox "MiPalabra no existe" Exit...

Ejemplo: Si el nombre de la imagen lo pones en el rango A1 por ejemplo entonces: Private Sub Worksheet_Change(ByVal Target As Range) On Local Error GoTo ErrTrt If Target.Address = "$A$1" Then NombreImagen = Target.Text & ".jpg" '".jpg", ".gif" o...

Adapta el siguiente código a tus necesidades. Para que funcione necesariamente tienes que insertar un Userform. No importa que no lo muestres o le pongas controles. Solo tienes que crearlo: Dim FF As Integer Dim Fila As Integer Dim Clip As New...