Idézet: negyvenketto - Dátum: 2008. ápr. 14., hétfő - 21:00
A makrómentes megoldásért felajánlok egy sört
Mellékleteink: HUP | Gamekapocs
Elküldve: 2008. 04. 15. 18:20
Idézet: negyvenketto - Dátum: 2008. ápr. 14., hétfő - 21:00
Elküldve: 2008. 04. 15. 19:49
Elküldve: 2008. 04. 16. 06:49
Idézet: Delila - Dátum: 2008. ápr. 16., szerda - 7:31
Elküldve: 2008. 04. 16. 07:41
Idézet: pgyafi - Dátum: 2008. ápr. 16., szerda - 7:49
Elküldve: 2008. 04. 16. 13:37
Idézet: negyvenketto - Dátum: 2008. ápr. 16., szerda - 8:41
Elküldve: 2008. 04. 16. 20:45
Idézet: pgyafi - Dátum: 2008. ápr. 16., szerda - 14:37
Elküldve: 2008. 04. 18. 14:14
Elküldve: 2008. 04. 18. 18:54
Sub autoszuro() ertek = Cells(1, 2) Selection.AutoFilter Field:=1, Criteria1:=ertek End Sub
Sub Worksheet_Change(ByVal Target As Excel.Range) If (Target.Column = 2 And Target.Row = 1) Then ertek = Target.Value Selection.AutoFilter Field:=1, Criteria1:=ertek End Sub
Elküldve: 2008. 04. 18. 19:26
Idézet: Delila - Dátum: 2008. ápr. 18., péntek - 18:54
Sub autoszuro() ertek = Cells(1, 2) Selection.AutoFilter Field:=1, Criteria1:=ertek End Sub
Sub Worksheet_Change(ByVal Target As Excel.Range) If (Target.Column = 2 And Target.Row = 1) Then ertek = Target.Value Selection.AutoFilter Field:=1, Criteria1:=ertek End Sub
Elküldve: 2008. 04. 27. 06:30
Idézet: Root_Kiskacsa - Dátum: 2008. ápr. 14., hétfő - 21:46
Elküldve: 2008. 05. 15. 09:40
Elküldve: 2008. 05. 15. 11:56
Idézet: Misi_D - Dátum: 2008. máj. 15., csütörtök - 9:40
Elküldve: 2008. 05. 21. 11:28
Elküldve: 2008. 05. 21. 21:48
Idézet: KolatheMAD - Dátum: 2008. máj. 21., szerda - 11:28
Elküldve: 2008. 06. 03. 13:49
Elküldve: 2008. 06. 19. 19:15
Elküldve: 2008. 06. 19. 19:39
Idézet: Pikkolo - Dátum: 2008. jún. 19., csütörtök - 19:15
Elküldve: 2008. 06. 23. 09:12
Elküldve: 2008. 06. 23. 09:41