Gabriel_OAK

@CasaDoHardware Muito obrigado!! Deu certo

Estou tentando pegar um valor, por exemplo, da célula G3 e mover para dentro do campo do formulário conforme a imagem em anexo. Porém ainda não obtive sucesso, alguem sabe como resolver esse problema?

Obrigado!!!@CasaDoHardware Vou testar

@CasaDoHardware infelizmente eu não posso passar o arquivo por completo... Mas posso tentar explicar melhor... Quando o OptionButton1_Click() (botão de seleção opicional) for acionado, vai desencadear uma macro responsável por separar numeros e os mover para um determinado endereço "X". No caso, eu quero que o endereço "X" seja uma variável qualquer, "valor1" ex. Private Sub OptionButton1_Click() 'Declarando variáveis Dim valor1, taxa1, total1 As Double 'If CommandButton1_Click = True Then ' copiar_valor Macro Range("D3:D5").Select Selection.TextToColumns Destination:=Range("G3"), DataType:=xlDelimited, _ ' Ao invés de mover para a célula G3, eu gostaria de mover o valor para a variável "valor1" TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 9)), DecimalSeparator:=".", ThousandsSeparator _ :=",", TrailingMinusNumbers:=True

Boa Noite! Eu estava fazendo um desenvolvimento em VBA, porém estou tendo um problema para mover o valor de uma determinada célula para uma Variável Real. Segue abaixo a ideia do programa: Private Sub OptionButton1_Click() 'Declarando variáveis Dim valor1, taxa1, total1 As Double 'If CommandButton1_Click = True Then ' copiar_valor Macro Range("D3:D5").Select Selection.TextToColumns Destination:=Range("G3"), DataType:=xlDelimited, _ ' Ao invés de mover para a célula G3, eu gostaria de mover o valor para a variável "valor1" TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 9)), DecimalSeparator:=".", ThousandsSeparator _ :=",", TrailingMinusNumbers:=True

@Edson Luiz Branco Deu certo!! Éra isso mesmo, muito obrigado

@Edson Luiz Branco Vou testar aqui, desculpe a demora para responder, é que eu não tinha visto

Boa noite!!! Gostaria de saber se tem como eu especificar um local da planilha para que o formulário seja aberto, ao invés de sempre abrir no centro da tela, gostaria de espeficar um canto fixo! Existe essa possibilidade? Segue em anexo uma imagem para especificar melhor a minha dúvida att,

Boa noite @Edson Luiz Branco !! Fico feliz por ter visto meu post e ter tido a boa vontade de me ajudar!!! Vou compartilhar com vocês, consegui resolver o problema um pouco depois. Abaixo segue o texto de programa do formulário ( está funcionando ) Mas obrigado novamente!!! Vou dar uma olhada nos links que você passou Private Declare PtrSafe Function RemoveMenu _ Lib "user32" ( _ ByVal hMenu As LongPtr, _ ByVal nPosition As LongPtr, _ ByVal wFlags As LongPtr) _ As Long Private Declare PtrSafe Function FindWindowA _ Lib "user32" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) _ As LongPtr Private Declare PtrSafe Function GetSystemMenu Lib "user32" (ByVal hWnd As LongPtr, _ ByVal bRevert As LongPtr) As LongPtr Private Const MF_BYPOSITION As Long = &H400 Private Sub CommandButton1_Click() Unload Me End Sub Private Sub UserForm_Initialize() Dim lFrmHdl As LongPtr, iCount As Integer lFrmHdl = FindWindowA(vbNullString, Me.Caption) If lFrmHdl <> 0 Then For iCount = 0 To 1 RemoveMenu GetSystemMenu(lFrmHdl, False), 0, MF_BYPOSITION Next iCount End If End Sub

Boa noite!! @CasaDoHardware apenas fixar um formulário na planilha. 2:22

Boa tarde! Estava tentando fazer um programa conforme vi em um vídeo. Porém ao tentar copiar, surgiu erros de instrução na declaração de variavel mesmo eu copiando igual, conforme a imagem em anexo o que devo fazer? - > Private Declare PtrSafe Function SetWindowLong Lib "User32"()As LongPtr Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As LongPtr

Boa noite! Estou tendo um problema numa planilha que venho criando. Nela, eu criei uma macro que copia as informações da celula D3 e move para I3 a cada 5 segundos. Porém eu queria deixar as informações da i3 invisiveis, mas toda vez que a macro é ativada, ele fica visivel novamente. Existe algo que eu possa fazer para resolver isso?