UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO macro sumar cada 12 celdas el 03/11/15, 03:36 pm

rosendo2


Buenas tardes compañeros, me es grato saludarlos, y aprovecho para solicitar de su ayuda
La siguiente macro me permite colocar en la celda g25 la formula =2 y luego bajar 12 celdas y debe colocar =2+2, sumando a la celda g25 +2, y de manera sucesiva cada doce celdas debe realizar o colocar la formula =2+2, lo que logro hacer con esta sentencia: ActiveCell.FormulaR1C1 = "=+R[-12]C+2". Ahora bien necesito que eso se repita cada 12 celdas y la copie hasta el final de los datos que tenga la hoja.
El detalle está en que las once celdas que anteceden a la sentencia:  (ActiveCell.FormulaR1C1 = "=+R[-12]C+2") deben quedar vacías y de la manera como la tengo me llena todas las celdas.
Agradezco la colaboración que puedan brindarme.
Sub Macro1()
' Macro1 Macro
'
    [g25].Select
    ActiveCell.FormulaR1C1 = "2"
    [g37].Select
    ActiveCell.FormulaR1C1 = "=+R[-12]C+2"
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.FillDown
    [g14].Select
End Sub
 
 

Cordial saludo
Rosendo
Archivos
sumamacro.xls
No tienes los permisos para descargar los archivos.
(64 KB)

2RESUELTO Re: macro sumar cada 12 celdas el 03/11/15, 06:42 pm

adolfo castro


Hola buenas noches, Rosendo2, no lo he probado pero intenta algo con esto, cabe asignar el tipo de variable, pero no dispongo de mucho tiempo, asi que prueba y comentas.

Sub macro()
Dim inicio
Dim final
Dim dato As Integer
Hoja1.Select
dato = 2
inicio = 25
final = Range("a65000").End(xlUp).Row
Application.ScreenUpdating = False
Cells(25, 1).Select
Do While ActiveCell <> ""
fila = ActiveCell.Row
If fila >= final Then
'MsgBox final
Exit Sub
End If
ActiveCell.Offset(0, 6).Value = dato
dato = dato + 2
ActiveCell.Offset(12, 0).Select
Loop
Application.ScreenUpdating = True
End Sub


saludos Adolfo castro

3RESUELTO Re: macro sumar cada 12 celdas el 03/11/15, 09:40 pm

Igtelo


Hola sres.

Adjunto otra variante.

Saludos
Ignacio Téllez
Archivos
Rosendo2-sumamacro.zip
No tienes los permisos para descargar los archivos.
(25 KB)

4RESUELTO Re: macro sumar cada 12 celdas el 03/11/15, 10:48 pm

rosendo2


Buenas noches compañeros, Adolfo Ignacio, gracias por la ayuda.
con la macro diseñada por Ignacio funciona muy bien lo que estoy desarrollando. Adolfo con el tema de la programación soy bien ignorante, a veces me atrevo a hacer algo pero por lo general me cuesta mucho, de igual manera con el código que desarrollaste seguire intentando entenderlo y así ponerlo a funcionar.

Gracias por la colaboración.

cordial saludo - Rosendo

5RESUELTO Re: macro sumar cada 12 celdas el 03/11/15, 10:55 pm

Igtelo


Rosendo:

Sólo copia y pega el código de Adolfo y listo, los 2 hacen lo mismo sólo que uno es más corto que el otro.

Por favor ponlo como resuelto.

Saludos
Ignacio

6RESUELTO Re: macro sumar cada 12 celdas el 03/11/15, 10:57 pm

rosendo2


Ok Adolfo ya entensdí y lo probe y me funciona muy bien.
Nuevamente mil gracias

7RESUELTO Re: macro sumar cada 12 celdas el 03/11/15, 10:58 pm

Igtelo


Y marcarlo como resuelto?!

8RESUELTO Re: macro sumar cada 12 celdas el 03/11/15, 11:21 pm

rosendo2


Ignacio le marco el icono de resuelto pero no lo toma a la final

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.