danny123

Claudio Cruz respondió: Entonces, solo cambia lo siguiente: cellIni = ActiveCell.Offset(0, -1).Address y cellFin= ActiveCell.Offset(0, -1).Address Avisame si te funciona y te recomiendo probarlo completamente antes de finalizar la pregunta.

Claudio Cruz respondió: He hecho lo que comentas con el siguiente código: Sub InsLineas2() Dim cellIni$, cellFin$, varSuma Range("A3").Select 'Nos posicionamos en la primera fila de valores Do If IsEmpty(ActiveCell) = False Then cellIni = ActiveCell.Address 'Asignamos la...

Elsa Matilde respondió: Entrá al Editor, y de la lista de objetos que ves en el panel izquierdo seleccioná con doble clic la HOJA desde la que seleccionarás la celda. Allí copiá esta rutina: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address =...