deejaywesley

Boa Noite Amigo @OreiaG

Cara! Funcionou redondinho...

Você é top de mais...

13 horas atrás, OreiaG disse:

Apenas uma dica, não é necessário compactar arquivos sem macro para anexar aqui no fórum.

Então, eu tentei mas não quis subir, acho que é porque já tinha salvo o arquivo habilitado pra macro, ai o código do fórum reconheceu a extensão do arquivo. 

13 horas atrás, OreiaG disse:

Considerei que a Plan1 já estará convenientemente formatada (células, linhas e colunas).

Você acertou...

já esta formatada para ocupar a pagina inteira, sem cortar as ultimas.

Muito Obrigado!

Ficou top 

Boa Noite amigos!

Preciso de mais uma ajudinha com VBA 

anexei uma planilha com o ex do que preciso!

Muito obrigado desde já! 

Live - Etiquetas Produtos.zip

Boa Noite @OreiaG

Baixei seu arquivo, brinquei um pouco com ele kkk, ai fiz umas alterações no meu arquivo aqui, e aparentemente deu certo meu amigo!

Muito obrigado por mais essa ai! 

Forte abraço! 

Fala @OreiaG

tudo joia?

me ajudando em mais uma kkkk

te fala, quase funcionou 100%, o código copiou as colunas certinho, mas também está copiando as colunas que a célula titulo esta vazia em Plan1.

No exemplo na minha mensagem anterior, em Plan1 a coluna E a célula titulo esta vazia, ai o código tem q ignorar elas, só isso que faltou, o resto ta top.

e também está aparecendo uma mensagem de erro no final, ele copia tudo, mas mostra a mensagem de erro...

erro em tempo de execuçao 91

a variável do objeto ou a variável do bloco With não foi definida

Boa Noite Galerinha!

Estou precisando de um VBA, acredito que seja possível, ex: 

Plan1     Linha 1

      A                       B                   C                    D              E              F

Descrição            GTIN            cliente            Preço                      estoque

Pelúcia                  123               fulano              50          tecido           33

bola                        654               ciclano            28          eva               48

baralho                   989               beltrano          75          plastico         88

Plan2   Linha 3

   A                     B                          C                    D

GTIN            Descrição            Preço           estoque

123               Pelúcia                  50                 33

654               bola                       28                 48

989               baralho                  75                 88

Preciso que o vba leia os cabeçalhos da linha 1 em plan1, vá em plan2 na linha 3 e os cabeçalhos que encontrar, copiar tudo que esta na coluna abaixo do cabeçalho e colar na plan2, mas como no ex, acredito que o vba tenha que fazer coluna por coluna porque, nem sempre os cabeçalhos estarão na mesma ordem, que no ex e a Descrição  GTIN, ou terá alguns em plan1 que não existira em plan2, cliente, e devera ser ignorado e também ser ignorado se estiver vazio, no ex coluna E

Perdão se ficou confusa a explicação!   

Boa Note @OreiaG

5 horas atrás, OreiaG disse:

A alternativa no seu caso é utilizar Evaluate, que trabalha bem com matriciais e aceita variáveis nos parâmetros, se necessário.

Muito obrigado pela explicação, ja estou anotando aqui mais esta 

Funcionou certinho aqui!

forte abraço! 

Boa Noite Amigos(as)

{=MAIOR(((saldos_estoque!D2:D36000)=Reposição!B3)*(saldos_estoque!A2:A36000);1)}

Estou tentando fazer esta formula, em vba, mas esta dando erro...

Range("A3").Value = Application.WorksheetFunction.Large(((Sheets("saldos_estoque").[D2:D36000]) = Range("B3").Value) * (Sheets("saldos_estoque").[A2:A36000]), 1)

da erro de "tipos incompativeis"

alguém sabe como fazer? 

Bom dia amigo @OreiaG

tudo joia com você

O código funcionou certinho, era isso mesmo que eu precisava.

você acertou a plan2 esta limpa para receber os dados...

muito obrigado por mais este meu amigo.

forte abraço!

Boa Tarde Galerinha!

Tudo ótimo com vocês

