EXCEL- porovnani datumu Vyřešeno

[jarex]

Ahoj, potrebovala bych pomoci... Potrebovala bych porovnat datumy ze sloupce A s E a pokud jsou duplicitni, tak je nechat - ostatni (jedinecne datumy) vymazat, pokud mozno i ostatni sloupce, takze takovy opak funkce odstranit duplicitni hodnoty.
Vim, ze je to urcite uplne primitivni, ale nejak si s tim nevim rady
Mnohokrat Vam dekuji za rady :-)

[Reklama]

[kuchyn]

Ahoj,
chápu to dobře tak, že se má smazat celý řádek, pokud jsou datumy ve sloupcích A a E různé?
Snad něco takového?

Kód: Vybrat vše

Sub PorovnejDatum()
   Dim Oblast       As Range
   Dim i            As Double

   Set Oblast = ActiveWorkbook.Worksheets(1).UsedRange
   With Oblast
      For i = Oblast.Rows.Count To 1 Step -1
         If .Rows(i).Cells(1).Value <> .Rows(i).Cells(5).Value Then
            .Rows(i).Cells(1).Interior.ColorIndex = 33
         Else
            .Rows(i).Cells(1).Interior.ColorIndex = xlNone
         End If
      Next i
   End With
End Sub


[jarex]

Ahoj, no ma se to smazat, hlavni pro me je, aby zustaly jen informace o tech datech, ktera jsou v obou sloupcich.
Takze ano, cele radky, cily A,B,C nebo E,F
proste at mi zustanou jen ty duplicitni s datem a vyplnene hodnoty...Pak uz si to srovnam sama, dekuji :-)

--- Doplnění předchozího příspěvku (04 Lis 2011 18:54) ---

Tak jsem to zkousela a podle me to nefunguje spravne:
1. mi to nekde smazalo jen jednu hodnotu a to i presto, ze to zrovna bylo duplicitni datum napr 21.10.2005 to smaze hodnotu C
2. jinak mi to nektere jedinecne datumy nechalo...napr 22.10.2005

[kuchyn]

Ahoj,
ta procedura jenom obarvovala (na modro?) řádky ve sloupci A, které by se měly smazat.

Kód: Vybrat vše

Sub PorovnejDatum()
   Dim Oblast       As Range
   Dim i            As Double

'Pokud jsou hodnoty ve sloupcich A a E ruzne, smaze se cely radek
   Application.ScreenUpdating = False
   Set Oblast = ActiveWorkbook.Worksheets(1).UsedRange
   With Oblast
      For i = Oblast.Rows.Count To 1 Step -1
         If .Rows(i).Cells(1).Value <> .Rows(i).Cells(5).Value Then
            .Rows(i).EntireRow.Delete
         End If
      Next i
   End With
   Application.ScreenUpdating = True
End Sub


[jarex]

Mnohokrat dekuji, ale asi jsem to blbe popsala :-)
Nemaji se porovnavat jen data ze stejneho radku :-) protoze pak mi zbydou jen prvni tri datumy, ale potrebuji vzdy kazde datup porovnat s celym sloucem...takze kazde Ai porovnat se vsemi Ei :-)

--- Doplnění předchozího příspěvku (04 Lis 2011 19:21) ---

a abych nezapomnela... aby se i jedinecne datumy vymazaly i z E - pokud je v E datum, ktere neni v A, tak aby se smazalo i z E :-) dekuji

[kuchyn]

Ahoj, snad už chápu: všechny hodnoty ze sloupce A porovnat s hodnotami ve sloupci E, pokud neni nalezena shoda (duplicita), pak smazat. To samé provést opačně (všechny hodnoty ze sloupce E porovnat s hodnotami ve sloupci A. Přikládám soubor.

[jarex]

Dekuji mnohokrat, vypada to presne na to, co potrebuji, dekuji dekuji