Amigo, o código que eu te passei deve ser colocado dentro de: Private Sub buttoncadastraobra_Click() e essa parte do código: Nome = textboxnome d...

Sem o modelo da planilha, vc terá que adaptar, mas seria algo assim: Dim Protocolo As String Dim UL As Integer 'Última Linha Dim Nome As String Nome...

Uma planilha de anexe ajudaria. Sem ela, tenta esse código, para o que vc selecionar: Sub Credito_Debito_GT() For Each cell In Selection If Righ...

Bom dia, Katito41, Eu segui o que vc disse aqui: Em I2 eu tenho o resultado final que seria o subtotal + G2 (10%) + subtotal + H2 (10%) De qualque...

Vc disse que consegue fazer por macro e arrasta para as células. Mas macro não se arrasta, e sim fórmulas. Outra coisa, vc disse que quer fazer pelo...

Ta um pouco confuso, mas... em I2: =(B2*1,8+Soma(C2:E2)*1,4)*(1+G2)+(B2*1,8+Soma(C2:E2)*1,4)*(1+H2)

Veja estes links: viewtopic.php?f=28&t=239 viewtopic.php?f=28&t=10714

se vc quiser que todas sejam iguais, pode ser, porque: se a textbox 1 for igual a textbox 2, qualquer uma que vc pegar vai representar as 2. Outra o...

SERIA ISSO? =SE(HOJE()-ÍNDICE($J$5:$K$102;CORRESP(K5;$K$5:$K$102;0);1)<=30;"ATIVO";SE(OU(HOJE()-ÍNDICE($J$5:$K$102;CORRESP(K5;$K$5:$K$10...

A sua pergunta está um pouco genérica: if textbox1.value = textbox2.value and textbox1.value = textbox3.value then Msgbox "os três textbox têm o...

AjHottz, Dá uma olhada no link: viewtopic.php?f=28&t=10508 Crie um nome Linhas com a fórmula: =Cont.Valores($A:$A) Depois, use, nas fórmulas, ...

Supondo que a data esteje em A1: Em vez de concatenar a parte da data como: &A1 Faça: &DIA(A1)&"/"&MÊS(A1)&"/&q...

É o comando que já usei: Application.CutCopyMode Coloque como falso para desfazer: Application.CutCopyMode = False

Cara, vc tá referenciando a coluna inteira. J´viu quantos cálculos isso dá? com 4 colunas inteiras por fórmula, são 4 milhões de células para verifica...

tente dessa forma: Private Sub ColarDados() If Application.CutCopyMode = True Then Selection.PasteSpecial Paste:=xlPasteValues Applica...