UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO apoyo con formulas el 05/06/14, 06:20 pm

George Shellenberg


hola buen día
 
tengo estas dos formulas las cuales se adecuan un poco o en cierta forma a mis necesidades de mi archivo.
 
en mi archivo tengo dos columnas una lleva la relación de los números consecutivos que se van generando de acuerdo al registro que se genera por la macro.
 
lo que quiero saber es si se puede fusionar estas dos formulas y quede una sola para que me indique en la columna si el numero ya esta en uso, ya se duplicado, o falta el numero___hasta el numero_____, falta seleccionar el numero consecutivo correspondiente o el registro________veces registrado (esta varias veces repetido).
 
les comparto mis formulas y mi archivo
 
=si(h9=1,"en uso",si(h9=h8+1,"en uso",si(h9>h8+1,"falta el numero "&texto(h8+1,"0000")&" hasta el numero "&texto(h9-1,"0000"),si(h9=2,"duplicado","seleccionar el numero consecutivo correspondiente "))))
 
 
=si(contar.si(h:h,h9)=1," en uso",si(contar.si(h$9:h9,h9)=1,"registro ["  &h9&  "] - "&contar.si(h:h,h9)&" veces registrado ",""))

les dejo ellink de descarga

https://drive.google.com/file/d/0B-U_EBLuirZ7eU1mRFZybFo0a1E/edit?usp=sharing

2RESUELTO Re: apoyo con formulas el 06/06/14, 12:50 pm

tyno


Hola George.
Hasta donde logro entender con esas formulas solo controlas que no se ingresen números consecutivos de registros ¿no se si es así?
Paso tu archivo con un formulario con el cual vas  a poder completar los datos y luego cargarlos en la Hoja BASE DE DATOS. Este formulario toma por defecto el numero consecutivo que corresponde cargar. Si te interesa esta idea, la cual no necesita de fórmulas intrincadas y se te ocurre agregar/modificar algo, me avisas.

El archivo lo puedes subir directamente al foro. 
Saludos
Archivos
OTRO CUADRO MAS DE CLASIFICACION (version 1).zip
No tienes los permisos para descargar los archivos.
(99 KB)

3RESUELTO Re: apoyo con formulas el 07/06/14, 12:07 am

George Shellenberg


hola tyno buenas noches  Very Happy 

el formulario esta más que perfecto  Very Happy  Very Happy  Very Happy  creo que se adecua a las necesidades que se piden dentro del instituto, solo que al revisar el combo "Serie (actividades especificas)"  aparecen los años del combo año , se podrá modificar ese pequeñísimo detalle?.

o lo puedo hacer yo? si lo puedo hacer yo donde puedo ingresar para hacer la modificación correspondiente?

quedo en espera de tu pronta respuesta

saludos  Smile

4RESUELTO Re: apoyo con formulas el 07/06/14, 10:53 am

tyno


Hola George.

Si te animas puedes modificar eso de los años agregados a las series, no me di cuenta y repetí la instrucción que carga las series y los años, hay que borrar lo que te indico abajo en el código del formulario:

Private Sub UserForm_Initialize()
On Error Resume Next


fecha = Now
año = Year(Date)
With Sheets("BASE DE DATOS")
lista.Clear
For a = 0 To .Range("a65536").End(xlUp).Row - 2
lista.AddItem
For b = 0 To 7
lista.List(a, b) = .Cells(a + 2, b + 1)
lista.List(a, 6) = .Cells(a + 2, 7).Text
Next b
Next a


'incrementar numero consecutivo
num = 4 - Len((.Range("g65536").End(xlUp) * 1) + 1)
If Len((.Range("g65536").End(xlUp) * 1)) < 4 Then
n_consec = WorksheetFunction.Rept("0", num) & ((.Range("g65536").End(xlUp) * 1) + 1)
Else
n_consec = ((.Range("g65536").End(xlUp) * 1) + 1)
End If
n_consecutivo = n_consec
End With




For a = 9 To Range("ab10000").End(xlUp).Row
dependencia.AddItem Cells(a, 28)
Next a


For a = 9 To Range("ac10000").End(xlUp).Row
seccion.AddItem Cells(a, 29)
Next a


For a = 9 To Range("ad10000").End(xlUp).Row
sub_seccion.AddItem Cells(a, 30)
Next a


For a = 9 To Range("ae10000").End(xlUp).Row
serie.AddItem Cells(a, 31)
Next a

For a = 9 To Range("af10000").End(xlUp).Row '<<<<<<BORRAR
serie.AddItem Cells(a, 32) '<<<<<<BORRAR
Next a '<<<<<<BORRAR

año.List = Array("2014", "2015", "2016", "2017", "2018", "2019", "2020", "2021", "2022", "2023", "2024", "2025", "2026", "2027", "2028", "2029", "2030")






End Sub


Saludos

5RESUELTO Re: apoyo con formulas el 08/06/14, 02:32 pm

George Shellenberg


hola de nuevo tyno, agradezco mucho el apoyo que me has brindado, una molestia mas:

me pide el jefe que si la ventana inferior donde aparece los registros se puede ampliar para que no se vean todos encimados,  yo no se nada de programación espero me entiendas y tengas paciencia.

6RESUELTO Re: apoyo con formulas el 09/06/14, 11:34 am

George Shellenberg


tyno ya descubrí donde acomodar las columnas dentro del cuadro.

muchas gracias, una pregunta mas antes de dar por concluido el tema:

si en dado caso quisiera poner el No.Consecutivo como un combo, puedo hacerle para modificar el cuadro de texto y se convierta en un combo??

7RESUELTO Re: apoyo con formulas el 09/06/14, 03:25 pm

tyno


Hola George.
Deberías eliminar el cuadro de texto y simplemente crear un combobox con el mismo nombre, luego crear un bucle como el que eliminaste para cargar los números consecutivos, aunque no le veo sentido hacer esto pero bueno esa sería la forma de modificar el textbox. Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.