claudio1417

calvuch respondió: No quedo muy elegante, pero se cumple el objetivo: Sub elim_texto_inicio() Dim col As Range Dim S As String Dim E As Integer Dim c As Integer On Error Resume Next Set col = Application.InputBox("Elija columna para eliminar texto WBS y SDI", "Eliminar...

calvuch respondió: Prueba Sub inserta_derecha() Application.ScreenUpdating = False Selection.Offset(0, 1).Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Application.ScreenUpdating = True End Sub

calvuch respondió: En el evento BeforeDoubleClick de la hoja pones esto Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim cd As String cd = Replace(Target.Address, "$", "") cd = Replace(cd, "1", "") cd = Replace(cd, "2", "") cd =...