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
Napsal: 05 lis 2011 09:36
od jarex
Dekuji mnohokrat, vypada to presne na to, co potrebuji, dekuji dekuji