Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
#64403
Olá a todos, boa tarde.

Espero que estejam bem e com saúde!

Por favor, será que poderiam me ajudar quando tivessem um tempinho?

1- Tenho uma planilha que possui 6 colunas sendo que as 3 primeiras se referem ao item 1 e as outras 3 ao item 2

2- As colunas são: Data, Preço e Variação, tanto para o item 1 quanto para o item 2

3- As datas para o item 1 e para o item 2 não são as mesmas embora existam muitas datas iguais

4- O que eu gostaria:

4.1- Uma função que pudesse comparar as datas do item 1 com as datas do item 2 e pegasse todas as que estivessem em ambas

4.2- Em seguida escrevesse, em outro lugar, na mesma linha as colunas Data, Preço e Variação tanto do item 1 quanto do item 2, já ordenadas por data.

Estou tentando a manhã toda e não consegui. Já fiz pela formatação condicional, onde consigo localizar os valores que não estão repetidos para excluí-los, porém não consegui adequar para excluir corretamente, pois as colunas ficam lado a lado e não poderia excluir as linhas.

Caso seja possível, agradeço, muito a ajuda.

Abraços, Marcelo.
Você não está autorizado a ver ou baixar esse anexo.
#64407
#
Olá, Marcelo.

Segue uma solução via Auto Filtro e Classificação, veja se aproveita.

1. em D5 cole uma cópia desta fórmula ~~~> =CONT.SE(G$5:G$2651;A5) ~~~> dê duplo clique no canto direito baixo para estender a fórmula pela coluna ou arraste.
2. selecione A4:D4 | Dados | Filtro | em D5 selecione o número 1 | copie de A5:C5 até o final | em D5 Selecionar tudo | cole em M5
3. selecione M5:O5 até o final | Dados | Classificar A-Z

4. em J5 ~~~> =CONT.SE(A$5:A$2670;G5) ~~~> repita conforme acima.

Se essa for uma operação repetitiva então você poderá gravar uma macro.
marcway agradeceu por isso
#64427
Olá sr. Osvaldo, bom dia.

Sim, funcionou perfeitamente!
Solução engenhosa, simples e objetiva! Muito obrigado!

Depois de algumas tentativas consegui construir a macro, muito obrigado pela ajuda!

Uma dúvida: na macro, eu precisarei ajustar o =cont.se() de acordo com o número de linhas ou ele se ajustará automaticamente? Perdoe-me, se a minha pergunta é estúpida.

Abraços e muito obrigado!
Marcelo.
#64428
#
Olá, Sr. Marcelo.

A macro gravada não fará a atualização quanto ao número de linhas, mas é possível ajustá-lo para que ele detecte o número da última linha preenchida.

Sugiro que o Sr. coloque a macro gravada aqui no fórum (cole o código na sua próxima postagem, selecione-o e clique no ícone "</>") assim faremos os ajustes para torná-lo dinâmico e excluir os comandos Select, o que tornará a sua execução mais rápida e com menos "agitação" na sua tela.
marcway agradeceu por isso
#64429
Olá Osvaldo, muito obrigado!
Que legal, poder automatizar estes procedimentos!

Segue o código da macro
Código: Selecionar todos
Sub Macro5()
'
' Macro5 Macro
'

