Abraham Valencia

[Hola Intenta así: =CONTAR.SI.CONJUNTO(B8:B26,F2,C8:C26,D3) Ojo, yo uso "coma" como separador de lista, de usar tú "punto y coma", solo reemplaza. Saludos] Abraham Valencia

[Hola Suponiendo que todas las celdas tiene realmente nueve caracteres y que solo se cambia el último por un número cinco, entonces esto te será útil: Sub Cambiar() Dim Celda As Range For Each Celda In Range("A1:A30") Celda.Value = Left(Celda, 8) & 5...

[Hola En la macro que guarda seguramente tienes alguna línea que borra y/o deja en blanco a Txt_cantidad1, al hacer eso activas su evento "Change" y como posiblemente has hecho lo mismo con Txt_Venta1, ocasiona un error en la operación en donde te...

[Hola Para que en un "UserForm" funcione el tener botones de maximizar/minimizar tanto en Office de 32 bits como en Office de 64 bits, se debe colocar lo siguiente en el módulo del "UserForm: #If VBA7 Then Private Declare PtrSafe Function FindWindow...

[Hola Pues necesariamente tienes que usar VBA. Tal como pones en tu "asunto" (macro), pero tampoco es que sea tan simple. Dale una leída a estos enlaces como para que te vayas dando idea:...

[Hola Prueba así: Range("D6") = Date + TimeValue("06:00") Comentas Abraham Valencia

[Hola ¿Cómo intentas imprimir el Userform? ¿Mediante "Printform? De ser ese el caso, no podrás cambiar el formarto con el método "PrintForm" pues no tiene propiedades, para lograrlo una forma sería recurrir a las funciones de la API de Windows,...

[Hola Prueba esto, solo debes copiarlo y pegarlo en el módulo de la hoja en donde requieres el efecto solicitado: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$12" Then Range("F9").Value = Range("F9").Value + 1 End If...

[Hola ¿Qué hay en "LIMPIARCHECKBOX"? ¿qué son "W" y "H"? ¿En qué celda de cada hoja debería insertarse la imagen? Además de las seis hojas que mencionas ¿cuántas hojas más hay y cómo se llaman? Abraham Valencia

[Hola Una forma rápida de eliminar un carpeta con todos los archivos que contenga, es la siguiente: Sub BorrarCarpeta() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") FSO.DeleteFolder "D:\Carpeta" End Sub Ah, eso sí, la...