janiosba

Olá, Passei aqui pra reforçar se tem alguém que já teve experiência em imprimir códigos de barras através do excel utilizando impressoras próprias para estes códigos Grato Janosba

Olá novamente, Alguém tem alguma experiência e poderia me ajudar na.minha demanda. Grato Janio

Olá a todos Tenho uma planilha que gera códigos de barras de vários produtos da empresa. A impressão dos códigos é feita em etiquetas de papel A4 e impressora jato de tinta. Pretendo comprar uma impressora específica de códigos de barras. Minha dúvida é a seguinte: vou conseguir imprimir estas etiquetas diretamente do excel. Obrigado

Boa tarde, Estava verificando novamente minha planilha e vi que acontece a separação das sílabas somente nas palavras que continham "ç" e "ã". Ex ambição ambiç ã o Janio

Infelizmente, não posso . Janio

Alguém já passou por este problema é sabe a solução.

Prezados, Tenho uma planilha que ao ser impressa está dando espaço entre sílabas. Exemplo Está escrito na célula A5 movimentação Na impressão sai movimentaç ão Em vários lugares da planilha acontece em outros não. Se puderem me ajudar Janio

Osvaldo, Espetacular. Isto mesmo. Muito obrigado . Janiosba

Olá a todos, Estou aqui novamente dependendo de uma valiosa colaboração. A B C 1 12345 2 6A897 3 SA123 4 5 Tenho estes dados na coluna "A" preciso de uma formula que retorne na coluna "B" a expressão : Numero: se for uma sequência de números somente NumLetra: se começar com numero e o segundo caracter for letra Letra: se começar com letra e o segundo caracter for letra Agradeço desde já. Janiosba

Osvaldo, Perfeito. Estava concentrando somente na utilização do código. Seu raciocínio de usar fórmula me ajudou. Adaptei a fórmula é resultado superou. Grato. Muito bom mesmo. Janio

Patropi, Arquivo refeito e anexado. Att Janiosba

Vou adicionado 0 minutos depois Vou refazer e anexar novamente . Grato Janio

Prezados, Volto a pedir ajuda porque estou me debatendo e não consigo concluir um trabalho. Por inteira presunção achei que sabia e não sei nada mesmo. O Osvaldo escreveu um código em outro tópico e não consegui encaixar dentro do código que peguei na net. Desta vez espero fazer de uma forma melhor, inclusive vou anexar a planilha. 0 código em VBA precisa localizar na aba "transpor" os nomes dos clientes, coluna " i " . Após a localização deverá copiar as celulas da mesma linha das colunas "A - B-D-F-G-H e I" para a aba "extrair". IMPORTANTE Obsv. Ao localizar o nome do cliente, coluna "i"(aba "transpor") e copiar os dados pra aba "extrair" o próximo procedimento e verificar na próxima linha da coluna "A"(aba "transpor") se a númeração repete, caso positivo, copiar as celulas da mesma linha das colunas "A - B-D-F-G-H e I" para a aba "extrair". Abaixo código que estou usando. Ele não copia a venda cujo numeração se repete Sub EXTRAIR_TRANSPOR() Dim x As Integer Dim j As Integer j = 4 Sheets("EXTRAIR").Range("A3:Z20000").ClearContents With Sheets("transpor") For x = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Range("I" & x) <> "" Then Sheets("EXTRAIR").Range("A" & j) = .Range("A" & x) Sheets("EXTRAIR").Range("B" & j) = .Range("B" & x) Sheets("EXTRAIR").Range("c" & j) = .Range("D" & x) Sheets("EXTRAIR").Range("d" & j) = .Range("F" & x) Sheets("EXTRAIR").Range("e" & j) = .Range("G" & x) Sheets("EXTRAIR").Range("F" & j) = .Range("H" & x) Sheets("EXTRAIR").Range("G" & j) = .Range("I" & x) j = j + 1 End If Next x End With MsgBox " PROCESSO CONCLUÍDO" End Sub Atenciosamente Janio EXTRAIR .rar

3

Osvaldo, Muito obrigado pela ajuda. Vou implementar no meu trabalho . Deus abençoe Janiosba

