Recorrer una columna dentro de una macro
Hola buenas tardes solicitando de su apoyo para recorrer una columna llamada total ya que mi macro que estoy corriendo actualiza mes por mes y cada vez se agrega un mes aparece una nueva columna y me la encima en total se que es con un if pero no se como implementarlo
Range("BB3").Select
ActiveCell.FormulaR1C1 = "TOTAL"
Range("BB4").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-52]:RC[-1])"
Range("BB4").Select
1 Respuesta
Si vas a poner "Total" en la fila 3 y en la última columna vacía, es decir, si en la "BA" pusiste el mes, entonces en la "BB" vas a poner "Total".
¿Siempre sumas desde la columna "B" hasta la columna que acabas de poner? siguiendo el ejemplo la fórmula quedaría =SUMA(B4:BA4) y después sería =SUMA(B4:BB4)?
Si todo es correcto cambia tu código por lo siguiente:
Cells(3, Cells(3, Columns.Count).End(xlToLeft).Column + 1) = "TOTAL" c = Columns(uc - 1).Address(False, False) c = Left(c, InStr(1, c, ":") - 1) Cells(4, uc) = "=SUM(B4:" & c & "4)"
¿Hola buenas tardes te agradezco exactamente es lo que busco pero en este caso c lo tendría que declarar?
O como declararía c ya que me marca un error
c = Columns(uc - 1).Address(False, False)
Disculpa, te envié una macro con erro, tiene que ser así
uc = Cells(3, Columns.Count).End(xlToLeft).Column + 1 Cells(3, uc) = "TOTAL" c = Columns(uc - 1).Address(False, False) c = Left(c, InStr(1, c, ":") - 1) Cells(4, uc) = "=SUM(B4:" & c & "4)"
El error es que no existía la variable uc
Pero ya te estoy enviando la corrección para encontrar la UltimaColumna.
