Jump to content
Fórum Script Brasil
  • 0

Célula vázia


Henrique Eduardo

Question

Estou com problema na hora de aplicar a macro abaixo:

Dim wks As Worksheet
    Dim rng As Range
    Dim Cont As Long
    Dim i As Integer
    Dim totalLinhas As Integer
   
    totalLinhas = Planilha4.Range("F15").CurrentRegion.Rows.Count + 1
   
 
    Set wks = ActiveSheet
    Set rng = wks.Range("F14").Offset(1)
   
    If Not IsEmpty(rng) And IsNumeric(rng) Then
        Set rng = wks.Range(rng, rng.End(xlDown))
        wks.cells(n, 1) = Application.WorksheetFunction.Sum(rng)
    End If
  
   
    Set rng = Nothing
    Set wks = Nothing

End Sub

A ideia é que some todo o valor da célula F a partir das F15, até a primeira célula vazia que aparecer , até aí tudo certo, só que além disso, quero que o valor somado seja colado nessa célula vazia, ou seja , logo abaixo das células somadas.

 

Observação, não dar certo contando até a última linha e voltando para a célula vazia , pois após essa célula vazia existirá mais outras células , e não posso definir a célula pois ela é variável , então sempre que eu adicionar um produto ela é deslocada.

 

 

Alguém me ajuuuuuuda

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.9k
×
×
  • Create New...