Licenciaturas de Análisis y desarrollo en Tijuana

Hola! David. Una opción podría ser:__________________ Private Sub CommandButton1_Click()TextBox1.SetFocusIf TextBox1 = Empty Then  MsgBox "Faltan Datos por Registrar en la Casilla 1", vbCritical, "Error"ElseIf TextBox2 = Empty Then  MsgBox "Faltan Datos por Registrar en la Casilla 2", vbCritical, "Error"  TextBox2.SetFocusElseIf TextBox3 = Empty Then  MsgBox "Faltan Datos por Registrar en la Casilla 3", vbCritical, "Error"  TextBox3.SetFocusElse  With Sheets("Hoja2")  If WorksheetFunction.CountIf(.[A:A], TextBox1) > 0 Then    MsgBox "Casilla 1 repetida", vbCritical, "Error"    Exit Sub  End If  .Range("A65536") ... ver debate

Señor Cacho Mil gracias por la soluccion a mi solicitud. Ya lo inclui y funcioana a la perfeccion. Mil gracias de verdad, me tome la libertad de incluir otra caja de texto para que registre tambien el costo unitario de los productos a registrar. De verdad muy complacido por su paciencia a ayudarnos a solucionar nuestras inquietudes. Mis humildes agradecimientos y mis respetos por su gran labor. Saludos cordiales. ver debate

Hola! Heberth. He intentado reproducir tu dilema: una tabla de datos en A1:AF20000, con fórmulas en todas sus celdas para hacerla más pesada. Y, efectivamente, me ha tardado "2"... Pero "2 milisegundos". Te sugiero que hagas la siguiente prueba: -> Copia tus datos (A1:AF20000) como valores a un libro nuevo: manten abierto -sólo- ese libro. -> Aplica el filtro en cuestión Si no tienes demoras (como lo ha sido mi experiencia), entonces ya tienes focalizado el problema, es decir: tu libro original contiene tal cantidad de fórmulas, de formatos (negritas, colores, subrayados, etc), de formatos condicionales que torna inmanejable la administración ... ver debate

Tu respuesta es correcta Cacho, lo que pasa es que en la empresa me dieron un archivo que posee muchas graficas dinamicas para dar informes y quieren que conserve esas 20 graficas dinamicas y a demas que maneje la base de datos. Bueno pensare que hacer. Te agredezco tu valiosa ayuda. ver debate

ah!, lo siento, si lo olvide!... el correo.. < inglucardi@hotmail.com > ver debate

Si puedes sube un ejemplo del archivo en la secion DOCUMENTOS indicando los resultados esperados y publica aqui el enlace. ver debate

pues usa OLEDB u ODBCy es solo hacer Queries ver debate

  Mira lo que hice y me dió resultados , solamente agregando la referencia de excel, gracias por responder ,Saludos     Private Sub cmdTraspasodatos_Click()Dim objExcel  As Excel.Application       'Variable de tipo Aplicación de ExcelDim xLibro    As Excel.Workbook          'Una variable de tipo Libro de ExcelDim Col       As Integer, Fila As Integer  'creamos un nuevo objeto excel.Dim MyDB      As DatabaseDim MySet     As RecordsetDim strSQL    As StringDim xRegistro As Excel ... ver debate