Conrado's profile - activity

@Jefferson-Tomas bem vindo. Para fazer a imagem de fundo ficar na página inteira, faça o seguinte: Em Formatar / Págin

@Jefferson-Tomas bem vindo. Para fazer a imagem de fundo ficar na página inteira, faça o seguinte: Em Formatar / Pági

@lucasalves Copie e cole este procedimento como uma nova macro, e associe ela ao seu botão de comando. Sub CopySheet

@lucasalves Copie e cole este procedimento como uma nova macro, e associe ela ao seu botão de comando. Sub CopySheet

@antdocic90 Como está buscando o nome do arquivo em célula na planilha, utilize a função CÉL("filename";a1), dessa form

@antdocic90 Como está buscando o nome do arquivo em célula na planilha, utilize a função CÉL("filename";a1), dessa form

@IndioRiko Segue Arquivo com sua necessidade. Importante: O arquivo deve ser salvo na extensão ODS (extensão nativa do

@Alevianbr, sua fórmula está errada caso queira procurar alguma palavra dentro de um texto. A fórmula correta é assim

@Alevianbr, sua fórmula está errada caso queira procurar alguma palavra dentro de um texto. A fórmula correta é assim

@Alevianbr, sua fórmula está errada caso queira procurar alguma palavra dentro de um texto. A fórmula correta é assim

SE(A1="";"";SE(SE(MOD((EXT.TEXTO(A1;1;1)1)+(EXT.TEXTO(A1;2;1)2)+(EXT.TEXTO(A1;3;1)3)+(EXT.TEXTO(A1;4;1)4)+(EXT.TEXTO(A1;

@Schiavinatto coloque a seguinte fórmula no personalizado em A1, e digite seu CPF corretamente e incorretamente para ver

@schiavinatto agora entendi o objetivo deste opção. Ele pode ser de grande valia sim, principalmente sem situações de ca

@Gilberto Schiavinatto , nada ainda por aqui

@Gilberto Schiavinatto Faltou Dim oDoc as Object oDoc = ThisComponent Sub DeletaImg() 'Fonte: https:/

@MALIMA, segue atualizado em 03/02/2020 Arquivo com exemplo @MALIMA, Inicialmente, sem ter os dados para ter certez

@MALIMA, segue atualizado em 03/02/2020 Arquivo com exemplo @MALIMA, Inicialmente, sem ter os dados para ter certeza,

@MALIMA, Inicialmente, sem ter os dados para ter certeza, verifique se as palavras estão escritas igualmente, tanto na

@MALIMA, teria como postar algum exemplo do arquivo sem informações confidenciais. Assim podemos ajudar melhor

@MALIMA, Inicialmente, sem ter os dados para ter certeza, verifique se as palavras estão escritas igualmente, tanto na

@Gilberto Shiavinatto Essa ai foi difícil sem utilizar programação. Veja se te atende dessa forma. Arquivo

@Bianchini Veja se é isso que procura. Arquivo

@Gilberto Schiavinatto Experimente a Função EXT.TEXTO (geralmente mais indicada para estas situações) Seguindo seu exe

@Gilberto Schiavinatto e @Júnio Vieira Seguindo seu exemplo

não consegui achar utilização ainda para este campo

Pessoal, estou tentando colocar um valor de data dentro de um dialog para uma célula no Calc.

Estou usando este comando:

REM  *****  BASIC  *****

Dim oDialog1 As Object

Sub Dialog1Show
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.Execute()
End Sub

Sub ReadNSaveDialog1 ()

    txtTeste = oDialog1.GetControl("txtTeste")
    Data_RNC = oDialog1.GetControl("Data_RNC")

    lastrow = LastRowNumber()
    ThisComponent.Sheets(3).getCellByPosition(0, lastrow).setString( txtTeste.Text)
    'ThisComponent.Sheets(3).getCellByPosition(1, lastrow) = CDateFromIso(Data_RNC)

    txtTeste.Text = ""
    'Data_RNC.Date = ""

End Sub


Function LastRowNumber () as Long

    Dim oDoc        as Object
    Dim lastRow     as Long
    Dim oSheet      as Object
    Dim oCol, rd, find, aray

    oDoc = ThisComponent
    oSheet = oDoc.Sheets().getByName("Lancamento")
    oCol = oSheet.getColumns().getByIndex(0)
    rd = oCol.createReplaceDescriptor
    rd.searchRegularExpression = true
    rd.setSearchString(".")
    find = oCol.FindAll(rd)
    aray = Split(find.AbsoluteName, "$")
    LastRowNumber = aray(ubound(Aray))
    'Print LastRowNumber
End Function

E esta Tela

Consigo Colocar o valor do textfield, mas o valor do datafield já esgotei minhas possibilidades de pesquisa e tentativas.

Segue arquivo para apreciação corrigido

C:\fakepath\Controle_RNC_Materia_Prima_LibreOffice.ods

@Gilberto Schiavinatto, lembro sim destas funções, mas elas apenas funcionam se os dados estiverem nas mesmas posições.

@anderson, olha a minha resposta editada que tem seu código corrigido

@anderson Favor corrigir seu código para povoar seu combobox e depois associe a macro quando o mesmo receber foco Sub

Favor corrigir seu código para povoar seu combobox e depois associe a macro quando o mesmo receber foco > > Sub A

Favor corrigir seu código para povoar seu combobox e depois associe a macro quando o mesmo receber foco Sub Atualiza

@anderson , vc chegou a ver o código do arquivo que coloquei para abastecer meu combobox e como associei ele? Você prec

@anderson , vc chegou a ver o código do arquivo que coloquei para abastecer meu combobox?

SOMASE Diversas Abas Pessoal, Alguém tem alguma sugestão de como fazer SOMASE (tenho critério de código) para diversas

SOMASE Diversas Abas Pessoal, Alguém tem alguma sugestão de como fazer SOMASE (tenho critério de código) para diversas

Olá @evaldo e @Gilbero Schiavinatto Segue uma planilha que elaborei para cálculo de densidade de isopores aqui para emp

@bete Supondo que o texto esteja na célula A1 Função: =PESQUISAR("digite sua palavra aqui" ; A1) Uma simples pesquis

@bete Supondo que o texto esteja na célula A1 Função: =PESQUISAR("digite sua palavra aqui"; A1) Uma simples pesquisa

Olá @Lucmec , favor criar uma nova pergunta com suas dúvidas. Dessa forma auxilia toda a comunidade.

Olá @Lucmec , favor criar uma nova pergunta com suas dúvidas.

o Arquivo está anexado à resposta do dia 18/08 desta pergunta