CasaDoHardware

Experimente este entao: Sub InsereImagem() Dim MinhaImagem As String Dim Imagem As Picture Dim Confirma As String Dim W As Worksheet Set W = ActiveSheet Confirma = MsgBox("Deseja Adicionar uma Imagem?", vbQuestion + vbYesNo, "Inserindo Imagens!!!!") If Confirma = vbNo Then Exit Sub MinhaImagem = Application.GetOpenFilename("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Selecione a Imagem a Ser Importada!!!") If MinhaImagem <> "" Then Set Imagem = W.Pictures.Insert(MinhaImagem) With Imagem 'Ajusta a posição da imagem na celula .Top = ActiveCell.Top + 0.5 .Left = ActiveCell.Left + 1 .ShapeRange.LockAspectRatio = msoFalse 'Define o tamanho da imagem .Height = ActiveCell.Height .Width = ActiveCell.Width .Placement = xlFreeFloating End With End If End Sub

Experimente este link https://www.guiadoexcel.com.br/alinhar-e-ajustar-imagens-no-excel-vba/

@Venicio Rimes Oliveira Disponibilize parte do seu arquivo com alguns dados mostrando mesmo que manualmente o resultado esperado.

Que codigo você esta usando para fazer a copia?

altere esta linha de codigo ultimaLinha = Folha1.Cells(Rows.Count, "a").End(xlUp).Row Para esta ultimaLinha = Folha1.Cells(Rows.Count, "a").End(xlUp).offset(1,0).Row

seguindo a dica do @patropi troque a primeira parte da formula dele pela sua soma =soma(b2:k2)/((cont.valores(b2:k2)-cont.se(b2:k2;"nf")) =(b2*2+c2*2+d2+e2+f2+g2+h2+i2+j2+k2)/((cont.valores(b2:k2)-cont.se(b2:k2;"nf"))

Selecione os dados Copiar Colar Especial > Transpor

So fica impossibilitado se você nao tiver acesso ao arquivo. O fato de estarem em locais diferentes nao interfere.

Alterou a quantidade de dados na planilha base? E sim fiz uma alteração no codigo para que a planilha fique limpa de dados apos a ultima impressão.

Ajustado. Guia Cegar Lojas 031.rar

Tem que ver ate onde você foi. Neste link tem uma planilha que gera o codigo de barras. https://www.clubedohardware.com.br/forums/topic/1319033-emissor-de-guia-cega/

Eu baixei a fonte resolvi o problema. Que bom que funcionou.

@Luan Valle O arquivo esta corrompido. Eu testei tb Teste o codigo que postei acima Ja que nas imagens nao é possivel ver em que coluna inicia seus dados

quando você diz voltar é sempre para a mesma planilha? Se for isso basta usar esse codigo em um modulo e associar ao botao. Sub Voltar Sheets("Menu").select ' Troque menu pelo nome da guia que você deseja usar Thisworkbook.save end sub

como os links estão corrompidos tente ajustar esse codigo. sub imprimir() dim w as worksheet dim lr as long w = sheets("plan1") ' troque pelo nome da sua planilha. lr = w.range("b" & rows.count).end(xlup).row 'troque b pela coluna que tiver maior quantidade de dados. 'troque "b1:f" pela primeira celula que quiser imprimir e pala ultima coluna w.range("b1:f" & lr).printout end sub é so copiar e colar em um modulo e associar a um botao.

você esta usando uma planilha diferente da ultima que enviei. O codigo que você esta usando deixa de imprimir a ultima folha ja havia detectado o problema e corrigido, mas você nao fez o dowload do arquivo. Segue novamente o com o codigo corrigido. Para evitar erros apague os anteriores. Uma coisa que nao entendi aqui a impressão nao sai o codigo de barras. Diferente da impressão que você fez. Tem ideia do porque? Guia Cegar Lojas 031.rar

Não sei se entendi mas me parece que resolve você classificar os dados utilizando a coluna A e B como criterio de classificação em modo decrescente. Se precisar de um codigo para isso basta usar o gravador de macros.

Ajustei o codigo para as 20 etiquetas na mesma folha Lembre-se que os dados da planilha dados deve ser iguais a este modelo. Guia Cegar Lojas 031.rar

você consegue fazer isso com o gravador de macros. Basta iniciar a gravação e fazer a copia dos dados.

Nao sei o que você fez mas a planilha que eu te enviei tem apenas dados. Não tem os subtotais. Se você importa do sap assim vai precisar remover primeiro, (pode ser feito pelo vba), ou você pode fazer manualmente. Eu apenas escrevi o codigo para impressão das etiquetas os outros foram mantidos conforme você enviou. A sua base de dados deve ter o mesmo formato do exemplo que enviei, outros formatos precisa alterar o codigo. Eu formatei o que cabia em 1 folha para impressão. Faça o seguinte veja qtas etiquetas cabem em 1 folha e mande uma copia assim é possivel ajustar o codigo para atender a quantidade de etiquetas por folha.

Esquece a formatação. Nao ha mais formatação a ser realizada. Se a planilha dados tiver 50 linhas ou 5000 vai imprimir tudo de acordo com o seu filtro informado na planilha EAN. Como eu escrevi na planilha você nao precisa realizar nenhum filtro basta ter os dados carregados do SAP na planilha dados escolher os dois filtros e executar a macro. Nao vai mais precisar saber qtas paginas você vai precisar. Me parece que você nao testou a planilha. Insira mais linhas com dados na planilha dados (APENAS NELA, NAO MEXA NA FORMATAÇÃO DA PLANILHA EAN), faça um novo teste.

Veja se é assim!! Guia Cegar Lojas 031.rar

Eu me referi na planilha Cod EAN... Essas duas informações você digita e só imprime os que sao verdadeiros. É isso?

Duvidas: O agrupamento esta relacionado ao Fornecedor? Ou seja para o numero 200117433 sempre sera o fornecedor Supermercado? Esses valores você filtra na hora da impressão?

Vai colar esta formatação da celula A5 (descrição), e vai colar onde? Outra pergunta: Vai fazer o que com isso? Se a intenção é preencher a planilha codigos ean com a informação da planilha dados para depois imprimir tem um modo muito mais eficiente que este de ter 50, 100 paginas formatadas de acordo com a quantidade de dados. Se essa for a intenção poste um arquivo com alguns dados, suficiente para duas folhas, e cole na planilha a ean os mesmos dados em um 2 conjuntos de celulas. Informações fixas como descrição e similares devem estar preenchidas.