Este fórum está sendo desativado

[danilov]

Bom dia!

Alguém saberia me informar se existe algum código em VBA que trave os caracteres digitados quando a quantidade passar do tamanho da célula?

Eu sei que tem a opção VALIDAÇÃO DE DADOS, que eu posso limitar uma determinada quantidade, porém depende o que vou escrever, 50 caracteres (por exemplo) pode passar do tamanho da célula, e dependendo, 50 caracteres pode sobrar espaço.

Então seria algo mais ou menos assim: A pessoa vai digitando o que ela precisa, aí quando passar do tamanho célula, ou trava, ou dá uma mensagem de erro, ou corta a informação digitada que passou do campo limite.

Muito obrigado!

[gfranco]

Bom dia.
Durante a digitação (que é o que eu entendi que vc quer validar), acredito que só com o uso de API's.

[danilov]

Então, é assim, vamos supor que minha célula eu coloquei uma largura de 20, eu gostaria que a digitação fosse limitada para caber apenas nesse tamanho de 20, caso a pessoa que estiver digitando escrever algo com mais caracteres do que o tamanho da célula, algo acontecesse para não ultrapassar do tamanho. Me desculpe a ignorância, o que seria o API's?

[gfranco]

Então, é assim, vamos supor que minha célula eu coloquei uma largura de 20, eu gostaria que a digitação fosse limitada para caber apenas nesse tamanho de 20, caso a pessoa que estiver digitando escrever algo com mais caracteres do que o tamanho da célula, algo acontecesse para não ultrapassar do tamanho.

Minha sugestão seria utilizar uma fonte cuja largura dos caracteres seja a mesma, como por exemplo a fonte "Courier New"
Uma vez que todos os caracteres tem a mesma largura, basta ajustar a largura da célula e fazer uma validação de dados por comprimento do texto.

Me desculpe a ignorância, o que seria o API's?

https://pt.wikipedia.org/wiki/Windows_API



**Nota: quando quiser agradecer, clique em "obrigado"

[danilov]

Entendi, mas nesse caso, se a pessoa precisar utilizar alguns caracteres especiais como / (por exemplo), a largura é bem menor que as letras, correto? Tipo três / equivale a uma letra, aí nesse caso ficaria fora o esquema de validação de dados, correto? Pelo teu conhecimento, não teria nenhum código de VBA para esse caso né?

[gfranco]

Veja se o que fiz te ajuda.
Necessário habilitar as macros pra funcionar.
*Se a resposta foi útil, clique em "obrigado".
*Se a dúvida foi sanada, marque o tópico como "resolvido"

[jmarcelosp]

Olá galera, estou com uma dúvida parecida, alem limitar o espaço quero gerar passa para o txt

Possuo um grupo de informações que preciso passar para txt, onde importarei para um programa que não importar direto do excel, mas, para isso preciso respeitar o padrão do layout do excel, no exemplo coloco a versão em excel ou na aba do lado o layout do programa dizendo como cada coluna deve ser, como ficou grande, tive de colocar o layout abaixo:

Grato

Leiaute de Importação
Arquivo Texto


Modelo: Inventário
Posições
Descrição do Campo Observações
Inicial Tamanho (Codificação de Texto Padrão ASCII)
Data do Inventário 1 8 Formato: DDMMAAAA
Mês/Ano inicial de referência 9 4 Formato: MMAA
Mês/Ano final de referência 13 4 Formato: MMAA
Código do Produto da Empresa 17 20 Alfanumérico
Situação do produto 37 1 1=Da empresa em seu poder
2=Da empresa com Terceiros
3=De Terceiros c/ a Empresa
4=Estoque próprio em Trânsito
5=Estoque próprio inaproveitável
CNPJ do Terceiro 38 14 Se campo acima = 1, 4 e 5 move zeros, senão move CNPJ (sem máscara, só
números)
Inscrição Estadual do Terceiro 52 20 Se CNPJ for preenchido este também deve ser
UF do Terceiro 72 2 Se Insc. Est. estiver preenchida este também deve ser
Filler 74 5 Brancos
Quantidade 79 16 #########.######
Valor Unitário 95 17 ############.####
Valor Total 112 17 ##############.##
ICMS a Recuperar 129 17 ##############.##
Observação 146 60 Alfanumérico
Descrição do Produto 206 80 Alfanumérico
Grupo de Produto 286 4 Numérico
Classificação Fiscal (NCM) 290 10 Numérico. Apenas o código NCM sem zeros para preencher posições restantes.
RESERVADO 300 30 Antigo 'Nome Fantasia' - Não Utilizado
Unidade de Medida 330 3 Alfanumérico
Descrição Grupo Produto 333 30 AlfaNumérico
Unidade de Medida 363 6 Alfanumérico
Caso esta posição esteja vazia, será importado da posição 330 x 003
Valor do Item para Imposto de Renda 369 17 ##############.##
Motivo do Inventario 386 2 00=Não informado ( Valor padrão)
Valores de 01 a 05 são exclusivos para a geração do registro H005 - Totais do
Inventário do SPED Fiscal:
01=No final do período
02=Na mudança de forma de tributação da mercadoria (ICMS)
03=Na solicitação da baixa cadastral, paralisação temporária e outras situações
04=Na alteração de regime de pagamento - condição do contribuinte
05=Por determinação dos fiscos

[DeyseHingst]

Olá galera, estou com uma dúvida parecida, alem limitar o espaço quero gerar passa para o txt


05=Por determinação dos fiscos

Bom dia Marcelo.
Você já tem esses dados tabulados no Excel no formato que o arquivo txt pede?
Esse é o primeiro passo.