'
    Range("D5").Select
    ActiveSheet.Paste
    ActiveCell.FormulaR1C1 = "=COUNTIF(R5C[3]:R2651C[3],RC[-3])"
    Range("D5").Select
    Selection.AutoFill Destination:=Range("D5:D2670")
    Range("D5:D2670").Select
    Range("A4:D4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$D$2670").AutoFilter Field:=4, Criteria1:="1"
    Range("A5:D2670").Select
    Selection.Copy
    ActiveWindow.ScrollRow = 2631
    ActiveWindow.ScrollRow = 2628
    ActiveWindow.ScrollRow = 2624
    ActiveWindow.ScrollRow = 2614
    ActiveWindow.ScrollRow = 2587
    ActiveWindow.ScrollRow = 2567
    ActiveWindow.ScrollRow = 2540
    ActiveWindow.ScrollRow = 2479
    ActiveWindow.ScrollRow = 2442
    ActiveWindow.ScrollRow = 2378
    ActiveWindow.ScrollRow = 2355
    ActiveWindow.ScrollRow = 2307
    ActiveWindow.ScrollRow = 2243
    ActiveWindow.ScrollRow = 2210
    ActiveWindow.ScrollRow = 2176
    ActiveWindow.ScrollRow = 2088
    ActiveWindow.ScrollRow = 2058
    ActiveWindow.ScrollRow = 2021
    ActiveWindow.ScrollRow = 1990
    ActiveWindow.ScrollRow = 1950
    ActiveWindow.ScrollRow = 1852
    ActiveWindow.ScrollRow = 1788
    ActiveWindow.ScrollRow = 1704
    ActiveWindow.ScrollRow = 1673
    ActiveWindow.ScrollRow = 1636
    ActiveWindow.ScrollRow = 1579
    ActiveWindow.ScrollRow = 1515
    ActiveWindow.ScrollRow = 1464
    ActiveWindow.ScrollRow = 1414
    ActiveWindow.ScrollRow = 1350
    ActiveWindow.ScrollRow = 1299
    ActiveWindow.ScrollRow = 1218
    ActiveWindow.ScrollRow = 1181
    ActiveWindow.ScrollRow = 1144
    ActiveWindow.ScrollRow = 1053
    ActiveWindow.ScrollRow = 1019
    ActiveWindow.ScrollRow = 955
    ActiveWindow.ScrollRow = 898
    ActiveWindow.ScrollRow = 837
    ActiveWindow.ScrollRow = 817
    ActiveWindow.ScrollRow = 783
    ActiveWindow.ScrollRow = 743
    ActiveWindow.ScrollRow = 716
    ActiveWindow.ScrollRow = 699
    ActiveWindow.ScrollRow = 689
    ActiveWindow.ScrollRow = 665
    ActiveWindow.ScrollRow = 655
    ActiveWindow.ScrollRow = 652
    ActiveWindow.ScrollRow = 635
    ActiveWindow.ScrollRow = 625
    ActiveWindow.ScrollRow = 611
    ActiveWindow.ScrollRow = 598
    ActiveWindow.ScrollRow = 588
    ActiveWindow.ScrollRow = 578
    ActiveWindow.ScrollRow = 567
    ActiveWindow.ScrollRow = 554
    ActiveWindow.ScrollRow = 540
    ActiveWindow.ScrollRow = 534
    ActiveWindow.ScrollRow = 517
    ActiveWindow.ScrollRow = 507
    ActiveWindow.ScrollRow = 500
    ActiveWindow.ScrollRow = 490
    ActiveWindow.ScrollRow = 483
    ActiveWindow.ScrollRow = 470
    ActiveWindow.ScrollRow = 463
    ActiveWindow.ScrollRow = 456
    ActiveWindow.ScrollRow = 446
    ActiveWindow.ScrollRow = 436
    ActiveWindow.ScrollRow = 426
    ActiveWindow.ScrollRow = 419
    ActiveWindow.ScrollRow = 409
    ActiveWindow.ScrollRow = 402
    ActiveWindow.ScrollRow = 392
    ActiveWindow.ScrollRow = 382
    ActiveWindow.ScrollRow = 375
    ActiveWindow.ScrollRow = 372
    ActiveWindow.ScrollRow = 365
    ActiveWindow.ScrollRow = 355
    ActiveWindow.ScrollRow = 342
    ActiveWindow.ScrollRow = 331
    ActiveWindow.ScrollRow = 321
    ActiveWindow.ScrollRow = 311
    ActiveWindow.ScrollRow = 304
    ActiveWindow.ScrollRow = 294
    ActiveWindow.ScrollRow = 284
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("M5").Select
    ActiveSheet.Paste
    Range("M5:O2645").Select
    ActiveWindow.ScrollRow = 2603
    ActiveWindow.ScrollRow = 2600
    ActiveWindow.ScrollRow = 2596
    ActiveWindow.ScrollRow = 2586
    ActiveWindow.ScrollRow = 2573
    ActiveWindow.ScrollRow = 2552
    ActiveWindow.ScrollRow = 2519
    ActiveWindow.ScrollRow = 2458
    ActiveWindow.ScrollRow = 2424
    ActiveWindow.ScrollRow = 2347
    ActiveWindow.ScrollRow = 2276
    ActiveWindow.ScrollRow = 2215
    ActiveWindow.ScrollRow = 2158
    ActiveWindow.ScrollRow = 2067
    ActiveWindow.ScrollRow = 2006
    ActiveWindow.ScrollRow = 1986
    ActiveWindow.ScrollRow = 1949
    ActiveWindow.ScrollRow = 1905
    ActiveWindow.ScrollRow = 1862
    ActiveWindow.ScrollRow = 1841
    ActiveWindow.ScrollRow = 1828
    ActiveWindow.ScrollRow = 1818
    ActiveWindow.ScrollRow = 1808
    ActiveWindow.ScrollRow = 1804
    ActiveWindow.ScrollRow = 1797
    ActiveWindow.ScrollRow = 1787
    ActiveWindow.ScrollRow = 1781
    ActiveWindow.ScrollRow = 1777
    ActiveWindow.ScrollRow = 1771
    ActiveWindow.ScrollRow = 1764
    ActiveWindow.ScrollRow = 1760
    ActiveWindow.ScrollRow = 1757
    ActiveWindow.ScrollRow = 1754
    ActiveWindow.ScrollRow = 1744
    ActiveWindow.ScrollRow = 1733
    ActiveWindow.ScrollRow = 1723
    ActiveWindow.ScrollRow = 1713
    ActiveWindow.ScrollRow = 1703
    ActiveWindow.ScrollRow = 1680
    ActiveWindow.ScrollRow = 1663
    ActiveWindow.ScrollRow = 1653
    ActiveWindow.ScrollRow = 1639
    ActiveWindow.ScrollRow = 1629
    ActiveWindow.ScrollRow = 1612
    ActiveWindow.ScrollRow = 1599
    ActiveWindow.ScrollRow = 1575
    ActiveWindow.ScrollRow = 1555
    ActiveWindow.ScrollRow = 1531
    ActiveWindow.ScrollRow = 1514
    ActiveWindow.ScrollRow = 1467
    ActiveWindow.ScrollRow = 1444
    ActiveWindow.ScrollRow = 1407
    ActiveWindow.ScrollRow = 1386
    ActiveWindow.ScrollRow = 1363
    ActiveWindow.ScrollRow = 1319
    ActiveWindow.ScrollRow = 1258
    ActiveWindow.ScrollRow = 1201
    ActiveWindow.ScrollRow = 1154
    ActiveWindow.ScrollRow = 1090
    ActiveWindow.ScrollRow = 1032
    ActiveWindow.ScrollRow = 965
    ActiveWindow.ScrollRow = 928
    ActiveWindow.ScrollRow = 844
    ActiveWindow.ScrollRow = 796
    ActiveWindow.ScrollRow = 753
    ActiveWindow.ScrollRow = 705
    ActiveWindow.ScrollRow = 662
    ActiveWindow.ScrollRow = 635
    ActiveWindow.ScrollRow = 594
    ActiveWindow.ScrollRow = 577
    ActiveWindow.ScrollRow = 567
    ActiveWindow.ScrollRow = 550
    ActiveWindow.ScrollRow = 534
    ActiveWindow.ScrollRow = 517
    ActiveWindow.ScrollRow = 503
    ActiveWindow.ScrollRow = 496
    ActiveWindow.ScrollRow = 480
    ActiveWindow.ScrollRow = 463
    ActiveWindow.ScrollRow = 449
    ActiveWindow.ScrollRow = 436
    ActiveWindow.ScrollRow = 426
    ActiveWindow.ScrollRow = 416
    ActiveWindow.ScrollRow = 402
    ActiveWindow.ScrollRow = 389
    ActiveWindow.ScrollRow = 372
    ActiveWindow.ScrollRow = 362
    ActiveWindow.ScrollRow = 355
    ActiveWindow.ScrollRow = 348
    ActiveWindow.ScrollRow = 338
    ActiveWindow.ScrollRow = 325
    ActiveWindow.ScrollRow = 318
    ActiveWindow.ScrollRow = 308
    ActiveWindow.ScrollRow = 294
    ActiveWindow.ScrollRow = 291
    ActiveWindow.ScrollRow = 284
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("M5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("M5:O2645")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("J5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(R5C1:R2670C1,RC[-3])"
    Range("J5").Select
    Selection.FillDown
    Range("G4:J4").Select
    Selection.AutoFilter
    Selection.AutoFilter
    ActiveSheet.Range("$G$4:$J$2670").AutoFilter Field:=4, Criteria1:="=1", _
        Operator:=xlOr, Criteria2:="="
    Range("G5:J2651").Select
    Selection.Copy
    ActiveWindow.ScrollRow = 2614
    ActiveWindow.ScrollRow = 2611
    ActiveWindow.ScrollRow = 2607
    ActiveWindow.ScrollRow = 2604
    ActiveWindow.ScrollRow = 2594
    ActiveWindow.ScrollRow = 2570
    ActiveWindow.ScrollRow = 2554
    ActiveWindow.ScrollRow = 2510
    ActiveWindow.ScrollRow = 2487
    ActiveWindow.ScrollRow = 2447
    ActiveWindow.ScrollRow = 2416
    ActiveWindow.ScrollRow = 2353
    ActiveWindow.ScrollRow = 2306
    ActiveWindow.ScrollRow = 2229
    ActiveWindow.ScrollRow = 2182
    ActiveWindow.ScrollRow = 2125
    ActiveWindow.ScrollRow = 2061
    ActiveWindow.ScrollRow = 2028
    ActiveWindow.ScrollRow = 1988
    ActiveWindow.ScrollRow = 1927
    ActiveWindow.ScrollRow = 1880
    ActiveWindow.ScrollRow = 1823
    ActiveWindow.ScrollRow = 1760
    ActiveWindow.ScrollRow = 1706
    ActiveWindow.ScrollRow = 1689
    ActiveWindow.ScrollRow = 1643
    ActiveWindow.ScrollRow = 1592
    ActiveWindow.ScrollRow = 1515
    ActiveWindow.ScrollRow = 1458
    ActiveWindow.ScrollRow = 1388
    ActiveWindow.ScrollRow = 1341
    ActiveWindow.ScrollRow = 1277
    ActiveWindow.ScrollRow = 1207
    ActiveWindow.ScrollRow = 1157
    ActiveWindow.ScrollRow = 1127
    ActiveWindow.ScrollRow = 1066
    ActiveWindow.ScrollRow = 1013
    ActiveWindow.ScrollRow = 993
    ActiveWindow.ScrollRow = 942
    ActiveWindow.ScrollRow = 899
    ActiveWindow.ScrollRow = 875
    ActiveWindow.ScrollRow = 862
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 842
    ActiveWindow.ScrollRow = 832
    ActiveWindow.ScrollRow = 822
    ActiveWindow.ScrollRow = 808
    ActiveWindow.ScrollRow = 802
    ActiveWindow.ScrollRow = 792
    ActiveWindow.ScrollRow = 785
    ActiveWindow.ScrollRow = 772
    ActiveWindow.ScrollRow = 761
    ActiveWindow.ScrollRow = 755
    ActiveWindow.ScrollRow = 741
    ActiveWindow.ScrollRow = 728
    ActiveWindow.ScrollRow = 711
    ActiveWindow.ScrollRow = 678
    ActiveWindow.ScrollRow = 631
    ActiveWindow.ScrollRow = 587
    ActiveWindow.ScrollRow = 567
    ActiveWindow.ScrollRow = 557
    ActiveWindow.ScrollRow = 547
    ActiveWindow.ScrollRow = 544
    ActiveWindow.ScrollRow = 534
    ActiveWindow.ScrollRow = 524
    ActiveWindow.ScrollRow = 514
    ActiveWindow.ScrollRow = 507
    ActiveWindow.ScrollRow = 500
    ActiveWindow.ScrollRow = 493
    ActiveWindow.ScrollRow = 487
    ActiveWindow.ScrollRow = 480
    ActiveWindow.ScrollRow = 477
    ActiveWindow.ScrollRow = 470
    ActiveWindow.ScrollRow = 460
    ActiveWindow.ScrollRow = 453
    ActiveWindow.ScrollRow = 447
    ActiveWindow.ScrollRow = 443
    ActiveWindow.ScrollRow = 437
    ActiveWindow.ScrollRow = 430
    ActiveWindow.ScrollRow = 423
    ActiveWindow.ScrollRow = 416
    ActiveWindow.ScrollRow = 410
    ActiveWindow.ScrollRow = 396
    ActiveWindow.ScrollRow = 390
    ActiveWindow.ScrollRow = 380
    ActiveWindow.ScrollRow = 370
    ActiveWindow.ScrollRow = 366
    ActiveWindow.ScrollRow = 359
    ActiveWindow.ScrollRow = 353
    ActiveWindow.ScrollRow = 346
    ActiveWindow.ScrollRow = 336
    ActiveWindow.ScrollRow = 329
    ActiveWindow.ScrollRow = 319
    ActiveWindow.ScrollRow = 313
    ActiveWindow.ScrollRow = 309
    ActiveWindow.ScrollRow = 306
    ActiveWindow.ScrollRow = 299
    ActiveWindow.ScrollRow = 292
    ActiveWindow.ScrollRow = 286
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 276
    ActiveWindow.ScrollRow = 272
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 158
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 142
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("Q5").Select
    ActiveSheet.Paste
    Range("Q5:S2645").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("Q5"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Plan1").Sort
        .SetRange Range("Q5:S2645")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("V3").Select
End Sub
#64436
Salve, Marcelo.

Veja se este código atende. Funciona com qualquer quantidade de linhas com dados, tanto na tabela em A:C quanto na tabela em G:I.
Código: Selecionar todos
Sub ReplicaDadosComDatasIguais()
 Dim LRa As Long, LRg As Long
  LRa = Cells(Rows.Count, 1).End(3).Row
  LRg = Cells(Rows.Count, 7).End(3).Row
  Application.ScreenUpdating = False
  If [M5] <> "" Then Range("M5:S" & Cells(Rows.Count, "M").End(3).Row) = ""
  Range("D5:D" & LRa).FormulaLocal = "=CONT.SE(G$5:G$" & LRg & ";A5)"
  [A4:D4].AutoFilter 4, 1
  Range("A5:C" & LRa).Copy [M5]: ActiveSheet.AutoFilterMode = False: [D:D] = ""
  Range("J5:J" & LRg).FormulaLocal = "=CONT.SE(A$5:A$" & LRa & ";G5)"
  [G4:J4].AutoFilter 4, 1
  Range("G5:I" & LRg).Copy [Q5]: ActiveSheet.AutoFilterMode = False: [J:J] = ""
  Range("M5:O" & LRa).Sort Key1:=[M5], Order1:=xlAscending
  Range("Q5:S" & LRg).Sort Key1:=[Q5], Order1:=xlAscending
End Sub
marcway agradeceu por isso
#64494
Meu caro amigo Osvaldo, boa noite.

Mas que coisa maravilhosa você fez!!!

Nossa, como me ajudou! Muito obrigado por reservar uma parte de seu precioso tempo e de sua sabedoria para fazer algo tão legal para me ajudar!

Ficou excelente!

Gostaria de poder apertar umas 100 vezes o botão de obrigado.

Muitooooooooo obrigadooooooooo!

Abraços, Marcelo.
osvaldomp agradeceu por isso
#64495
Salve, Marcelo.

Que bom. Ficamos contentes por você ter resolvido a sua demanda.

Grato por nos informar e também pelas suas palavras.
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord