Dim hor As Range Dim W As Worksheet Set W = WB.Sheets("Plan1") Set hor = W.Cells(5, W.Columns.Count).End(xlUp) D...

Se foi resolvido o problema, favor marcar o tópico como resolvido. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call Coluna End Sub ...

Favor marcar como resolvido. Option Explicit Sub copiarDados() Dim I As Long Dim LINHA As Long For I = 1 To ThisWorkbook.Sheet...

Veja se você inserir a fórmula na célula do Excel dá erro. Se der erro, poste sua dúvida no fórum de fórmulas e funções aqui do planilhando mesmo. Se ...

O problema, neste caso, indica que a função não pode retornar o valor desejado. Por exemplo, se usamos a função MATCH, o erro indica que a função não ...

v = WorksheetFunction.AverageIfs(columnA, columnA, "<3", columnB, "2") If Err.Number = 1004 Then 'No matc...

Se o código resolveu o problema, favor marcar o tópico como resolvido.

Range("L63").Value = WorksheetFunction.IFERROR(WorksheetFunction.AverageIfs(Plan2.Range("AG:AG"), Plan2&#...

Favor marcar o tópico como resolvido.

Se o código resolveu o problema, favor marcar o tópico como resolvido.

Private Sub CommandButton1_Click() Dim linha As Long Dim soma As Double soma = 0 linha = 2 While ThisWorkbook.Sheets("Pl...

Favor baixar o arquivo novamente, pois foi alterado.

Alterei o código. Favor verificar o arquivo anexo. Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim linha As Long l...

Código corrigido abaixo

Option Explicit Private Sub CommandButton1_Click() Dim i, inicio, fim As Integer On Error GoTo final inicio = CInt(txtInicio.Text) fim = CInt(t...