jferg

Sub Proteger() Worksheets("MiHoja").Unprotect "Contraseña" Worksheets("MiHoja").Range("A1:B10").Locked=True Worksheets("MiHoja").Protect "Contraseña" End Sub Recuerda que para que tus usuarios puedan modificar el resto de las celdas, la propiedad...

Private Sub txtText_Change() txtText.Text = Replace(txtText.Text, ",", ".", 1, -1, vbTextCompare) End Sub

Dim CeldaActiva As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) CeldaActiva = Target.Address MsgBox CeldaActiva 'solo para comprobar End Sub

Lo que entiendo es que en la fórmula hace referencia al nombre de un libro y esos reemplazos no pueden hacerse sin que la fórmula pierda el vinvulo. Lo que tiuenes que hacer es nombrar el libro correctamente según tus objetivos. Si esto no te sirve...

Puedes usar: RangoTabla = "MiHoja!R3C1:R" & WorksheetFunction.CountA(Worksheets("MiHoja").Range("A:A")) & "C17" Te Explico: MiHoja es el origen de la tabla R1: Suponiendo que inicie en la fila 1 C1 Suponiendo que inicie en la columna A R: Para la...

Sub Asignar_Textos() Dim BD As Excel.Range Dim Fila As Long 'Suponiendo que los campos esten en las columnas A,B,C y D y que la hoja donde haces los filtros se llame FILTROS: Set BD = Worksheets("FILTROS").Range("A:D") For Fila = 2 To BD.Rows.Count...

Dim Libros As Workbook Dim EstaAbierto As Boolean For Each Libros In Application.Workbooks If Libros.Name = "ElNombreDeMiLibro.xls" Then EstaAbierto = True Exit For End If Next Libros If EstaAbierto Then 'Tus instrucciones por ejemplo MsgBox...

Option Explicit Private Sub MiMacro() Dim FilaBaseLeer As Long Dim FilaBaseAgregar As Long Dim ColumnaBaseLeer As Integer Dim ColumnaBaseAgregar As Integer Dim Codigo As String Dim Fecha As String Dim CadenaVariables As String Dim Variables() As...

Solo tienes que seleccionar toda la columna y luego ir a Menu... Formato de Celdas... y en la ficha numero seleccionar Fecha. Aceptar y luego guardar el libro.

El tema es algo complejo pero tiene solución y voy a darte una idea de como hacerlo Lo primero que debes usar es la función de filtro avanzado. Puedes grabar una macro para que el editor te arroje el código y tu puedas adaptarlo. Cuando tengas claro...