brunoxro,
Desculpe, acho que não soube me expressar...
Na célula N4, há um intervalo preenchido (d6:d20) que eu já identifiquei anteriormente via fórmula, e eu quero que este intervalo que encontrei seja preenchido com o valor presente na célula o4.
Ou seja quero que todas celulas do range em N4 (D6:D20), sejam preenchidos com o valor de O4 (2211), e que ele faça isso para as próximas células (N5,N6,N7....)
Eu comecei a fazer no vba de um jeito que funciona, mas não é ideal, pois do meu modo eu teria que definir variáveis para cada célula preenchida com intervalo, porque não sei usar loop (ainda)
por exemplo:
Sub teste()
Dim n4 As String
Dim n5 As String
Dim n6 As String
Dim n7 As String
Dim n8 As String
Dim n9 As String
Dim n10 As String
Dim n11 As String
Dim n12 As String
Dim n13 As String
Dim n14 As String
On Error Resume Next
n4 = Range("n4").Value
Range(n4).Formula = Range("o4").Value
n5 = Range("n5").Value
Range(n5).Formula = Range("o5").Value
n6 = Range("n6").Value
Range(n6).Formula = Range("o6").Value
n7 = Range("n7").Value
Range(n7).Formula = Range("o7").Value
n8 = Range("n8").Value
Range(n7).Formula = Range("o8").Value
n9 = Range("n9").Value
Range(n9).Formula = Range("o9").Value
n10 = Range("n10").Value
Range(n10).Formula = Range("o10").Value
n11 = Range("n11").Value
Range(n10).Formula = Range("o11").Value
n12 = Range("n12").Value
Range(n12).Formula = Range("o12").Value
n13 = Range("n13").Value
Range(n13).Formula = Range("o13").Value
n14 = Range("n14").Value
Range(n14).Formula = Range("o14").Value
End Sub
Postado : 30/11/2016 11:58 am