preciso de um código VBA, e achei mais fácil já explicar direto na planilha!

desde ja obrigado os que puderem dar uma olhadinha.

forte abraço! 

produtos.xlsx

Boa tarde meu amigo @OreiaG

5 horas atrás, OreiaG disse:

 

Eu suponho que o erro irá ocorrer se o seu VLookup não encontrar o valor procurado, então o erro poderá ocorrer também nas duas primeiras condições e não só na terceira. E o uso de On Error Resume Next poderá "permitir" resultado falso na coluna F.

 

Exemplo: considerando que o preenchimento de A1:D17 seja manual, e considerando que o intervalo F1:F17 está preenchido corretamente. Agora você altera o valor em B1 de 3 para 20 e altera qualquer valor em A1:A17.

Se o valor 20 não for encontrado, o VLookup irá retornar erro e o valor em F1 não será atualizado pelo código em decorrência do On Error Resume Next, ou seja, F1 terá um valor falso.

 

Talvez uma forma de contornar seja executar o código ao alterar qualquer coluna de A até D, e não somente ao alterar A, limpar antes o valor em F e assim em caso de erro F ficará vazia (ou pode colocar mensagem indicando que ocorreu erro).

 

Seria conveniente também que o código atualizasse F somente na linha alterada em A:D, ao invés de executar Loop em todas as linhas a cada alteração manual, conforme seu código original.

Essa planilha aí é para gerar um arquivo m3u de playlist de música, aí no caso, cada aba dela aí puxa as musias referente a uma pasta, Universitária, sertanejo clássico, internacional, e esses números aí dessas colunas B e C e D, são os números da linha onde elas estão, ai fica sendo duas músicas Universitária, uma sertaneja clássica, mais duas universitárias... e a cada oito músicas toca uma Internacional e ainda vai ter mais opções, que eu ainda estou arrumando por exemplo: A cada 30 música vai rodar uma Country também para usar no evento, esses números da colunas B e C e D é os números das Linhas onde elas estão na nas abinhas, lá referente a cada pasta, ela faz essa mistura, esse procv  roda só uma vez, ele não é rodada toda vez que ela tem alteração não, ficou errado ali em cima, (como realmente é... Set Colunas = Range("A4:A4")  ), ele roda só uma vez só para puxar as musicas e gerar o m3u.

 mas ate agora ta funcionando, fazendo o que preciso e sem dar o erro, ta ótimo kkkk

Boa Noite  Amigo @OreiaG

os 2 primeiros estão rodando certo, mas esta dando erro nesta linha

Citação

Else: Cells(i, "F").Value = Application.WorksheetFunction.VLookup(Cells(i, "D").Value, Sheets("Plan4").[A1:B17], 2, 0)

Boa Noite Amigo @OreiaG

Resolvi o problema acrescentando essa linha ao seu código On Error Resume Next, neta parte:

Citação

For i = 2 To 17

On Error Resume Next

If Cells(i, "B") <> "" Then

Muito obrigado pela ajuda!

forte abraço!

Boa Galerinha 

To tentando colocar um SE em um código, mas pelo que entendo ele tem que entrar depois de um FOR, e meus conhecimentos em vba são poucos, alguém consegue ajeitar ai pra mim?

tenho estas colunas

Citação

b             c               d

 

e tenho este código

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Colunas As Range
Set Colunas = Range("A1:A17")

If Not Application.Intersect(Colunas, Range(Target.Address)) Is Nothing Then
linha = Target.Row
On Error Resume Next

      For i = 2 To 17
        Cells(i, "F").Value = Application.WorksheetFunction.VLookup(Cells(i, "B").Value, Sheets("Plan2").[A1:B17], 2, 0)
    Next

End If
End Sub

e o que preciso é de um SE nessa parte

      For i = 2 To 17
        Cells(i, "F").Value = Application.WorksheetFunction.VLookup(Cells(i, "B").Value, Sheets("Plan2").[A1:B17], 2, 0)
		Cells(i, "F").Value = Application.WorksheetFunction.VLookup(Cells(i, "C").Value, Sheets("Plan3").[A1:B17], 2, 0)
		Cells(i, "F").Value = Application.WorksheetFunction.VLookup(Cells(i, "D").Value, Sheets("Plan4").[A1:B17], 2, 0)
    Next

