Ongelma on seuraavanlainen:
Poimi erikoissuodatuksella (erilliselle alueelle laskentataulukossa) sellaiset 50-60-vuotiaat kilpailijat, jotka ovat joko heittäneet saapasta vähintään 28 metriä tai saaneet tikanheitossa vähintään 30 pistettä (tai molemmat).
Onnistun kyllä suodattamaan vaikka yhden iän kanssa
esim. 50 >=28 >=30, arvoilla mutta kuinka saan rajattua suodatuksen 50-60 väliin? Eli kuinka se tulee merkitä?
Poimi erikoissuodatuksella (erilliselle alueelle laskentataulukossa) sellaiset 50-60-vuotiaat kilpailijat, jotka ovat joko heittäneet saapasta vähintään 28 metriä tai saaneet tikanheitossa vähintään 30 pistettä (tai molemmat).
Onnistun kyllä suodattamaan vaikka yhden iän kanssa
esim. 50 >=28 >=30, arvoilla mutta kuinka saan rajattua suodatuksen 50-60 väliin? Eli kuinka se tulee merkitä?
Vastaukset 2
Vanhimmat
Tässä oletetaan, että Sarakkeessa A on nimet, B sisältää iän, C sisältää saappaanheiton tulokset ja D tikanheiton tulokset. Kopiointialue on sarakkeissa H-K.
Sub SuodataJaKopioi()
Dim rng As Range
Application.ScreenUpdating = False
Range("H1:K20").ClearContents 'Muuta aluetta
With ActiveSheet
If Not .AutoFilterMode Then
With Range("A1:D1") 'Muuta aluetta
.Cells.AutoFilter
End With
End If
End With
Range("A1").Select
With Selection
.AutoFilter Field:=2, Criteria1:=">=50", Operator:=xlAnd, _
Criteria2:="=28", Operator:=xlAnd
.AutoFilter Field:=4, Criteria1:=">=30", Operator:=xlAnd
End With
Range("A1:D1").Copy Destination:=Range("H1") 'Muuta aluetta
Set rng = ActiveSheet.AutoFilter.Range
On Error Resume Next
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1)
Set rng = rng.SpecialCells(xlCellTypeVisible)
rng.Copy Destination:=Range("H2")
With ActiveSheet
If .AutoFilterMode Then
If .FilterMode Then
.ShowAllData
End If
End If
End With
End Sub
jos ymmärsin oikein että sulla on erillinen ehtoalue, niin JA ehdot kirjoitetaan vierekkäin kun taas TAi ehdot allekkain ja molempia lajeja voi olla monta. Otsikkosarakkeiden pitää olla identtiset kuten varmaan tiedät. Lisää löytyy excelin omilta sivuiltakin hakusanalla ehtoalue.