Marcial C. C.

Marcial C. C.

Experto en Excel VBA
 47,6K puntos  Galicia, España @cascamar desde - visto

Preguntas esperando respuesta

Actividad pública reciente

Ha respondido en

Macro para buscar iguales y sumar sus valores de la columna siguiente

Y si utilizas una fórmula, ¿no te valdría?. Pon en A1 el nombre del Proveedor ( o en una celda que no utilices) y en A2 (o en una celda que no utilices), esta fórmula) =SUMAR.SI($B$7:$B$50;B7;$J$7:$C$50) Con lo cual tienes un buscador en dos celdas....
Ha respondido en y en 1 temas más

Como cambiar de formato de fecha al volcar el dato desde un formulario

Me imagino que cuando dices que se ha introducido en formato mm/dd/yyyy, es cuando grabas lo que hay en el textbox en una celda. El problema está en que en el textbox, lo que tienes es un texto y lo hay que convertir a fecha, haz lo siguiente:...
Ha respondido en y en 1 temas más

Resumen de los cambios de Excel2010 32bit a Excel2013 64bit?

Realmente es igual que utilices la versión de 32 o la de 64 bits, depende de tú máquina, las características de ambas versiones son las mismas. Con respecto a lo nuevo de 2013, aquí tienes un resumen:...
Ha respondido en

¿Cómo desactivar el botón de cerrar del inputbox?

Ten en cuenta que si el usuario pulsa el botón Cerrar o el botón Cancelar del inputbox, la variable donde guardas la reSpuesta del inputbox estará vacía. Sabiendo esto es fácil conseguir lo que quieres, compara esa variable y si está vacía es que ha...
Ha respondido en y en 1 temas más

Macro que guarde una copia de un archivo de excel

Prueba con esto, para un libro con macros: Sub GuardarConMacros() nombreCopia = "El nombre con el que quieras guardar la copia del libro" ActiveWorkbook.SaveAs nombreCopia, xlOpenXMLWorkbookMacroEnabled End Sub Y esto para un libro sin macros Sub...
Ha respondido en y en 1 temas más

Marcel: Como escribir una cadena de IF or Else

Es más fácil así: Private Sub Worksheet_Change(ByVal Target As Range) 'Solo se ejecuta si se ha cambiado la celda B2' If Not Intersect(Target, Range("B2")) Is Nothing Then 'Mediante un Select Case controlamos el valor de B2 Select Case...
Ha respondido en

Añadir más condiciones con inputbox

Aquí te dejo el código Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer Private Const VK_CAPITAL = &H14 Sub Nueva_Antigua() Dim tipo As Variant If GetKeyState(VK_CAPITAL) = 1 Then resp = MsgBox("¡Las mayúsculas...
Ha respondido en y en 2 temas más

Abrir otro programa con una macro

Prueba con esto: Sub AbrirPrograma() ejecuta = Shell("C:\Facturación\Factur.exe ", vbMaximizedFocus) End Sub Cambia la ruta y el ejecutable y listo. Si te ha valido la respuesta.
Ha respondido en y en 1 temas más

Ajuste Formula de Día Laborable excel vba

Es raro, el código funciona correctamente. ¿Dónde tienes colocado el código? ¿Así? Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim FechaInicio As Date, FechaFin As Date, n As Integer FechaInicio = TextBox7.Text FechaFin = Date If...
Ha respondido en y en 1 temas más

Porque no me funciona una macro de windows7 excel 2010 en un Mac excel 2010?

Este enlace te ayudará. http://es.wikihow.com/utilizar-Macros-en-Excel
Ha respondido en

Fórmula para calcular promedio de ciertos montos, SIEMPRE para los últimos SEIS meses

Prueba esta fórmula poniendo tus rangos, yo supongo que las fechas están en la columna A y los Montos en la columna B. =PROMEDIO.SI.CONJUNTO(B1:B21;A1:A21;">=" & HOY()-180;A1:A21;"<=" & HOY()) Si te ha valido la respuesta.
Ha respondido en y en 2 temas más

Copiar datos de una hoja de excel 2003 a otra de acuerdo con un criterio determinado y generar hojas con esos nombres

Esto hace lo que pides: Sub Crear_Hojas() Dim hoja As Worksheet 'Por Marcial Castro Set h1 = Sheets("DATOS") Set h2 = Sheets("DATOS QUÍMICOS") 'Recorremos la hoja DATOS For t = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row If h1.Cells(t, 2) =...
Ha respondido en y en 1 temas más

Como permitir acceder al libro solamente en dos PC

Es posible, por ejemplo, sabiendo el nº de serie de los discos duros y que al abrir el archivo lo compruebe, si no es alguno de los discos permitidos, cierra Excel. De todas formas, con conocimientos avanzados se podría desproteger el código, y...
Ha respondido en

Sumar horas a una fecha en excel

José Manuel, tienes que saber que en Excel, si las horas a sumar, las tienes en una celda con formato número o general, el numero 1 son 24 horas, es decir que cuando las sumes a la fecha y hora que tienes en la columna A, debes de dividirlas por 24....
Ha respondido en

Copia de Hoja y poner la nueva en el sitio deseado

Si te entendí bien y lo que quieres es copiar los datos de la hoja Enero a la nueva hoja creada, utiliza este código: Sub Nueva_Antigua() hoja_Nueva = (InputBox("Ponga el nombre de la NUEVA HOJA")) & hoja_Nueva Hoja_Antigua = (InputBox("Ponga el...
Ha respondido en

¿Cómo activar el botón cancelar del InputBox en excel?

Hay que distinguir entre la cadena vacía, que es devuelta por la pulsación del botón de Cancelar y cuando el contenido del InputBox es blanco y pulsamos el botón de Aceptar. Para hacerlo necesitamos de una función Api como es StrPtr Quedaría así:...

Experiencia

Experto en Excel VBA. Por favor explica de forma clara tu duda o problema. SI es necesario, muestra imágenes o ejemplos de lo que necesitas.