opa drino

Anónimo respondió: Copia el siguiente código en un módulo (como verás el código original es de KL) 'propuesta de KL en :...

Jaime Segura respondió: Puedo pensar en tres posibilidades: 1) Has ocultado las hojas y has puesto protección al libro... con lo cual no se pueden mostrar hasta que no quites la protección al libro, y no podras hacerlo ni desde Excel ni desde VBA... primero quita la...

Daniel Margulis respondió: Es que REALMENTE te falta el archivo inicial de la máquina virtual a la que te refieres. Salvo que siempre definas todos tus discos iguales, no hay otra manera de recuperarla que trayendo de vuelta el archivo faltante (el que indica la pantalla que...

James Bond respondió: La instrucción esta mal escrita Label9=Textbox1.text Si dices que en la hoja si te hace el calculo entonces lo mandas llama así, solo cambia el a1 por la celda donde tengas el dato textbox2.text=range("A1").value

Adriel Ortiz Mangia respondió: [Hola Prueba esto Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Act. Adriel If Not Intersect(Target, Range("E4:E164")) Is Nothing Then If Cells(Target.Row, "B") = "" Then MsgBox "la columna B no contiene datos" Else UserForm1.Show End...

Robert Meers Díaz respondió: Compañero Jorge, en el siguiente código sólo debes definir el rango que deseas que active el formulario con doble clic. Solution: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True Set Activador =...

JanOwe Waldner respondió: A ver si te sirve esto: ------------------------ Private Sub Worksheet_Change(ByVal Target As Range) Dim Fila As Integer If Target.Column = 6 Then Fila = Target.Row If Cells(Fila, 6) > Cells(Fila, 2) Then Cells(Fila, 2) = "" Cells(Fila, 3) = "" End...