xafel

Tengo un formulario que funciona con esta formula: For x = 5 To Range("A" & Rows.Count).End(xlUp).Row If prov = (Range("C" & x)) Then If Año1 = Year(Range("A" & x)) Then Sumasf(1) = Sumasf(1) + Range("F" & x) End If En la suma busca los los datos de...

Siguiendo la pregunta del otro día casi lo he resuelto pero me da los siguientes errores: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("c5:c100")) Is Nothing Then a = ActiveCell.Address Range(a).Copy...

Estoy haciendo una aplicación donde se van a poner nombres de personas y empresas y en la columna de al lado el DNI o Cif, he usado la siguiente fórmula para no tener que estar escribiendo los cifs, si no que una vez tenga la primera vez puesto el...

Tengo hecha una aplicación que busca los datos de una hoja (en este caso proveedor y año) con un formulario y los guarda en una hoja con el nombre del proveedor que crea si no existe o rellena en la siguiente columna, hasta aquí todo bien. Ahora lo...

Tengo que poner el año mas bajo de una lista en el textbox1 y así poniendo +1, +2 etc en los otros textbox los puedo llenar, la cosa es que no se que año es el primero cuando ponga el formulario en la aplicación correspondiente, de momento he...

Tengo un problema VBA excel me da un error, os cuento: En una hoja creo un gráfico al entrar en ella, y tengo un botón para borrarlo pero lo que quiero es que se borre al salir de esa hoja por si no lo he borrado, por que si no al volver a entrar...

Estoy haciendo una aplicación que crea una hoja y la llama como pongas en el combobox, pero si la hoja ya existe entonces solo debería guardar los datos que están en el formulario El código de crear la hoja funciona bien nombre =...

En 2016 me solucionaron un problema de suma por meses que me ha funcionado muy bien hasta ahora, que además de por mes necesito que sea por mes y año, es un listado de gastos de varios años y necesito ver lo gastado por mes en cada año lo he...

Os adjunto el código que me da este error y por más que he probado no doy con la solución Private Sub UserForm_Initialize() Dim final As Integer Dim NroFila As Integer NroFila = ActiveCell.Row final = NroFila Me.TextBox1.Text =...

Estoy haciendo una aplicación para saber quienes cumplen años el día de mañana lo estoy intentando hacer con la siguiente fórmula pero no la hago bien...