'Hola a todos, tengo el siguiente código:
Sub PegarDato()
Sheets(2).Select
'los datos que evalúo los obtengo de las celdas "Q10" y "R10" de la hoja2, donde establezco el rango que necesito sumar,
'por decir necesito el total de los dias 1 al 7
'y para que sume las celdas "J74" a partir de la hoja4 ya intenté sumar "3" al primer parámetro algo como esto:
'For i = Range("Q10").Value + 3 To Range("R10").Value
'pero creo que no es correcto porque no me da resultado
'de nuevo necesito su ayuda...
If Range("Q10").Value <> "" And Range("R10").Value <> "" Then
MsgBox "Los parámetros son: " & Range("Q10").Value & " a " & Range("R10").Value
'Este ciclo se aplica a partir de la hoja4
For i = Range("Q10").Value To Range("R10").Value
Sheets(i).Select
suma = suma + Range("J74").Value
Sheets(2).Select
Range("P10").Value = suma
Next
Else
MsgBox "¡Indique los parámetros!", vbCritical
End If
End Sub
'espero haberme explicado,
'gracias por sus atenciones.
'saludos
