nicotuzin

Tor Cheer respondió: De acuerdo a lo que entendí, esta macro hace lo que requiere, saludos celda1 = ActiveCell.Row celda2 = ActiveCell.Column If ActiveCell.Column = 3 Then ActiveCell.Offset(0, 15).Value = "CONFIRMADO" Else End If

Victor Perdomo respondió: Te comento algo, lo que pides en complejo, por una razón, al momento de deseleccionar la fila, debe de volver al formato que tenia anteriormente, y eso es complejo de lograr. La mejor solución a tu problema RowLiner, un excelente complemento...

Valero Angel Serrano Mercadal respondió: Es una buena macro, la he probado. Me deja elegir 10 columnas, después da el error que dices. Esas 10 filas equivales a 40 áreas ya que cada línea tiene 4 áreas distintas. He probado haciendo que hubiera una área por fila y entonces me ha dejado 34....

Dante Amor respondió: Puedes explicar con ejemplos lo que necesitas, utiliza las columnas y dime cómo están tus datos y qué resultado esperas de la macro Saludos. Dam

Elsa Matilde respondió: Sub MacroCopiaVs() 'x Elsamatilde 'copiar col B,C,D,F,G,K,L,M,N,O,P,R,S de vs.celdas seleccionadas diré = Selection.Address For Each cd In Selection x = cd.Row If rgo = "" Then rgo = "A" & x & ":D" & x & "," & "F" & x & ":G" & x & "," & "L" & x &...