silver_axe007

Hola:
Suponiendo que la fecha esta en A2
=DIA.LAB(A2,-1,festivos) festivos sería el rango en donde pondrás los días festivos
Saludos.
 

hola edilbertosb
corrige  esto "<H2*10"
Por esto  "<"&H2*10
 
saludos,
Silvia
 

Hola
Hay varios controles ActiveX (y otros) que son "heredados" del "viejo" VB 6.0 y que no son compatibles con los Office de 64 bits y no hay forma de cambiar eso y justamente entre ellos está el DtPicker (y no es el único). 
En general la recomendación es siempre usar controles compatibles con los Office de 32 o 64 bits y con toda versión de Office. 
Abraham Valencia

Paso algo similar donde trabajo, el sistema contable no tiene la forma de números a letras, entonces les compartí el complemento y de como instalarlo en sus PC, ahora cada quien lo utiliza
Es similar como adquirir un complemento cualquiera, cada uno debe instalarlo en su PC, para su uso
 
Saludos 

Pon la propiedad WordWrap = True

Hola lo del punto 2 es por que 
TextBox17.Text = hop.Range("L" & fily) no es correcto 
TextBox16.Text = hop.Range("L" & fily) es correcto 
ya reviso lo otro auqneu  no se por que dices que te sale cortado a mi me sale bien podrias subir una imagen¡?
 

Lo mejor es instalar el complemento en Excel, para que este disponible en cualquier momento
 
Saludos 

Haber .. quizas que podrias  hacer .... usar ponderaciones y una tabla auxilia r.... 
haz que valga 1 Miembro =  1000
haz que valga 2 Miembro =  2000
haz que valga 4 Miembro =  4000
y sumas el valor de tu subdivision, y creas una tabla auxiliar y sacas un buscarV , verdadero y encuentras.....
si tienes alguna duda podrias decirme espero poder ayyudarte....
 
 

Hola Germán:
Prueba la macro.
Sub MacroGermán() ActiveSheet.Name = Range("C2") For Each Control In ActiveSheet.Shapes If Control.Type = msoFormControl Then If Control.FormControlType = xlButtonControl Then Control.Delete End If End If Next End Sub Saludos 
Nota: Solo funciona para botones de formulario, no para botones ActiveX.

Sería así:
ActiveSheet.Name = Range("C2") Saludos,

Me alegro que te haya servido para mi un gusto!!

SAludos
 

Hasta donde se la hoja no la podrias blouear por sercciones.. lo que podrias es mostrar las 4 horjas y luego si no afectaria el proceso de una a otra...!!
 
https://support.office.com/en-ie/article/view-multiple-panes-sheets-or-workbooks-fcdfb33e-5168-470d-a3d6-7ef1663599f3

La función INDIRECTO es otra alternativa, lo malo de esta función que es volátil e INDICE, no
 
Saludos 

Gracias silver_axe007, una forma más y diferente para hacerlo.
Muy amable por haberse tomado el tiempo y haberme entendido.
Saludos.

Utiliza Indirecto(la celda donde esta concatenado el valor ) y listo.
 
si en A1 esta el valor  25 y en A2 el valor 60
 
si C5 pongo  =indirecto ("A"&2) te aparecera     60    ' donde A es tu columna y 2 tu fila

 
en tu ejemplo en F5 he colocado la formula Indirecto(F4) y me parece ZONA3 la corro a la derecha y estan los datos... 

No se por que lo quieres en un Cambo.. pero en todo caso..... yo lo puse en un textbox cuando presionaba un boton... 
Considerando que los valores son numeros....... 
combobox4.value =  (TextBox3.Text / ComboBox1.Value)
 

hola vlackaccount
No veo en que influye la fecha,  ya que tu tabla está ordenada por ID y fecha.
Si es así,  esto es suficiente en L5:
=CONTAR.SI($J$5:J5,J5) ** mi separador de argumentos es la coma, si el tuyo es otro, corriges.
Si no es eso, tal vez necesitas agregar un nuevo comentario... 
 
saludos,
Silvia
 

Puede ser debido a que formato de la fecha sea diferente por eso era que yo lo manejaba como un string y no como fecha.. puede ser que en tu maquina el sistema de fechas sea  mmddaaaa cuando en otros usan ddmmaaaa
 
SAludos
 

Gracias por la correccion, yo las estaba validando como String pero acabo de aprender  algo nuevo Muchas gracias!!!

si tyu valor es unico .. con buscarv con el parametro a falso te funcionara de pelicula!

Hola a ambos, para que te funcione  bién deberías cambiar en el código de silver_axe007 esta línea  
If ComboBox1.Value = Format(celda.Value, "dd-mm-yyyy") Then por esta otra:
If CDate(Cb1) = Format(celda.Value, "dd-mm-yyyy") Then
así como también en el combobox2,3,4,5 y 6 deberías sustituir 
Format(combobox1.Value, "dd-mm-yyyy")  por  Format(Cb1.Value, "dd-mm-yyyy")
 

Muchas gracias.
Ya di con ello, me llevo todo el dia buscando, probando y modificando pero ya lo tengo jejejee...
te lo agradezco mucho.
un saludo,

Yo lo que he hecho son funciones que sirven para llenar combos...con una tabla de base de datos.. pero podrias adaptarlo...
En este caso lo que hacia era llenar registros desde una tabla de parametros recursiva , pero quizas si puedes reemplazar el tema de las celdas o  rangos podria ser algo asi ........
' se lo llama asi Call llenacombo(Me.cmbgenero, rangoceldas) 'funcion: Sub llenacombo(cmb As ComboBox, rangocarga as range) 'suponiendo dim celda as cell cmb.clear For Each Celda In Hoja3.Range(rangocarga) If Celda.Value <> "" Then cmb.AddItem Celda.Value Else Exit For End If Next End Sub  
 
Espero te ayude ... 
 
 

Hola a todos !! 
Mi nombre es Andres Guerrero , soy Ecuatoriano , me gusta mucho excel y tengo algo de experiencia que me encantaría compartir, tengo muchos años en otro foro y me gustan atender ciertos temas, entiendo que lo que mejor hago son Macros programadas, funciones de usuarios y formulación texto y base de datos.
Saludos desde la Mitad del Mundo
Andres.

No digas eso... ya me siento estafado, utilizado...!!!