Dante Amor

Suponiendo tus datos en la "Hoja4" de esta manera: Los resultados en la "Hoja5" Cambia en la macro "Hoja4" y "Hoja5" por los nombres de tus hojas. Sub insertar_filas() Dim a As Variant, b As Variant, sh As Worksheet Dim i As Long, j As Long, k As...

Si ejecutas la macro para poner "B", ¿Si ya tiene "B" agregar otra "B"? Si ejecutas la macro para quitar la " B", ¿Si no tiene B quitar el primer número?

Prueba la siguiente macro: Sub CrearContraseñas() Dim sSim As String, sNum As String, sLet As String, sCad As String Dim arr As Variant, m As String Dim i As Long, j As Long, x As Long, y As Long, n As Long ' sSim = "@#$%/\()-+*" 'Los símbolos que...

Detecte la última Columba vacía de A, seleccione la Columna y baje las fórmulas una columna más Supongo que te refieres a la última fila vacía de la columna A. Seleccione la fila y copia las fórmulas en la fila de abajo. Es decir, si la última celda...

Prueba lo siguiente: Sub TEST() With Worksheets("PRINCIPAL").Range("A:AP") . AutoFilter . AutoFilter 2, Array("ALMACEN", "TIENDA"), xlFilterValues . AutoFilter 34, 0 End With End Sub

Tampoco me queda claro qué necesitas. Podrías explicarlo con alguna imagen, y cuál es el objetivo final qué tú necesitas. Te adelanto un ejemplo, si tus datos están de esta manera: Si quieres saber cuál es la última columna con datos, entonces la...

Prueba la siguiente: Sub recorrer_Columna_A() Dim a As Variant, b As Variant, i As Long, j As Long ' a = Sheets("Hoja1").Range("A1", Sheets("Hoja1").Range("A" & Rows.Count).End(3)).Value2 ReDim b(1 To UBound(a), 1 To 1) For i = 1 To UBound(a) If...

Para entender lo que necesitas, debes poner 3 imágenes. En la imagen 1, debes mostrar lo que tienes en una de las hojas, por ejemplo de la hoja 130. En esa imagen 1 deben verse claramente las filas y las columnas de excel, y por supuesto, deben verse...

Siguiendo con tu ejemplo, en M75 tienes "Rever". En T75 la macro coloca la fórmula =K75-K$75 Si en las celdas M3 a M74 las palabras son diferentes a "Rever", ¿qué fórmula debe ponerse en las celdas T3 a T75?

Prueba lo siguiente Pon el código en los eventos de la hoja donde quieres que suceda. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim m As Boolean If Target.Locked Then m = False Else m = True...