Stránka 1 z 1
EXCEL- porovnani datumu
Napsal: 04 lis 2011 15:00
od 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 :-)
Re: EXCEL- porovnani datumu
Napsal: 04 lis 2011 18:05
od 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
Re: EXCEL- porovnani datumu
Napsal: 04 lis 2011 18:41
od 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
Re: EXCEL- porovnani datumu
Napsal: 04 lis 2011 19:08
od 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
Re: EXCEL- porovnani datumu
Napsal: 04 lis 2011 19:17
od 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
Re: EXCEL- porovnani datumu
Napsal: 04 lis 2011 21:05
od 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.
Re: EXCEL- porovnani datumu Vyřešeno
Napsal: 05 lis 2011 09:36
od jarex
Dekuji mnohokrat, vypada to presne na to, co potrebuji, dekuji dekuji