Montserrat Mavarez

fejoal respondió: .19.05.17 Buenos días, Montserrat Como mencionas que ya tienes una rutina, creo que deberías reemplazar en ella el paso que abre el otro archivo por las siguientes instrucciones que también lo abren sólo si no estuviese abierto: Sub AbreArch()...

Dante Amor respondió: Te anexo la macro actualizada Sub Copia() 'Por.Dante Amor ' Set b = Rows(19).Find("Importe", lookat:=xlWhole) If Not b Is Nothing Then col = b.Column + 26 i = 22 Do While Cells(i, "Z") <> "" For j = col To Cells(20,...

Dante Amor respondió: Según tu imagen tienes en DN19 la palabra "Importe" Luego en la celda EM22 tienes el valor 20, ese valor 20 lo quieres en la celda Y22, ¿correcto? Ahora en la celda EM23 tienes el valor 20, ¿ese 20 lo quieres en la celda Y23? En la celda EM24 tienes...

fejoal respondió: .04.05.17 Buenas tardes, Monserrat Parece que este sitio estuvo caído por un tiempo pues no dejaba salir las respuestas. Entendiendo que la columna donde esté tu tabla puede variar, la siguiente rutina funciona seleccionando primero la celda donde...

Adriel Ortiz Mangia respondió: [Hola Te paso la macro Sub multiplicar() ' '[Por Adriel Ortiz ' For i = 4 To Range("A" & Rows.Count).End(xlUp).Row For j = 2 To Cells(4, Columns.Count).End(xlToLeft).Column If Cells(i, "A") = "EXP" Then Cells(i, j) = Cells(i, j) * -1 End If Next j...