EXCELer Tudo sobre EXCEL em Português
O Código:
Private Sub CommandButton1_Click() 'Botão Altera-OK
Cells(nRow, "A") = TextBox1.Text ' As células tomam os novos dados
Cells(nRow, "B") = TextBox2.Text
Cells(nRow, "C") = TextBox3.Text
End Sub
Check Also
Extrair Apelido
Fórmula em C2: =SUBSTITUIR(A2;1;PROCURAR(“#”;SUBST(A2;” “;”#”;NÚM.CARACT(A2)-NÚM.CARACT(SUBST(A2;” “;””))));””) Função em C3 : =Apelido(A2) VBA: Function Apelido(r As …