antares18

Sub AutomatizadoConTierras() Dim i as double for i=2 to 50 'On Error Resume Next Windows("LISTA").Activate Range("A"+cstr(i)).Select Application.CutCopyMode = False Selection.Copy Windows("FORMATO.xlsm").Activate ActiveSheet.Paste Application.Run...

La celda que copias el resultado, pones las siguientes lineas para cambiarle el color, pero esto solo funciona si es una sub. El ColorIndex, son 16 colores que ya tiene Excel asignados Si el color no lo encuentras en esos 16, está la función Color,...

La fórmula de la renta anual es esta Ct=C*(1-(1+i)^(-a)) i Ct=Capital total que obtienes C= Capital que pones cada año i= interés anual a= Número de años Para rentas mensuales es Ct=C*(1-(1+(i/12))^(-a*12)) (i/12) i=Interés anual se divide entre 12...

dim i as integer i=7 'Todo esto suponiendo que los datos están seguidos, si no es así dímelo y te lo hago de otra forma While(Activesheet.Range("A"+cstr(i))<>"") Nombrdelarchivo = Range("A"+cstr(i)) 'Aquí deberías poner si el archivo existe ' Aquí me...

Te falla porque en resultado12 = Buscar_Interseccion(Range("R37").Value, Range("S38").Value, "C6", 3) y resultado23 = Buscar_Interseccion(Range("S37").Value, Range("T38").Value, "D6", 2) Le estás pasando el contenido de la celda, no la dirección de...

Private Sub CommandButton1_Click() Dim i As Integer i = MsgBox("Esta seguro de que quiere ejecutar la Macro1?", vbYesNo) If (i = 7) Then Exit Sub Else 'El código de tu macro End Sub 'Cuidado que por defecto te sale que quieres ejecutar la macro

Sería Select Case X case "hola" activesheet.Range("A1").Offset(0,2)="Saludos" ->Te pone Saludos en la C1 'El offset se usa como relativo a la celda que pones en el range. En este caso es 2 'columnas a la derecha Si fuera (2,3) serían 2 filas más...

Es =CONTARA(A3:A250). Esta función cuenta el numero de celdas que no son ""

Si en vez de empty pones "" también te lo coge while(x="") x = InputBox("Nombre del archivo") If x = ""(Empty) Then MsgBox ("El archivo no está activo") End If Wend

Yo lo he probado como lo has puesto tu y me da bien, excepto esto call Sub Worksheet_Change1(Target)