Luis_P

Podrías utilizar el evento change de la hoja para evaluar el valor de la celda en cuestión En este caso seria: Para el rombo de nombre "1 Rombo" considerando la celda F1 como la celda a evaluar Private Sub Worksheet_Change(ByVal Target As Range)...

¿Te refieres al control DTpicker o al Monthview? ¿En qué fila están las fechas a buscar?

Para eso yo utilizo una solución bien sencilla Realizo un gráfico con el único valor (serie) de una celda. Le asigno los valores mínimo y máximo en las propiedades del gráfico desde cero hasta en este caso 75. Luego en las mismas pestañas de...

Cuek!. Sorry Es que debes modificar la ruta en estas lineas Range("b" & i) = "=+'C:\as\[" & m & "]Hoja4'!$A$20" Range("c" & i) = "=+'C:\as\[" & m & "]Hoja4'!$A$21" quedando asi: Range("b" & i) = "=+'C:\tu_carpeta\[" & m & "]Hoja4'!$A$20" Range("c" &...

Ok. Entonces asi: Option Explicit Private Const MAX_PATH = 64 Private Const FILE_ATTRIBUTE_DIRECTORY = &H10 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long...

Entonces: =si(c3>=a1 =y(c3<=b1);a1;si(c3>=a2 =y(c3<=b2);a2;si(c3>=a3 =y(c3<=b3);a3;a1)))

Prueba así: Dim cm As ComboBox For Each cm In Me.Controls If TypeOf cm Is ComboBox Then With cm .List = Array("Si", "No") End With cm.ListIndex = 0 End If On Error Resume Next Next

Mmmm prueba lo sgte Toma uno de esos archivos txt y cambiale la extension de .txt a .xls Ve como te queda, si lo intentaremos con un bucle

Habría que ver el macro que estas corriendo

¿Promedio? Label1.Caption = (Val(TextBox1) + Val(TextBox2)+ Val(TextBox3)+ Val(TextBox4)+ Val(TextBox5)+ Val(TextBox6)+ Val(TextBox7)+ Val(TextBox8)) / 8