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.250 puntos Estado de México, México @55740 desde 2009 - visto 2020

youtube.com/user/AELA5511142Q6

Preguntar

Actividad pública reciente

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...

2 respuestas

Responder

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"...

1 respuesta

Responder

Ú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.

1 respuesta

Responder

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...

2 respuestas

Responder

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...

2 respuestas

Responder

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)

1 respuesta

Responder

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.

1 respuesta

Responder

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...

1 respuesta

Responder