Wagner colocando apóstrofo (') no início da linha só tratou o bloqueio para salvar com a mensagem (MsgBox "Não há dados para gravar.", vbExc...

Boa tarde!! Tente Sub AleVBA_12232() Dim strPath As String Dim strFolderPath As String strFolderPath = "C:" strPath...

Alexandre fiz um teste tirando o sinal de "=" esta salvando no lugar certo, porém permanece o comentário inicial. If Me.lstvOrcamentos.List...

Boa tarde johnsmith No link abaixo tem um tutorial sobre como fazer gráficos com intervalo dinâmico.

Alexandre já fiz isso e não deu certo. With Sheets("BCODADOS").Range("a500000").End(xlUp) silvajmp

Boa tarde!! Infelizmente eu não posso ver com mais atenção, mas porque não referencia a guia? Sheets("MInhaGuia").Select, etc..etc..e...

Alexandre, deu certo, porém não esta salvando na sheet(BCODADOS). silvajmp

Boa tarde!! Não testado! Já tentou assim...? If Me.lstvOrcamentos.ListItems.Count >= 0 Then Att

Boa tarde!! Veja minha versão, faça os testes Att

Experimente: Dim rowcount As Long Dim clt As Control rowcount = Cells(Cells.Rows.Count, "A").End(xlUp).Row If VBA.I...

Boa tarde!! Com certeza algumas células (após o cadastro ser registrado na guia), não estão como formatos moedas para o excel. Você pode formatar to...

Boa tarde!! Não conseguiu adaptar? Tente se basear na ideia abaixo. If WorksheetFunction.CountIf(ws.Range("A2", ws.Cells(iRo...

Reinaldo deu certo, eu acho que este caso das concatenações terminaram. Valeu! silvajmp

Boa tarde!! Use a pesquisa, há dezenas de postagem sobre esse assunto.