Jump to content

Leopoldo Blancas

Members
  • Content Count

    1,646
  • Joined

  • Last visited

  • Days Won

    39

Leopoldo Blancas last won the day on December 3 2019

Leopoldo Blancas had the most liked content!

About Leopoldo Blancas

  • Rank
    Advanced Member

Converted

  • Campos
    ,

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Gracias @joselica por tus buenos deseos... Y si es la mejor decisión y si no funciona no se pierde mucho pero si funciona sera otra cosa en que tengo Éxito...!!! Y "el cuerpo lo sabe" cuando necesitas otra cosa... esta decisión no esta hecha al vapor, son 5 meses que he investigado y buscado información, proveedores, costos de producción e instalación, cantidad de personal necesario, que tipo de perfil del personal, los salarios que pagare, los tipos de vehículos que necesito para transportar Material, Personal, cuanto tiempo se tarda la obra, etc, etc. Y también los cursos que necesito tomar sobre los permisos, leyes, procedimientos para hacer legal el trabajo realizado a clientes. Son "Cursos" que tengo que pagar para poder saber con exactitud lo que se le ofrece al cliente, etc. Para mi los cursos, nada baratos por cierto, son para mi INVERSION, que de otro modo tardaría mucho más tiempo investigar... y eso para mi es PERDIDA. Saludos. P.D.: Sin preparación personal es difícil emprender cualquier Proyecto o Trabajo... y más cuando uno quiere ganar bien... para ganar bien hay que hacer un buen trabajo y para hacer un buen trabajo hay que capacitarse....
  2. Hola Habraham, Si, a lo mejor si con el tiempo... pero este año he medido el tiempo y en todos los foros en que estoy "pierdo" medio día y pues si no suelto esto de los foros no tendré tiempo para dedicarme a mi proyecto... Y pues la verdad prefiero emprender esta nueva empresa...!!! 😎 Gracias y Saludos.
  3. Hola @Haplox, Creo que nuestro amigo @joselica se a confundido de Post. Yo no tengo doble personalidad... Y el todos los Foros y Emails, FaceBook, Gmail, Hotmail, etc, etc.... siempre pongo Mi Nombre "Leopoldo Blancas".😎 😆😆😆 Si, seguro que si, ya que las "Memorias de Cálculo" como las nombramos acá en México, o en el Ramo Eléctrico donde me desarrollo, las hago yo 😂 y pues no tienes Fórmulas sofisticadas como las que hace Johnmpl o Silvia o @Snake o Gerson Pineda... Y pues también están hechas con la Programación que domino, a lo mejor les de un plus y les pido que me las hagan con Power Query o Power Bi o.... Pero de que funcionan excelentes las que tengo funcionan excelentes para hacer mis Cotizaciones y Cálculos Eléctricos, Eficiencia Energética, etc... etc... Y gracias por tus buenos deseos....
  4. Hola a [email protected], Me vetaron por unos días en el foro.... y coincide con que también ya tenia pensado HOY de acabarme mis últimos 20 Centavos... a lo mejor ande solo de mirón, pero es tiempo de hacer otras cosas más interesantes para mi y ocuparme en algo, ya que me he aburrido de estar todo este año en casa sin trabajar... y pensare en que me ocupo, tengo pensado en Instalación de Celdas Solares, tomare unos cursos de capacitación para ver las leyes de permisos para instalar a Casa Habitación, Comercio e Industria, ya los he instalado pero nunca me he dedicado como empresa propia... Saludos a: Antoni, Héctor Miguel, Cacho R, Haplox, Silvia, JSD JSD, Abraham Valencia, Johnmpl, Gerson Pineda, Sergio Propergol,... .... Si me faltan unos no se preocupen... también los tengo en cuenta solo que a lo mejor se me olvidaron de momento sus nombres...
  5. Hola, Ya que es una duda especifica... Excel no sabe que es H3 Te falto poner el Set H3 = Sheets("RESUMEN") antes de ese linea donde te da error. Saludos.
  6. Con DoEvents, y lo utilizas mucho..!!!??? ESE ESTILO DE PROGRAMACIÓN ME RECORDÓ AL VIEJO CRIPPER 5.2 allá por 1985 un domingo por la tarde...😎 DoEvents significa que haga los eventos, se utiliza para cuando tenes un ciclo do-loop, o un while-wend, o un for-next demasiado largo, eso generalmente se "adueña" del programa, agregándole una linea DoEvents en el lugar apropiado podes seguir corriendo tu aplicación sin interrupciones. EJ: Private sub Command1_Click() Dim Cont as integer For Cont = 0 to 1000 'Codigo que ejecuta el ciclo DoEvents Next cont End Sub Tienes una programación como hecha a la "antigua"... como por allá de 1985 cuando yo empece a programar... y tienes muchos "pausa", no se si sean necesarios, a mi punto de vista se puede mejorar el código y hacer lo que hace en mucho menos tiempo. Recuerda que DoEvents regresa el control a Windows Momentáneamente y hace las tareas pendientes y vuelve a tomar el control "Excel" en cada ciclo... por eso hay que calcular cuanto tiempo tarda en cada Iteración del Ciclo. Saludos.
  7. Pero si el de Soporte Técnico es @Luis paz...??? 🤣🤣🤣
  8. Subelo a Google Drive, o a OneDrave o..... y Compartes el Link de tu Archivo... Puedes compartir un archivo de 1 Tera...😂😂😂
  9. Hola, Claramente los For son de 5 a 23, no puede ejecutar el 24, eso nunca lo hace.... SE TE ACABARON TUS 20 CENTAVOS. Suerte.
  10. Hola, No puedo seguir tu código... A lo mejor en tu cabecita esta claro, pero para mi no. Si te fijas en este código al final siempre va a quedar filtrado por la columna 23, y no me queda claro el propósito de ello. Y no se como salen las cantidades de la fila 9... Si podrías explicarlo paso por paso lo que haces o quieres hacer? Seria de gran ayuda, para gastar estos últimos 20 centavos que me quedan... NOTA: DONDE DA ERROR LA MACRO SUSTITÚYELO POR: If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Saludos
  11. Hola, Gastando mis últimos 20 centavos... No entiendo lo que quieres hacer con la macro, a lo mejor tienes código innecesario, con esos datos en otra hoja pon como quieres que sea el resultado a mano... Ya que tu macro esta hecha camotes... Por ejemplo tienes este código: For H = 5 To 23 aCol = Array("E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y") For t = LBound(aCol) To UBound(aCol) LE = aCol(t) 'MsgBox LE For n = j To 23 If n = j Then cCriterio = "<>0" Else cCriterio = "0" ActiveSheet.Range("$A$11:$AH$" & fila).AutoFilter Field:=n, Criteria1:=cCriterio Next n Lo que puse en negritas cambia el FILTRO de 5 a 23 veces y no hace nada ese código en concreto.... Etc, etc, etc, con el demás código. y una buena explicación en la nueva hoja resuelta a mano.... Saludos. P.D.: APROVECHA ANTES DE GASTAR ESOS 20 CENTAVOS.
  12. Hola joselica, Te voy a dar los pasos para Modificar... 1.- Lo Buscas en la hoja DB y lo presentas en tu hoja Ficha. 2.- Haces las modificaciones pertinentes en la Hoja Ficha 3.- Al presionar el boton Modificar tiene que llevar los datos de la Hoja Ficha a DB 4.- E AQUÍ EL PROBLEMA, lo que debes hacer es: Confundes los valores que estas obteniendo, Usa otras variables diferentes al nombre de las hojas. Tienes en tu Macro: Set H1 = Sheets("FICHA") Set H2 = Sheets("BD") Set H3 = Sheets("RESUMEN") Set FICHA = H2.Columns("B") Set BD = FICHA.Find(H1.[K9], lookat:=xlWhole) 'Cambiar [K9] por la celda donde esta el n° de registro que se desea reemplazar If H1.[K9] = "" Then End If If Not FICHA Is Nothing Then H2.Cells(FICHA.Row, "C") = H1.[C9] H2.Cells(FICHA.Row, "D") = H1.[B4] Si te fijas el valor de la busqueda la haces con DB y el If con FECHA??? las puse en Negritas. Usa otras Variables Encontrado, xBuscar, Rango, cBusca, etc... No te fusiles las macros, entiéndelas y razonalas, una buena manera de entender las funciones es hacer pruebas en archivos nuevos con con Unos datos sencillos. Una pregunta básica es que es lo queobtienes con la variable DB al usar FIND? Saludos.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png