Este fórum está sendo desativado

[BITTENCURT]

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

[Deciog]

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

[osvaldomp]

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 todos

Sub 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