Dantte Black

Dantte Black

En todo terreno ser sólo permanece y dura el mudar. Lo que hoy es dicha o placer será mañana amargura y pesar.
 2.225 puntos  Estado de México, México @55740 desde - visto

Actividad pública reciente

Voto positivo a la respuesta

Valor de la primer celda de un rango filtrado en excel

respondió: Si tienes encabezados en la fila 1, entonces el contador inicia en la fila 2, prueba la siguiente: Sub PrimeraCelda() Dim i As Long For i = 2 To Range("A" & Rows.Count).End(3).Row If Range("A" & i).EntireRow.Hidden = False Then MsgBox "el valor de la...
Voto positivo a la respuesta

Macro para copiar debajo de última fila de otra hoja con condicionales

respondió: Prueba la siguiente: Sub CopiarDatos() Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long ' Set sh1 = Sheets("Hoja1") Set sh2 = Sheets("Hoja2") Select Case sh2.Range("A5").Value Case 0 MsgBox "no se realiza ninguna copia: Valor 0" Exit Sub Case "ARS"...
Ha empezado a seguir a
Ha respondido en y en 2 temas más

Últimos Pasos para mi primer UserForm

Creo que lo mejor seria utilizar un ListBox y a este ir agregando cada uno de los productos o servicios.
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Ha empezado a seguir el tema
Voto positivo a la respuesta

Abrir explorador de archivos con macro

respondió: [Hola Al usar el "Explorer.exe" y una variable, estás haciendo que quede así la cadena: "explorer.exec:\Program Files" Por lo que tu Windows no lo reconoce. Como debe de quedar así "explorer.exe c:\Program Files" para que sea reconocido, por lógica...
Voto positivo a la respuesta

Macro para bloquear las 12 primeras hojas de mi libro

respondió: Solo deseo aportar un comentario atenta a que mencionas 'y que se pueda modificar en un futuro, La instrucción Sheets(índice) toma las hojas en el orden en que se encuentran las pestañas. Por lo tanto el bucle For i = 1 to 12 es correcto para...
Voto positivo a la respuesta

Tengo un botton con información .. Quiero agregarle a ese botton un código que me calcule la fecha de vencimiento de 30 días

respondió: La instrucción que ocupas para tu botón es esta Range("h8") = DateAdd("d", Range("h6"), 30)
Ha respondido en

Error en datos, me cambio todos los datos como #¡VALOR!

En la ubicación original del archivo has lo siguiente Botón derecho y una vez que se despliegue el menu selecciona "Restaurar Versiones Anteriores" Si tienes suerte apareceran algunas versiones del archivo. Me comentas si te resulto de utilidad, suerte.
Voto positivo a la respuesta

Cuando le doy ActiveWorkbook.Save no me respeta el formato de fecha dd/mm/yyyy

respondió: Difícilmente la primer parte de la macro sea mía jajaja. Quizás solo haya dejado instrucciones ue ya estaban. Así te evitas varias líneas: Range("A1") = "Lon" Range("B1") = "Lat" Range("C1") = "Pre" Range("D1") = "Est" Range("E1") = "Fecha" 'más...
Voto positivo a la respuesta

Tengo un problema necesito cerrar un formulario en excel pero que la hoja de excel permanezca

respondió: [Hola Para cerrar el formulario utiliza Unload me y para mantener el libro visible Application.Visible = True

Experiencia

Aux. Contable, fanatico de Excel

Trabajo

  • FERCUMEX, A.C.
    2008 - actualidad

Educación

  • CECyTEM
    Bachillerato , 2003 - 2006