A. B. C. D 1 85 T X ILDA 2. 86. J. R. ANA 3. 86. X. Z. 4. 87. H. I ROSA Prezados, Preciso de um código em VBA que possa extrair os nomes, localizados na coluna 'D' e ainda os dados das colunas 'A', da respectiva linha. Obsv. Se a coluna 'D' tiver nome e a coluna 'A' houver repetição do número da linha, extrair os dados da coluna 'B' respectiva linha. Ex. Ao encontrar ILDA extrair 85 Ao encontrar ANA extrair 86 e ainda Extrair X da linha seguinte porque o número 86 repete na linha seguinte. Atenciosamente Janio

Boa noite a todos, Estou terminando este trabalho e realmente preciso melhorar este procedimento. Se alguém tem maior conhecimento e poder me ajudar. Grato Janio

Osvaldo O que faço hoje é repetir este código lá no script do vba. Confesso que acho meio ridiculo. Por isso gostaria de melhorar a sua aplicação. Não uso muito o filtro avançado. Creio que pode ser uma solução. Ainda, se alguém puder melhorar este código, agradeço. Janio

Prezados, Parte do código que estou usando abaixo é usado para comparar se na coluna "S" da Planilha chamada "Transpor" tem valores iguais a célula "A2" da planilha "Extrair". Logo a seguir copia estes valores para a Planilha "Extrair" Gostaria de incrementar este código para comparar não só com a célula "A2" e sim com os valores que estivessem nas células "A2;B2;C2;D2;E2". Caso encontre valores iguais, fazer a copia para a outra planilha chamada "Extrair" Em tempo. Esta pesquisa pode ser efetuada nas colunas, além da "S", nas colunas "V" e "Z" da planilha chamada "Transpor". With Sheets("transpor") For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row If .Range("S" & i) = Sheets("EXTRAIR").Range("A2") Then Sheets("EXTRAIR").Range("A" & j) = .Range("A" & i) Sheets("EXTRAIR").Range("B" & j) = .Range("B" & i) Sheets("EXTRAIR").Range("c" & j) = .Range("s" & i) Sheets("EXTRAIR").Range("d" & j) = .Range("R" & i) Sheets("EXTRAIR").Range("e" & j) = .Range("T" & i) j = j + 1 End If Next i Agradeço. Obs.: o código acima foi extraído da internet.

Edson, Não temos como lembrar de tudo. Hehe. Vou olhar amanhã. Com certeza é isto que estava precisando. Muito obrigado. Valeu...... Janiosba

Edson, Agradeço o empenho em ajudar Grato. Janiosba

Edson Está planilha é usada o dia todo e enorme digitação de dados. Da forma como expressei na abertura do tópico o ganho será imenso, porque muita desta digitacão são de valores abaixo de 10. Assim, ao digitar 2 ou 3 .....irá assumir 0,20 e 0,30. Agradeço muito a sua disposição em ajudar. Valeu tela dica. Janiosba

Olá a todos, Estou tentando personalizar uma formatação de valores em uma célula do Excel. Dúvida em como fazer: Ao digitar 10 o valor da célula será 0,10 e em caso de digitar 10, o valor será 10,00 A diferença será a digitação da vírgula após o número. Ex: digitar 20 a célula assume 0,20 digitar 50, a célula assume 50,00 Desde já agradeço Janiosba

adicionado 4 minutos depois Ppeterk, Muito obrigado. Sensacional o raciocínio pra solução do problema. Não estava encontrando nada a respeito. Depois de pronto parece até simples. Mas, não conseguiria sem sua ajuda. Parabéns. Janiosba

Tenho um arquivo no qual preciso fazer um desconto sobre um valor. Ora este desconto é em percentual, ora o desconto e em valor. Exemplo: célula A1 = R$ 80,00. Na célula A2 quando colocar 10% ele vai apresentar na (célula A3) o valor da célula A1 menos os 10%. Fórmula (célula A3)=(A2*A1/100)-A1. Resultado R$ 72,00 Agora vem a dúvida : Se colocasse na célula A2 o valor de R$ 30,00, como fazer fórmula ou código vba para que Excel entendesse que agora seria a (célula A3)= A1-A2 e apresentasse o resultado R$ 50,00 A B C 1. 80,00 2. 10% 0u 30,00 3. Resultado Agradeço Janiosba