Dantte Black

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

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

Creo que lo mejor seria utilizar un ListBox y a este ir agregando cada uno de los productos o servicios.

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

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

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

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.

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

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