tipo, hora que o código estiver percorrendo a coluna B e a célula estiver vazia, pegar o valor da C e buscar na Plan3, se B e C estiver vazia pegar o valor de D e buscar na Plan4

 deu pra entender, ou ficou confusa minha explicação?

Muito obrigado @OreiaG

Ficou top 

Forte abraço 

Bom dia amigo @OreiaG

O resultado não ficou igual ao do meu exemplo, mas ficou muito interessante e resolveu meu problema.

Muito obrigado pela atenção meu amigo.

Forte abraço!

Boa Tarde Amigo.

Estou precisando de um vba que faça o seguinte, na coluna B tenho uma relação de musicas assim:

Citação

cantor A - musica 01

cantor A - musica 02

cantor B - musica 01

cantor B - musica 02

cantor B - musica 03

cantor C - musica 01

cantor C - musica 02

cantor C - musica 03

cantor D - musica 01

preciso que o vba ordene esses dados em outra coluna da seguinte forma....

Citação

cantor A - musica 01

cantor B - musica 01

cantor C - musica 01

cantor D - musica 01

cantor A - musica 02

cantor B - musica 02

cantor C - musica 02

cantor B - musica 03

cantor C - musica 03

ou seja, preciso q o vba pegue a primeira musica de cada cantor, liste, pegue a segunda de cada cantor, e liste na sequencia, pegue a terceira, quarta, e assim por diante, ate misturar as musicas para que não fique duas musicas do mesmo cantor na sequencia.

sao mais de 5mil musicas, de varios cantores, e a quantidade de musicas de cada cantor varia, um pode ter uma musica outro pode ter 30.

acho q expliquei direito kkk,

obrigado desde ja a quem tiver uma ideia para me ajudar

Boa noite @Fred Oliveira

Só dando um pitaco aqui kkk

a formula que @Midori  postou está funcionando beleza, e o resultado será 4 realmente.

no arquivo que você postou, na planilha SITUAÇÕES, linhas 1185 e 1186 na coluna B,

que são os critérios buscados para realizar a soma, as informações são idênticas...

1185   530000020220007	 Programação Enviada para Complementação/Retificação do Conselho 	DHARA
1186   530000020220007	 Programação Enviada para Complementação/Retificação do Conselho 	DHARA

logo, será considerada somente uma, como no caso do critério "cadastrada"

forte abraço! 

Boa Noite @Igor F.

Não sei se entendi direito, mas vamos lá....

Na celula C6 coloque esta formula.

=C1+C3

e em C7 coloque esta.

=SEERRO(SE((C6+$C$3)>$C$2;"";SE(TEMPO(HORA(C6+$C$3);MINUTO(C6+$C$3);SEGUNDO(C6+$C$3))>TEMPO(HORA($C$2);MINUTO($C$2);SEGUNDO($C$2));(DATA(ANO(C6);MÊS(C6);DIA(C6))+1)+TEMPO(HORA($C$1);MINUTO($C$1);SEGUNDO($C$1));C6+$C$3));"")

depois arraste a formula de C7 ate C500.

espero ter ajudado, forte abraço! 

Boa Noite @AlexandreFrancoBh

Substitua por esta aqui....

=SOMA(INDIRETO("K"&LIN()&":"&ENDEREÇO(LIN();COL()-1)))

Acho que agora vai...

Forte Abraço! 

Boa noite @AlexandreFrancoBh

Tenta assim amigo, 

=SOMA(INDIRETO("K3:"&ENDEREÇO(LIN();COL()-1)))

abraços

boa noite @Ileusis Luna

achei estranho seu primeiro print, porque mesmo com o erro, deveria ter aparecido a janela web no lado direito, mas tenta substituir os dois códigos por este

Sub limpar()
      Sheets("Pesquisa").WebBrowser1.Navigate "about:blank"
End Sub

