Option Explicit Sub TESTE() Dim N As Double Range("A4").Select N = ActiveCell.Offset(-3, 0).Value MsgBox N End Sub Cinco di...

Quando enviar código, aperte o botão Code. Marque como resolvido na parte que resolveu sua dúvida, não na sua própria parte.

Substitua estas linhas: SumTotal = WorksheetFunction.Sum(TabVendas.Cells(LINHATAB, 8)) Sheets("RelPedido").Range("F21&q...

Private Sub CommandButton1_Click() sheets("RelPedido").Range("F21").Value = WorksheetFunction.Sum(sheets("TabV...

Sub Macro1() ' ' Macro1 Macro ' ' Dim i As Long For i = 2 To ThisWorkbook.Sheets.Count Sheets("Plan1").Select Cell...

Option Explicit Private Sub Workbook_SheetActivate(ByVal Sh As Object) Dim num As Integer Dim I As Integer num = 0 For I = Thi...

Fiz uma alteração no arquivo às 15:41. Verifique se já baixou esta versão.

Coloquei um Break Point (F9) no código e verifiquei que a função que faz o cálculo estava recebendo a data como 00:00:00, ou seja, não estava recebend...

Anexo

Todas as respostas foram baseadas no código que você postou. Só você conhece o projeto. É só você testar e ver qual resultado está de acordo com o que...

With wsAtiva If .Range("D" & Linha).Value <= .Range("D9").value Then .Range("F"...

dim j as integer For i = 2 To ultimaLinha If Plan2.Cells(i, 1) = "1" Then for j = 1 to 34 Plan3.Cells(Lin, j) = Plan2.Cells(i...

https://www.youtube.com/results?search_query=vba+copiar+dados+de+uma+planilha+para+outra http://www.planilhando.com...

Segundo as regras deste fórum, não se deve escrever a palavra "ajuda" no título do tópico. Private Sub CommandButton2_Click() Dim ul, us As...