SELECAO DE TEXTOS
Galera se caso alguem ja respondeu a um topico como este eu peço desculpas pois eu procurei e não achei bem ai vai a pergunta
e o sequinte eu tenho em um combo um texto tipo esse 01-EBQ
eu queria enviar par auma variavel todos os caracteres antes do -
tipo enviar para uma variavel o "01"
agradeço por qualquer ajuda
e o sequinte eu tenho em um combo um texto tipo esse 01-EBQ
eu queria enviar par auma variavel todos os caracteres antes do -
tipo enviar para uma variavel o "01"
agradeço por qualquer ajuda
cara...
faz isso.. no pressionar de um botao
Private CM1_click()
Dim Variavel1 as string
Variavel = left(combo1.text,2) 'Isso pega 2 caracteres da esquerda pra direita
Msgbox "O codigo da combo eh: " & variavel1
End Sub
faz isso.. no pressionar de um botao
Private CM1_click()
Dim Variavel1 as string
Variavel = left(combo1.text,2) 'Isso pega 2 caracteres da esquerda pra direita
Msgbox "O codigo da combo eh: " & variavel1
End Sub
da forma que nosso amigo Alisson Lisboa colocou, vai pegar apenas os dois primeiros caracteres... caso tenha um número variável de caracteres antes do traço, use:
MsgBox Left(combo1.text, InStr(1, combo1.text, "-") - 1), vbExclamation, "||| Código que Consta no Combo |||"
MsgBox Left(combo1.text, InStr(1, combo1.text, "-") - 1), vbExclamation, "||| Código que Consta no Combo |||"
Variavel = val(combo.text)
Considere o nome do combo como "combo1"
Dim variavel As String
variavel = VBA.Left(combo1.text, InStr(1, combo1.text, "-") - 1)
Dim variavel As String
variavel = VBA.Left(combo1.text, InStr(1, combo1.text, "-") - 1)
BOM C PODE FAZER O SEQUINTE
OPÇÃO 1
DIM VAR_CAMPOS_COMBO() AS STRING
VAR_CAMPOS_COMBO=SPLIT(COMBO.TEXT,"-")
•ESSE VETOR VAR_CAMPOS_COMBO(0) VAI TER O VALOR '01'
•ESSE VETOR VAR_CAMPOS_COMBO(1) VAI TER O VALOR 'EBQ'
AI VC PODE TRABALHA COM OS VALORES SEPARADOS
OPÇÃO 2
DIM VAR_CAMPO AS STRING
VAR_CAMPO=MID(COMBO.TEXT,1,INSTR(COMBO.TEXT,"-")-1)
OPÇÃO 3
JA FOI POSTADA PELOS USUÃ ÂRIOS ANTERIORES
ESPERO TER AJUDADO
OPÇÃO 1
DIM VAR_CAMPOS_COMBO() AS STRING
VAR_CAMPOS_COMBO=SPLIT(COMBO.TEXT,"-")
•ESSE VETOR VAR_CAMPOS_COMBO(0) VAI TER O VALOR '01'
•ESSE VETOR VAR_CAMPOS_COMBO(1) VAI TER O VALOR 'EBQ'
AI VC PODE TRABALHA COM OS VALORES SEPARADOS
OPÇÃO 2
DIM VAR_CAMPO AS STRING
VAR_CAMPO=MID(COMBO.TEXT,1,INSTR(COMBO.TEXT,"-")-1)
OPÇÃO 3
JA FOI POSTADA PELOS USUÃ ÂRIOS ANTERIORES
ESPERO TER AJUDADO
Tópico encerrado , respostas não são mais permitidas