Erik Wesley

Se for possível poste seu arquivo, vou tentar lhe ajudar também.

Tente explicar com mais detalhes, assim não consigo entender o que você quer.

Use: Sheets("PROSPECTS").Cells(linha, "AB") = DateValue(Frm_Prosp.TxtDataAut.Value)

Manda a parte do seu código que retira a data do local e cola no destino.

Use o: DateValue(Variavel) ele ira resolver seus problemas de data invertida. Exemplo: Dim DataAtual as String DataAtual = "10/08/2018" ActiveCell.Value = DateValue(DataAtual)

Se explicarem melhor posso ajudar.

Aqui uma ótima dica: https://www.baboo.com.br/arquivo/software/desative-o-modo-protegido-no-excel/

Disponha!

Seu código está correto. No entanto, você colocou o seguinte trecho de forma errada: wIr.Rows("9:Linhas").EntireRow.Hidden = True O certo seria: wIr.Rows("9:" & Linhas).EntireRow.Hidden = True

Hm... então é pra pegar a variável da label + 1 (Até o 30) e colocar em uma célula correspondente ao número anterior, acertei?

Talvez a planilha esteja bloqueada (Como disse o Alysson), ou ele não encontrou a planilha, ou o nome da mesma está errado (Mesmo que por uma virgula - a grosso modo). Mais é bom compartilhar um exemplo, ajuda na hora de ajudar.

Hm... Talvez o MouseMove

Então está ótimo.

Fiquei perdido... Até onde (Eu) entendi, você pode usar o comando "MsgBox"

Qual a parte que está copiando?

Ok. Me diga sua necessidade, mas de uma forma simplificada.

Esse artigo responde suas perguntas: https://excelb2b.com/2014/01/28/somando-apenas-linhas-visiveis-no-excel-funcao-subtotal/

Pode ser o tipo de variável. Tente mudar de "String" para "Boolean" ou "Double"

Beleza então.

É a variável que guarda a última linha preenchida.

Compartilhe sua planilha, será mais fácil.

Talvez por que na segundo forma falte "...Object.Value"

Disponha!

Você pode referenciar a célula destino (Que recebe a contagem), e trocar essa referencia com um botão (Trocar período).

Você pode tentar assim também: Sub Somar() Dim uLin As Long uLin = Application.WorksheetFunction.Count(Sheets("plan1").Range("A:A")) Coluna = Worksheets("Plan1").Range("A1:A" & uLin) ValorSomado = WorksheetFunction.Sum(Coluna) Range("B1") = ValorSomado End Sub Ele vai selecionar todas as células preenchidas da coluna A e colocar o valor somado na célula B1. Eu acho melhor do que colocar uma formula.