hsal56

blooddragon respondió: Una disculpa por el tiempo he estado cargado de trabajo pásame tu código para revisarlo

angelcrisnor respondió: Como siempre, hay muchas formas, pero una muy sencilla, rápida y clara sin uso de macros utilizando una columna auxiliar. Espero que se entienda este ejemplo, de solo 9 valores, donde pongo en negrita los cambios que tendrías que hacer: A B 1 61 61...

Isaac Reyes respondió: Si quieres específicamente lo que comentas, basta con utilizar estas dos macros, una en cada hoja. Macro para la hoja1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Hoja2.Range("A2") = [A1] End If End Sub Macro...

asaroma respondió: Te adjunto el código para ocultar las celdas 20:45 y columna H: Sub Macro1() Rows("20:45").Select Selection.EntireRow.Hidden = True Columns("H:H").Select Selection.EntireColumn.Hidden = True Cells(1, 1).Select End Sub No entendi eso de los botones...

José Saúl Méndez Alonso respondió: Sólo necesito saber cual celda de la hoja 2 cambia y afecta a la celda a1 de la hoja 1 y lo mismo para la ceda a4 de la hoja 1 de todos modos te dejo otro código con los ajustes necesarios. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal...

José Saúl Méndez Alonso respondió: Te dejo el siguiente código a ver si te sirve Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If UCase(Sh.Name) = "HOJA1" Then If Target.Address = "$A$1" Then If Range(Target).Value = 0 Then Range("A1:C3").EntireRow.Hidden...