Abelardo Castillo

Rafael Vera respondió: Aquí tienes un ejemplo de macro en VBA que puede ayudarte a concatenar los datos de la manera que deseas: Sub ConcatenarDatos() Dim lastRow As Long Dim currentNum As Variant Dim concatText As String ' Encuentra la última fila en la columna A lastRow...

Rafael Vera respondió: Aquí tienes el código actualizado Sub macro() Dim sh1 As Worksheet, sh2 As Worksheet Dim celda As Range, lastRow As Range Application.ScreenUpdating = False Set sh1 = Sheets("Valores") Set sh2 = Sheets("Resultados") sh1.Select Set celda = ActiveCell...

Dante Amor respondió: Visita: Macros y Excel Por Dante Amor. Asigna la siguiente macro a tu imagen: Sub macro() If ActiveCell.Address(0, 0) = "C2" Or Intersect(ActiveCell.Cells(1), Range("C2:C8")) Is Nothing Then Range("C8").Select Else ActiveCell.Offset(-1).Select End If...

Dante Amor respondió: Pon el siguiente código en los eventos de la Hoja1. Sigue las Instrucciones para poner la macro en los eventos de worksheet Abre tu libro de excelPara abrir Vba-macros y poder pegar la macro, Presiona Alt + F11Del lado izquierdo dice: VBAProject,...

Dante Amor respondió: Prueba esto: Sub CopiarDatos() Dim lr As Long With Sheets("base") lr = .Range("A" & Rows.Count).End(3).Row + 1 .Range("A" & lr).Resize(1, 9).Value = Application.Transpose(Sheets("indice").Range("D1:D9").Value) End With End Sub

Dante Amor respondió: No entendí la petición: Que con un nuevo doble click borre el anterior y coloque el nuevo ¿Si la celda ya tiene "X" entonces que la borre? Prueba esto: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'solo se...