Pablo Díaz

Elsa Matilde respondió: En cualquier módulo copiá este código y ejecutalo desde allí mismo: Sub mostrarHojas() Dim sh For Each sh In Sheets sh.Visible = True Next sh End Sub

Elsa Matilde respondió: Ese código se ejecuta al tipear un dato en una celda y convertirlo en formato hh:mm:ss para que el usuario no tuviese que escribir los separadores. Para cambiar el formato en todo un rango, podrías utilizar la misma macro pero ajustada a la nueva...

Elsa Matilde respondió: Lo primero que hay que establecer en estos eventos, es cuál o cuáles serán las celdas a controlar. En tu caso solo K16 por el momento. Private Sub Worksheet_Change(ByVal Target As Range) 'solo se controla la celda K16 If target.address <> "$K$16"...

Dante Amor respondió: [Ho la y bienvenido a todoexpertos! Veo que tienes datos en Tablas. Utiliza la siguiente fórmula =SI([@[Imp VENTA]]>BUSCARV([@Artículos];Tabla2;3;0);BUSCARV([@Artículos];Tabla2;2;0);0)*[@[Imp VENTA]] Cambia Tabla1 por el nombre de tu Tabla que...

Cuando a las celdas que deseas mover o copiar le agregas el signo peso ($) adelante de la letra y adelante del número, se convierte en en una celda de dirección absoluta, eso implica que donde la muevas o copies, siempre aparecerá el resultado que...

Solo agregue esto después del titulo de la macro y funciona perfecto: Private Sub GuardarPDF() Worksheets("Hoja a imprimir").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\02.- Excel\P y B\Pruebas\" & Sheets("A...

Elsa Matilde respondió: El primer error que noto es que dejaste un espacio delante de la letra D en la ruta. Filename:=" D:\PRACTICAS\" & Con eso ya debiera resolverse. Sino revisa que toda la ruta esté bien escrita. Además mira el contenido de la celda que es parte del...

Respecto a tu consulta: La hoja 1 es un formulario que siempre tendrá una página y variará solo en la información. La hoja 2 es otro formulario que también solo variará en la información de una página (A4 u Oficio México según la impresora que se utilice)

Daniel Conde respondió: Esperando la respuesta que nunca llegó de quien lidera en puntaje este foro pero que lamentablemente esta muy ofendido por haber recibido un pulgar arriba en vez de un EXCELENTE, como tanto deseaba!, pude resolver la cuestión con un código sencillo...

Tor Cheer respondió: Con esta macro copia datos en un rango fijo de un libro a otro, cualquier cosa comenta Sub copiarLibro() Dim x As Workbook Dim y As Workbook Set x = Workbooks.Open("C:\Users\Yion\Documents\Libro1.xlsm") Set y =...

Dante Amor respondió: Prueba lo siguiente. Cambia el fondo del color de los TextBox1 a TextBox7. Private Sub ComboBox1_Change() Dim wColor As Variant, i As Long Select Case ComboBox1.Value Case 1 To 25: wColor = vbBlue 'azul Case 26 To 50: wColor = vbRed 'rojo Case 51 To...