jrgces

No parece necesario el uso de VBA. Si las 3 columnas implicadas tuviesen formato de texto (botón derecho -> formato de celdas -> solapa 'número' -> texto) debería bastar con concatenar en la columna I las columnas G y H. Por ejemplo, para la fila 2,...

Si he ententido el problema, no parece nesearia una fórmula. Podría ser suficiente la función DIAS.LAB. Por ejemplo: Sub prueba() Dim wksH As Worksheet Set wksH = Worksheets("Hoja1") With wksH MsgBox 1 + .[B2].Value - .[A2].Value -...

Yo probaría a "jugar" con las propiedades EnterFieldBehavior y/o MatchEntry del combobox ( F4 teniendo seleccionado el control en el modo diseño del userform ) Saludos_

Pienso que el problema está en If TextBox11.Text <= "6,6%" Then porque estás comparando cadenas de texto. Yo probaría con: if CDbl(Replace(Me.TextBox11.Value, "%", "")) <= 6.6 then Saludos_

Intenta: ComboBox2 = UCase(Format(Now, "MMM")) Saludos_

Parece que falta marcar la referencia a la librería "Microsoft Word XX.x Object Library", donde XX. X dependerá de la versión de Word instalada en el equipo, aunque en principio, dependiendo de la versión de Office, no debería ser necesario. Esto se...

Creo que el segundo And debería ser Or. Saludos_

Public Sub GuardarImagen() Dim choObj As ChartObject, chGráf As Chart, ptImagen As Object Dim blnGuardado As Boolean Worksheets("Hoja1").Range("A1:I26").CopyPicture appearance:=xlScreen, Format:=xlPicture Set choObj = ActiveSheet.ChartObjects.Add(0,...

No creo que haga falta una macro. Prueba con: =REDONDEAR.MAS(A1/50;0)*50 Quizás haya que sustituir el punto y coma por el separador de listas que esté establecido en la configuración regional del equipo. Saludos_

No dices (o yo no he visto) en qué columna están los proveedores. Suponiendo que dicha columna fuese AB, prueba con la siguiente fórmula matricial (hay que introducirla pulsando mayúsculas control entrada al mismo tiempo):...