Lindomar Marques

eu estou tentando fazer uma aplicaçao que possa ser usada tanto em maquinas com teclado quanto em maquinas touchscreen. eu mesmo ja penei quando precisei digitar e meu teclado deu pau. meus meninos eram viciados em jogar joguinhos online, então meu teclado estava sempre ferrado.

ola feras do excel. venho novamente até vós pedir uma ajuda. essa ao meu ver é do nivel hard. tenho dois formularios o primeiro tem cinco textbox o segundo é um numpad com os botões do zero a nove, a virgula , o enter e um textbox que serve de visor onde posso ver os valores enquanto vou digitando. se no primeiro formulario eu clico no textbox1 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox1. se no primeiro formulario eu clico no textbox2 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox2. resumindo preciso encontrar uma maneira do formulario 2 saber qual textbox eu cliquei para inserir o valor ai. qualquer ajuda é bem vinda... gracias

pode deixar , parceiro essa eu ja consegui resolver fiz com o codigo abaixo Sub atualailiza() Application.ScreenUpdating = False Application.CutCopyMode = False Dim ws As Worksheet, wr As Worksheet Dim i As Integer, j As Integer Set wr = Sheets("Planilha1") Set ws = Sheets("mega") i = 0 j = 0 Do While wr.Range("A2").Offset(i + 1, 0).Value <> "" If wr.Range("A2").Offset(i, 0).Value = "" Then Exit Do End If If wr.Range("A2").Offset(i, 0).Value = ws.Range("A17").Value Then ws.Range("A17").ListObject.ListRows.Add (1) ws.Range("A17").Value = wr.Range("A2").Offset(i + 1, 0).Value ws.Range(ws.Range("A17").Offset(0, 1), ws.Range("A17").Offset(0, 6)).Value = _ wr.Range(wr.Range("A2").Offset(i + 1, 2), wr.Range("A2").Offset(i + 1, 7)).Value End If i = i + 1 Loop preencher_form End Sub o bom é que assim nao precisa ficar trocando de planilha para a copia dos dados. então nao usa nem select nem activate. somente .value

eu resolvi assim Sub classificar_colun() Application.ScreenUpdating = False Application.CutCopyMode = False Dim wr As Worksheet Dim i As Integer, j As Integer, k As Integer, r, ra Set wr = Sheets("mega") i = 0 Do While wr.Range("R1").Offset(0, i).Value <> "" wr.Range(wr.Range("R1").Offset(0, i), wr.Range("R1").Offset(6, i)).Sort _ wr.Range("R1").Offset(0, i), xlDescending i = i + 1 Loop End Sub ele classifica cada uma das colunas preenchidas a direita da celula inicial ate chegar a uma celula vazia ou seja ate que nao haja mais colunas a direita com valores.

boa noite feras do vba estou procurando uma macro que faça a comparaçao entre valores de duas colunas. se os valores forem iguais devera fazer um offset para copiar a linha toda excluindo a celula onde esta o valor comparado. esta linha deve ser copiada para a outra planilha onde esta a coluna comparada e colar na linha com o valor mas nao em seguida (umas quinze celulas para a direita). se alguem tiver uma ideia de como fazer isso usando somente do while, loop, if e else if(nao me perguntem porque) eu agradeço.

patropi eu tentei acessar o seu link da ultima postagem e nao consegui. estou com a mesma dificuldade e gostaria de ver o topico que voce mencionou porém ele nao existe mais no blog, sabe de algum que eu possa dar uma olhada. tenho um formulario e gostaria de adicionar um teclado alfanumerico apenas com os numeros de 0 a 9 o alfabeto em maiusculo a virgula em um formulario que eu criei e colocar o texto em uma combobox e em textbox alternativamente. grato...