Tomás Vásquez Fórum

Nei Stolberg

Bom dia.. Só para informar. Ontem, o Office aqui da empresa foi atualizada para uma versão mais recente, e milagrosamente :D , o Application.visible voltou a funcionar. Eu havia entrado em contato com o suporte da Microsoft, lá atraz quando começou o problema, mas eles me enrolaram dizendo que o pro...

Nei Stolberg

Pode ser, mas como verifico isso e mais... como resolvo isso?...kkkk. Já pensei até em abrir um projeto novo, aqui na empresa, e copiar todos os Forms, Módulos e Classes para esse novo projeto e salvar para ver se funciona. Só não fiz ainda porque não tive tempo. Bom, se souber de algo me avise por ...

Nei Stolberg

Boa tarde... Tenho uns arquivos do Excel antigos que usam o comando Application.visible para ocultar o excel e deixar somente o Form aparecendo. No trabalho esto usando o Excel para Office 365 MSO, e para minha surpresa o Application.visible não está funcionando. A planilha abre, o exel é ocultado, ...

Nei Stolberg

Cara..

Vou ser sincero com você....essa sua explicação ficou um tanto confusa, pelo menos pra mim.
Coloque um exemplo ai de como é e como você quer que fique...acho que vai ficar melhor para a galera entender e poder lhe ajudar.
Sds.

Nei Stolberg

Bons códigos a todos..
Sds,

Nei Stolberg

Cara... Vc pode fazer um loop e verificar a próxima linha em branco....algo do tipo assim: L = 1 Do if cells(L,1).value = "" then "inserir aqui o código para inclusão do novo item" C = 1 End if L = L+1 Loop Until C = 1 Adaptando ao seu código, creio que isso resolva. Valeu...

Nei Stolberg

Gregorio, Cara...isso tá me cheirando a restrições nas diretivas do WinXP, afinal, tem vírus pacas disfarçado em formato flash, e esta atualização das diretivas pode ter sido incorporada no seu sistema operacional em uma das atualizações rotineiras do WinXP. A boa notícia, caso minha teoria esteja c...

Nei Stolberg

Amigo, Da pra usar quase o mesmo código que te passei pra tirar os zeros: Sub Concatenar() L = 1 Do If Sheets("Plan1").Cells(L, 1).Value <> "" Then ValoresConcatenados = Sheets("Plan1").Cells(L, 1).Value & Sheets("Plan1").Cells(L, 2).Value & _ Sheets(&...

Nei Stolberg

Cara...

Para Android eu sei que tem. Mas pra Win 8 desconheço.
Sds,

Nei.

Nei Stolberg

Olá amigo, Se os números tiverem sempre as mesmas quantidades de caracteres, creio que isso pode ajudar: Sub RetirarZeros() L = 1 Do If Sheets("Plan1").Cells(L, 1).Value <> "" Then NovoValor = Mid(Sheets("Plan1").Cells(L, 1).Value, 3, 20) Sheets("Plan1").Cells...

Pesquisa resultou em 14 ocorrências

Re: Application.visible parou de funcionar em arquivos antigos

Re: Application.visible parou de funcionar em arquivos antigos

Application.visible parou de funcionar em arquivos antigos

Re: Editar varias linhas da listbox.

Re: Inserir dados abaixo dos já existentes!

Re: Inserir dados abaixo dos já existentes!

Re: Animação em flash solicita confirmação para rodar

Re: Código VBA para concatenar colunas da planilha Excel

Re: Software Reconhecimento de Escrita para Excel

Re: Código VBA para retirar dois caracteres de um número