Dante Amor

Existe la función Celda( ), utilizando el tipo "Color" el resultado puede ser: Valor 1 si la celda tiene formato de color para los valores negativos; de lo contrario, devuelve 0 (cero). Información tomada de este enlace:...

Te recomiendo lo siguiente: Si el objetivo de capturar el dato, es pasarlo a una hoja, entonces, lo más práctico, cuando presiones el botón de "registrar en la hoja", es realizar las validaciones, por ejemplo: Private Sub CommandButton1_Click()...

Sigue los pasos de este enlace: MACRO de excel para imprimir varias hojas de un mismo libro Pero utiliza la siguiente macro Private Sub CommandButton1_Click() 'Por.Dante Amor For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then h =...

Prueba así: Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Por.Dante Amor For Each h In Sheets If h.Name <> "inicio" Then h.Unprotect "abc" h.Cells.Locked = False h.UsedRange.SpecialCells(xlCellTypeConstants, 23).Locked = True h.Protect "abc",...

Para filtrar entre un rango de fechas necesitas 2 textbox para que puedas poner la fecha desde y la fecha hasta. Envíame tu archivo con el userform y me explicas en dónde quieres el filtro Mi correo [email protected] En el asunto del correo escribe...

Estoy confundido. ¿El label está en una hoja o en tu userform? ¿El consecutivo está en una sola celda en cuál? ¿O está en varias filas en una columna en cuál? ¿En la hoja "Datos" también guardas el consecutivo? Mejor envíame tu archivo con varios...

Te anexo la macro con los cambios. Primero revisa si existen filtros, si hay filtros los quita, si no hay filtros entonces se posiciona en la primera celda vacía Sub quitar_filtros() Dim ultima As Long 'Revisa filtro de autofiltro If...

Puedes escribir lo siguiente: - Cómo se llama tu hoja con la base de datos - En qué columna está la fecha - En qué columna están los turnos de trabajo (y pon unos ejemplos) - Qué columnas quieres presentar - Supongo que ya tienes un listbox, cuántas...

Te anexo el código con los ejemplos: Private Sub CommandButton1_Click() 'Por.Dante Amor ' 'botón para registrar en la hoja ' ' 'Validaciones ' If TextBox1 = "" Then MsgBox "El textbox1 debe llenarse", vbExclamation, "REGISTRAR" Exit Sub End If If...

Te anexo una macro. La macro siempre te crea la hoja "Resultados", en la columna A te pone los datos encontrados con el * al final. Sub Buscar_Asterisco() 'Por.Dante Amor ' Application.DisplayAlerts = False On Error Resume Next...