Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
Por BITTENCURT 14 Jul 2019 às 01:08
Membro 1 Estrela
Mensagens: 34
Reputação: 0
#45552
Boa Noite

Amigos,

Preciso mais uma vez da ajuda de vocês.

Segue planilha anexa com as orientações das duvidas dentro da mesma
No aguardo

Desde já agradeço

Bittencurt
Apenas usuários registrados podem ver ou baixar anexos.
Avatar do usuário
Por Deciog 14 Jul 2019 às 09:51
Membro 5 Estrelas
Mensagens: 1262
Reputação: 633
#45553
BITTENCURT, Bom Dia.

Eu não conheço Macro, mas, provavelmente você esta gerando numero com formato de texto então a formula tem que ser desta forma confere

Se minha resposta foi útil, clique em obrigado é uma forma de agradecimento da ajuda

Decio
Apenas usuários registrados podem ver ou baixar anexos.
Por osvaldomp 14 Jul 2019 às 12:33
Membro 5 Estrelas
Mensagens: 1369
Reputação: 679
#45557
BITTENCURT escreveu:Preciso criar uma macro para converter . (ponto) em , (virgula) dos números das colunas B e C.


obs.
1. não foi possível testar a operação acima com o código pois na planilha sensor (5) não há pontos.
2. antes de testar o código limpe a planilha 08-07-2019
3. antes de testar o código formate as colunas B:C das plnailhas 08-07-2019 e 09-07-2019 para Geral

Considerei que os dados com pontos que serão substituídos por vírgulas estarão na planilha sensor (5) e que essa será a planilha ativa ao rodar o código.

Código: Selecionar todosSub TextoParaNúmeroEReplicaDados()
 Dim ws As Worksheet, crit As Double
  Application.ScreenUpdating = False
  ActiveSheet.AutoFilterMode = False
  [W1].Copy: Range("B2:C" & Cells(Rows.Count, 2).End(3).Row).PasteSpecial Operation:=xlAdd

  For Each ws In ThisWorkbook.Sheets
   If Right(ws.Name, 4) = 2019 Then
    crit = CDbl(DateValue(ws.Name))
    Range("A1:C1").AutoFilter Field:=1, Criteria1:= _
        ">=" & crit, Operator:=xlAnd, Criteria2:="<=" & Int(crit) + 1
    Range("A2:C" & Cells(Rows.Count, 1).End(3).Row).Copy ws.Cells(Rows.Count, 1).End(3)(2)
   End If
  Next ws
  ActiveSheet.AutoFilterMode = False
  Application.ScreenUpdating = True
 
End Sub