Dante Amor

Pon el siguiente código en los eventos de ThisWorkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Sh.Range("B2").Value = Date Application.EnableEvents = True End Sub Si quieres la...

Debemos identificar los patrones en ambos casos. Si el caso 1 siempre tiene dos diagonales: \ Si el caso1, siempre termina con la palabra " DESCRIPCION.". Si el caso2, siempre tiene una diagonal y el número está antes de un espacio. Prueba con la...

[Ho la y bienvenido a TodoExpertos. Prueba la siguiente macro. - Pon la macro en el "libro1". - El libro2 también deberá estar abierto. - Los registros serán pegados en el libro2, en la primera hoja. - La macro asume que los encabezados del libro1,...

Por ejemplo, si el número está en la celda A2. Usa la fórmula =Izquierda(A2, 5) Nota: cambia en la fórmula a ( ; ) si lo utilizas como separador.

El enfoque de esta macro es hacer la concatenación en memoria, de esa manera es más corta la macro y más rápida: Sub concatenar_permutaciones() Dim a As Variant Dim i As Long, j As Long, k As Long, m As Long, n As Long a = Range("A4:AD" & Range("A" &...

Prueba esto: Sub buscafactura() Dim fact As Variant Dim f As Range Dim sh As Worksheet fact = InputBox("Entra factura: ", "Número o parte del número") If StrPtr(fact) = 0 Then MsgBox "Click Cancel" Exit Sub ElseIf Len(fact) = 0 Then MsgBox "Entra un...

Suponiendo que las columnas son A, B, C y que los datos empiezan en la fila 2. Prueba esto: Sub SeleccionarPrimerCeldaVisible() Dim c As Range For Each c In Range("C2", Range("C" & Rows.Count).End(3)) If c.EntireRow.Hidden = False Then c.Select Exit...

La siguiente macro multiplica por 1 la columna B de todas las hojas del libro: Sub multiplicar_por_uno() Dim lr As Long Dim sh As Worksheet ' Application.ScreenUpdating = False lr = Range("B" & Rows.Count).End(3).Row + 1 With Range("B" & lr) .Value =...

Realiza lo siguiente: 1. Crea un userform 2. En el userform crea un control Frame1, con un ancho (Width) de 200 3. Dentro del Frame1 agrega un Label1: 4. Pon todo el siguiente código dentro del userform: Option Explicit ' Sub Combinar_New() Dim...

[Ho la y bienvenido a TodoExpertos! Prueba la siguiente macro. Primero selecciona las filas a copiar, por ejemplo puedes seleccionar de la celda A8 a A25. Después selecciona la celda destino. No es necesario que selecciones las filas destino, basta...