Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Milton Cordova

  1. Saludos por favor puede enviar este archivo en excel 2003 Gracias
  2. Saludos adjunto envio ejemplo incorporado las actividades que necesito, con la necesidad de modificar la macro para que cuando le doy rango D5:D20 recorre desde D5 y de queda en D19 Gracias F2+enter Actualizar RANGO.rar
  3. funciona dando al dato una fila mas ejem C5:C21 para que llegue hasta la C20 Gracias
  4. Cesar realice la correccion si puedes verificar para D5:D20 se queda en D19 Le incremente otra actividad que antes de que recorra F2+Enter ponga el rango en formato celdas general. Gracias F2+enter Actualizar RANGO.xls
  5. saludos estimados masters por favor me pueden indicar como debo ingresar el rango en el que se debera actualizar las formulas del calculo respectivo. Para este ejm tengo el rango C5:C10 al ingresarlo asi me da el objeto no admite esta propiedad o metodo, informo que es para excel 2003. Gracias Actualizar con F2+enter.xls
  6. Gracias Antoni el conocimiento y aprendizaje es infinito, disculpas por esta consulta que ha tenido una excelente respuesta. Tema solucionado Gracias como siempre
  7. Gracias Antoni el conocimiento y aprendizaje es infinito, disculpas por esta consulta que ha tenido una excelente respuesta. Gracias como siempre
  8. Saludos estimado Rolando, he realizado tu solucion no funciona inmediatamente para que la macro se ejecute debo primero ejecutar la amcro manuelmente y luego si se actualiza la informacion y funciona Ctrl + la letra asignada, ejm. si ingreso la letra h en A1 no reconoce Ctrl+h tengo que ejecutar la macro muetrapass manualmente y luego si reconoce Ctrl+h. Gracias
  9. Saludos me puedes informar como ingreso esta linea dentro de la macro o como módulo Gracias
  10. Saludos estimado Abraham deseo que la letra "a" se lea desde la celda A1 de la Hoja PASS Gracias
  11. Saludos muy comedidos, deseo ayuda para que mediante alguna macro pueda directamente asignar una letra para que la macro se ejecute con Ctrl + la letra de la celda respectiva. En el ejemplo la macro muestrapass manualmente se le asignado la letra "s" y la macro ocultapass se la asignado la letra "o", de esta forma al aplicar Ctrl+s muestra la Hoja PASS y con Ctrl+o oculta la Hoja PASS. las letras se las ingresa en la Hoja PASS Gracias ejecutar macro opciones Ctrl mas letra en celdas.xls
  12. Gracias por tu apoyo muy excelente Temas cerrado ok
  13. Saludos por favor me pueden ayudar para que en una celda A5 no se pueda ingresar las palabras: Oferente, Ofertante, Contratista, Cosntructor, cualquier otro texto deberia ser aceptado, e intentado con esto pero no fuciona =O(A5="Oferente";A5="Ofertante";A5="Contratista";A5="Constructor";) Gracias
  14. Gracias es justo lo que necesito, como siempre excelencia Tema solucionado cerrado
  15. Saludos estimados Masters, favor una ayuda paraesta coversion Ejm si tengo como dato directo 300h si divido para 8 horas laborables tengo 38 días en 30 dias tengo 4 fines de semana lo que me da 8 días correspondiente a sabado y domingo como son 38 días me quedaria 1 semana adicional lo cual me da 2 días adicionales por fin de semana. Tengo finalemente 38+8+2 = 48 días. adjunto el calculo manual, deseo saber si hay alguna funcion que me permita convertir automaticamente este calculo Gracias HORAS A DIAS LABORABLES.xls
  16. Gracias Antoni, excelente aporte y ayuda, es gratificante saber que hay Masters que tienen excelencia y carisma para ayudar y trasmitir conocimientos Tema Cerrado Solucionado
  17. Estimado Antoni gracias por el aporte, tengo una consulta final si tengo un filtro aplicado ya no funciona. adjunto actualizacion Gracias DOBLE CLIC RANGOS NUMERADOR AUTOMATICO.xls
  18. adjunto la macro la cual solo funciona para el primer rango A5:A20 Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) On Error GoTo fin Dim celda As Range If WorksheetFunction.Max(Range("A5:A20")) = 0 Then 'ingresa el numero con el que desea empezar Target = 11 SendKeys "{ENTER}", True Exit Sub Else num = WorksheetFunction.Max(Range("A5:A20")) If Target = "" Then Target = num + 1 SendKeys "{ENTER}", True End If If WorksheetFunction.Max(Range("C5:C20")) = 0 Then 'ingresa el numero con el que desea empezar Target = 21 SendKeys "{ENTER}", True Exit Sub Else num = WorksheetFunction.Max(Range("A5:A20")) If Target = "" Then Target = num + 1 SendKeys "{ENTER}", True End If fin: SendKeys "{ENTER}", True Exit Sub End Sub
  19. Saludos estimados Master tenha la gentileza de ayudarme con esta macro: tengo tres rangos A5:A20 C5:C20 E5:E20 lo que deseo es que al dar doble clic en el A5:A20 empiece la numeracion en cualquier celda empezando desde el numero 11 hasta llegar al 19 y luego no me permita mas, de la misma manera para el rango C5:C20 con la numeracion desde 21 hasta el 30 y para E5:E20 con la numeracion desde 31 al 40. finalmente si quiero eliminar algun numero puedo hacer clic derecho y borrar el numero de la celda, y cuando sigo con cl clic este numero se debe restaurar actualizado el conteo. Gracias DOBLE CLIC RANGOS NUMERADOR AUTOMATICO.xls
  20. Saludos Gerson como siempre genial y talentoso. Gracias Tema cerrado solucionado
  21. Saludos el envio no se abre dice que puede estar dañado. Por favor reenviar si es posible no comprimido Gracias
  22. Gracias adjunto envio archivo Hoja1 para una celda A1 Hoja2 para un rango Gracias Letra N en celda.xls
  23. saludos nuevamente, por favor alguna ayuda con alguna macro para que en una celda por ejm. A1 siempre este con un dato "N", esta celda puede ser modificada con cualquier otro dato por ejm "S", "1"........, cuando quede sin dato o con cero se restablesca el "N". Gracias
  24. Gracias encontre la solcuion la comparto Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$7" Then Range("E7:H7").Select End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C7")) Is Nothing Then ActiveSheet.Unprotect "MC" Target.Font.Size = 40 ActiveWindow.Zoom = 120 Target.Font.Size = 14 ActiveSheet.Protect "MC" Else ActiveWindow.Zoom = 100 End If End Sub
  25. Saludos por favor alguien me puede ayudar con alguna macro para que luego de seleccionar la celda C7 mediante lista desplegable, se selecciona la celda E7. He llegado hasta esta macro Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("C7") Then Range("e7").Select End If End Sub 'Doble click para ingresar y para borrar. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C7")) Is Nothing Then ActiveWindow.Zoom = 120 Target.Font.Size = 14 Else ActiveWindow.Zoom = 100 End If End Sub Seleccionar celda luego de cambiar dato en otra.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png