Sub criaPagina()
 Dim HTML As String
            '----------código HTML----------
        HTML = "<HTML>" & _
                "<TITLE>Pagina Carrega no evento Load</TITLE>" & _
                "<BODY>" & _
                "<img src=""" & Application.WorksheetFunction.VLookup(Range("I7").Value, Sheets("link imagens").[A1:B100000], 2, 0) & """ align=""middle"" width=""98%"" height=""98%"">" & _
                "</BODY>" & _
                "</HTML>"
                '----------HTML fim ---------------
        Sheets("Pesquisa").WebBrowser1.Document.Write HTML

End Sub

se mesmo assim continuar o erro, acho que pode ser diferença de office, no meu uso o 2007, mas ai você tenta inserir a janela web novamente

va na guia Desenvolvedor, inserir, e no ultimo quadrinho lá, Mais controles.

na janela que abrir, procure por - Microsoft web Browser

de OK, e clic em qualquer lugar da planilha para inseri-la, digite algum valor em i7 para ver se funciona...

ps: ignore a tela a direta do print, é o que estou montando para apuração dos candidatos da minha cidade!

14 horas atrás, Ileusis Luna disse:

Preciso encontrar um curso mais focado para me desenvolver

quanto ao curso, conhecimento a mais nunca é demais 

14 horas atrás, Ileusis Luna disse:

e parar de amolar rs.. 

já essa parte eu discordo, muita coisa que sei hoje, aprendi com a galera aqui do fórum, e mesmo depois de tanto tempo, ainda não se livraram de mim, porque ainda continuo trazendo duvidas pra eles me ajudar kkkkk, e vou continuar trazendo kkkkkkkkkkkkk

tenta ai e fala o que deu.

ah! a proposito, qual a versão do seu office?

Boa noite @Ileusis Luna

15 horas atrás, Ileusis Luna disse:

@deejaywesley Valeu a tenativa, acho que meu office não é compatível, abriu com erro na formula. 

mas eu não usei formulas, as formulas que estão lá é as suas, eu usei so macro, é só ativalas e alterar o numero em i7 que a imagem muda.

Boa Noite @Ileusis Luna

veja se assim te ajuda

listagem final.rar

ative as macros

Boa noite @DiF

Muito obrigado pelo retorno meu amigo, vou fazer as alterações que você sugeriu, e vou pesquisar e estudar mais um pouco sobre suas dicas, porque php e sql estou aprendendo na cara e coragem mesmo, conforme forem surgindo as duvidas vou postando aqui kkkkkkkkk.

Mais uma vez obrigado pelas orientações e pela atenção!

forte abraço!

Boa Noite @DiF , muito obrigado pelo retorno.

16 horas atrás, DiF disse:

Não seria mais fácil  definir o campo de votos como INT?  você usou como texto....

coloquei como texto, porque os dados que vão estar na tabela qrcode, vai ter texto, aqui esta um...

Citação

QRBU:1:2 VRQR:1.5 VRCH:20201013 ORIG:VOTA ORLC:LEG PROC:297 DTPL:20201115 PLEI:304 TURN:1 FASE:O UNFE:MG MUNI:49611 ZONA:211 SECA:197 AGRE:256 IDUE:1266929 IDCA:342170834320399162250941 VERS:7.34.1.0 LOCA:1228 APTO:546 COMP:392 FALT:154 DTAB:20201115 HRAB:070000 DTFC:20201115 HRFC:170249 IDEL:426 CARG:13 TIPO:1 VERC:202011011750 PART:13 13013:9 13100:1 LEGP:0 TOTP:10 PART:14 14000:3 14014:2 14110:5 14123:6 14193:1 14333:2 14365:2 14733:1 14777:9 14789:12 14999:2 LEGP:0 TOTP:45 PART:19 19000:20 19019:10 19100:1 19111:2 19123:4 19333:3 19777:1 19789:7 19800:1 19999:9 LEGP:1 TOTP:59 PART:22 22000:2 22022:4 22100:12 22111:1 22123:40 22210:1 22212:2 22222:8 22345:1 22456:3 22777:4 22789:1 22999:1 LEGP:4 TOTP:84 PART:23 23000:6 23100:3 23200:1 23456:1 23999:3 LEGP:0 TOTP:14 PART:25 25000:1 25025:3 25050:2 25100:5 25111:4 25113:1 25123:2 25199:3 HASH:F40CE3537D03DD346CEA55BC6A7130E521646EBF0603FECEB5D99BF1ECC1F1CD8DB5FC0676C604F0BBD65946B3D669AA876C290A3DDDD352AE5E7797FAE6974B

serão vários qrcode escaneados e enviados, sendo, o que esta antes dos dois pontos, na coluna numero e o que esta depois na coluna votos.

por isso pensei em ter uma outra tabela com o numero e nomes dos candidatos, porque esta seria digitada manualmente, ai por ex, o candidato fulano de numero 25199, neste qrcode retornaria 3 votos, e conforme forem escaneado novos qr, iria somando, pegando o 25199, na coluna num_ps como referencia e buscando ele na coluna numero em qr, como um somases de excel, porque ai ignoraria todo o resto do qrcode.

quanto a sugestão de somar direto no sql, gostei muito, mas não sei se vou conseguir funcionar, porque como no modelo acima vai ter letras no mesma coluna números.

Me desculpe se eu demorar a entender seu raciocínio, porque ainda sou muito iniciante em php e sql, eu cheguei a ler um pouco sobre "INNER JOIN" que você mencionou, mas não consegui fazer funcionar no meu projeto, mas todas ideias e sugestões são bem vindas, e desde já muito obrigado pela atenção!

Boa noite amigos!

tenho este código em uma pagina e esta funcionando, só que estou tentando acrescentar alguns parâmetros nele, e não estou conseguindo.

require("../conectar.php");//chama o arquivo de conexão com o BD

$consultarwcp = mysqli_query($conn, "SELECT *  FROM apurar WHERE secao ");
 if(mysqli_num_rows($consultarwcp) > 0){
		
	$validos = mysqli_query($conn, "SELECT sum(votos) FROM apurar");
	while($sum = mysqli_fetch_array($validos)){
	$somaV = $sum['sum(votos)'];
	}

	$sql = "SELECT SUM(votos) as SOMA, candidatos FROM apurar GROUP BY candidatos ORDER BY SOMA DESC";
	$exec = mysqli_query($conn, $sql);

	while ($rows = mysqli_fetch_assoc($exec)) {
		echo "<table><tr> <td>".$rows["candidatos"]."</td> 
				   <td>".$rows["candidatos"]."</td> 
				   <td>".$rows["SOMA"]."</td><td>".number_format(($rows["SOMA"] * 100)/$somaV, 2, '.', ',')." %</td>
		</tr></table>";
	}
 }

basicamente ele vai ate a tabela apurar, lista todos nos nomes na coluna candidato, faz um somasse na coluna votos, unindo os valores q tenha nomes iguais, e me retorna os dados em ordem decrescente.

segue imagem com o meu novo BD

estou tentando alterar aquele código para fazer o seguinte:

ele vá a tabela PS, liste os números que estão em num_ps, depois

vá em qrcode, busque os mesmos valores na coluna numero, faça o somasse em votos, e me retorne em ordem decrescente...

numero listado, nome q esta em cand_ps, e os votos, e % dos valores....

outro ex:

os dados em PS vão estar assim:

id                num_ps               cand_ps

1                   47                       maria

2                   84                       joyce

3                   33                       julia

os dados em Qrcode:

id            secao             numero           votos

1               70                 47                    200

2               70                 84                    150

3               70                 33                     300

4               70                 66                    180

5               70                 71                    410

6               85                 47                    100

7               85                 84                    200

8               85                  33                   400

9               85                 66                    280

10              85                 71                    510

11              123                47                    50

12              123                84                     70

13              123                33                     20

14              123                66                    99

15              123                71                    550

e preciso que me retorne

33     julia       720      48,32%

84     joyce     420      28,19%

47     maria     350      23,49%

já olhei em vários tópicos, e em vários outros fóruns, mas não achei como alterar, e as que faço retorna erro, aguem pode alterar pra mim por favor?