edcronos

não consegui me adaptar,
tem tudo que eu não gosto,
Sub BuscaPinta(ByVal Txtvall, ByVal CorN) ' corN = wdBrightGreen Dim Ring As Range Application.ScreenUpdating = False With ActiveDocument.Range With .Find .ClearFormatting .Replacement.ClearFormatting .Text = Txtvall .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .Execute End With Do While .Find.Found Set Ring = .Duplicate '.Font.ColorIndex = wdAuto Options.DefaultHighlightColorIndex = CorN 'wdYellow ' .HighlightColorIndex = CorN 'wdYellow ' .End = Ring.End + 1 .Collapse wdCollapseEnd .Find.Execute Loop End With Application.ScreenUpdating = TrueEnd Sub o write do libre office parece ser mais fácil automatizar
 
eu queria o wordpad, mas pelo que li não tem como fazer uma automatização nele
 
vou acabar usando o excel como editor de texto  

VEJA SE É ISSO
 
não testei completamente , para falar a verdade nem sei se entendi
Sub Baixa2()    Application.ScreenUpdating = False    With Sheets("Registro")    c = Cells(1, "J").Column    lf = .Cells(Rows.Count, c).End(xlUp).Row    l2 = Sheets("Pagos").Cells(Rows.Count, "b").End(xlUp).Row + 1    For L = lf To 3 Step -1        If .Cells(L, c).Value2 = "PAGO" Then            Sheets("Pagos").Range("B" & l2, "i" & l2).Value2 = .Range("B" & L, "i" & L).Value2           .Rows(L).EntireRow.Delete            l2 = l2 + 1        End If    Next    End With   MsgBox "Baixa de Pagamentos Realizada Com Sucesso", vbOKOnly, "Atenção"    Application.ScreenUpdating = True    'ActiveWorkbook.SaveEnd Sub

não é para colocar * no historico eu fiz isso na macro
e o nome da macro tem que está igual
aqui rodou

como teste coloque a aba1 como Fornecedores e cole os nomes de fornecedores na cola A essa que você colocou como exemplo
a aba 2 como HISTORICO DE RECEBIMENTO e cole o historico na coluna A

ou troque os nomes da abas na macro
pLf = "Fornecedores"
pLh = "HISTORICO DE RECEBIMENTO"
 
 
 
exemplo.rar

já tentou outras ide?
 
 
http://falconcpp.sourceforge.net/
https://www.facebook.com/falconcpp

https://netbeans.org/
http://www.codeblocks.org/
 
eu tive alguns problemas com o dev
o falcon ficou na medida para mim que sou iniciante

bem
acho que defini uma sintaxe apropriada para o que eu quero
@E(!Despesas,1,2,3,@Ou(#Data,%Semana,1,2,3),@Ou(%Dia,1,4,12,31))@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)) fiz uma função para separar as partes da formula 1º pela chave @ e depois por (***)
Public Function Contfor(ByVal TextoX As String, Optional ByVal OcorrenciaX As Long) As String Dim pos As Long, Ax As Long, ltx As Long, ax2 As Long lent1 = Len(TextoX) For Ax = 1 To lent1 lety = Mid(TextoX, Ax, 1) If lety = "@" Then pos = pos + 1 If pos = OcorrenciaX Then nucle = 0: ax2 = Ax dd = 0 GoTo tex: End If Next Contfor = "Erro" Exit Functiontex: For Ax = ax2 To lent1 lety = Mid(TextoX, Ax, 1) If lety = "(" Then nucle = nucle + 1: dd = 1 If lety = ")" Then nucle = nucle - 1 If nucle = 0 And dd = 1 Then Contfor = Mid(TextoX, ax2, Ax - ax2 + 1) Exit Function End If Next End Function MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 2)=@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)) MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 3)=@E(nada,tudo) MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 4)=@Ou(%Dia,1,4,12,31) ainda preciso ajeitar alguns pontos importantes como as sub formulas que fazem parte das internas ou externas
mas daqui para frente creio ser mais fácil

é difícil palpitar assim,
como deve ter todo um sistema de proteção para o cadeirante
talvez exista alguns sensores na cadeira e depois desse primeiro pulso entra em pausa por falta do sensor na posição correta
 
o certo seria fazer um mini esquema de ligação de onde é ligado cada conector da placa, tipo sensores , motores, baterias, controles,
 
verificar cada parte indepentendemente,
 
e se possível, na parte onde dá para seguir pistas fazer um esquema improvisado da placa .
isso vai fazer ter uma ideia do que influencia em que no circuito
 
já tive problemas de fet diferentes em um cicuito, não sei se pela curva diferente, mas penas depois de trocar todos é que passou a funcionar corretamente "troquei todos os originais pelos que eu tinha (de sucata )"
talvez com motores não influenciem tanto, mas vai que tem um sensor de tempo de resposta para evitar sobrecargas.
 
se falei alguma besteira me perdoem, faz tempo que larguei o ramo,
apesar de as vezes ir num ferro-velho de um conhecido e catar algo de diferente para mexer
 
(como uma impressora sharp al-2040 de 220v que está até hoje aqui funcionando "apenas tirando xerox para outros(de graça )

Resolvido em
 
http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=13948