Dante Amor

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?

Pero al generar archivo lo hace en blanco Lo genera en blanco porque no estás pegando los valores, solamente estás pegando el ancho de columnas: Selection.PasteSpecial Paste:=xlPasteColumnWidths Te anexo el código para copiar y pegar los valores. No...

Pon el siguiente código en tu userform: Private Sub ComboBox1_Change() TextBox1.Value = "" If ComboBox1.ListIndex > -1 Then TextBox1.Value = Sheets("DATOS").Range("D" & ComboBox1.ListIndex + 4) End If End Sub