3

Se definir a coluna inteira P:P a folha vai congelar. Como é que defino o rng, alguma ideia?

CÓDIGO:

Sub teste()
Dim rng As Range
Set rng = Range("P2:P300") 'Estou a definir até à linha 300 para não quebrar

For Each Row In rng.Rows

If Row.Value > "0" And Row.Value <= "100" Then

Range("U2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+40%)"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)
Selection.NumberFormat = "0"

ElseIf Row.Value > "100" And Row.Value <= "150" Then

Range("U2").Select
ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+35%)"
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)
Selection.NumberFormat = "0"


End If
Next Row
End Sub

1 Resposta 1

1
Sub teste()

    rng = Columns(16).End(xlDown).Row

    MsgBox rng

    For i = 1 To rng

        If Cells(i, 16).Value > "0" And Cells(i, 16).Value <= "100" Then

            Range("U2").Select
            ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+40%)"
            lastrow = Range("A" & Rows.Count).End(xlUp).Row
            Range("U2").AutoFill Destination:=Range("U2:U" & lastrow)
            Selection.NumberFormat = "0"

        ElseIf Cells(i, 16).Value > "100" And Cells(i, 16).Value <= "150" Then

            Range("U2").Select
            ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+35%)"
            lastrow = Range("A" & Rows.Count).End(xlUp).Row
            Range("U2").AutoFill Destination:=Range("U2:U" & lastrow)
            Selection.NumberFormat = "0"

        End If

    Next i

End Sub
11
  • Sim, até à última linha @Leandro Felipe Moreira!
    – b8engl
    Commented 5/06/2017 às 12:56
  • Como é que defino isso em Set rng = Range("P2:P300")?
    – b8engl
    Commented 5/06/2017 às 12:59
  • Então, aparentemente seu código tem alguns erros, qual é o objetivo do código? Você quer que a célula da respectiva linha receba a formula? Commented 5/06/2017 às 16:58
  • O código preenche até à última linha. Mas o que eu estou a perguntar é como defino para ele procurar a última linha preenchida. Não posso definir até Range("P2:P300"), até porque pode ser menos ou mais linhas.
    – b8engl
    Commented 5/06/2017 às 17:19
  • Definir a rng fica Set rng = Columns(16).End(xlDown).Row e o For fica For Each Row In rng Commented 5/06/2017 às 17:31

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .