Marcial C. C.

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....

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:...

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:...

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...

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...

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...

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...

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.

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...

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

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.

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) =...

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...

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....

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...

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í:...