destaquei em amarelo, se quer qtos valores sao inteiros ou se quiser somar td

n entendi, é pra distribuir 1000 reais no total entre x pessoas cada um recebe proporcional a um peso gerado aleatoriamente?

Select Case sheets("plan1").range("B2").value Case 1 macro1 Case 2 macro2 Case 3 macro3 End Select

testa aqui tb fiz outra pesquisa no userform2 com vlookup, é mais simples de fazer

tira o val() dos 2 val serve pra converter string p/ numeros

sobre o ultlin tinha dado algum erro nessa linha, dai troquei, mas agora vendo melhor acho q funciona praticamente igual, devia ter algum erro de sint...

melhor usar case qdo sao varias condicoes ultlin tava errado nao se usa cells().text , é value range.cells tb errado seu loop nao tava incrementando o...

tem mta coisa errada ai Sub verifica_mes() Dim UltLin As Integer Dim aux As Integer Dim mes1 As String, mes2 As String, mes3 As String, ...

pode usar um range variavel usando indireto, tipo isso: INDIRETO("$A$1:$A$" & CONT.VALORES(B:B))

agora acho q deu modifiquei o loop pra coluna 2 ( B ), ele para qdo encontra celula vazia se preferir outra é só mudar no codigo nessa parte Do Until ...

aqui ta certo, acabei de testar novamente, com data em J menor e K maior com conclusao liminar e foi enviado pra plan2 modifiquei pra nao enviar qdo J...

feito, veja se é isso

n serve isso? =INDIRETO(LIN(A1) & "!A1") e copia pra baixo

acredito q de pra fazer com formulas matriciais, mas eu praticamente nao as uso, ou da forma q eu normalmente faço é com varias colunas, e formulas pa...

feito em vba, considerando frete unitario deixei com 50 linhas na planilha ordem de compra pq tava lento p/ calcular td, mas é só copiar as formulas d...