AutoFilter-toiminto ja merged cells

Kiitos vastauksesta! AutoFilter on siis sama toiminto kuin pikasuodatus. Olen yrittänyt tehdä kuten kuvasit viestissäsi. Mutta ongelma tulee siinä, että kun valitsen "eurooppa" niin Excel näyttää vain "euroopan" ensimmäisellä rivillä olevan maan tiedot. Eurooppa-solu on siis yhdistetty solu 12 solusta (A1:A12) ja 12 Euroopan maata ovat soluissa B1:B12. Esim kun valitsen "eurooppa" valikosta niin näen vain B1 solussa olevan maan tiedot, vaikka haluaisin nähdä kaikkien 12 euroopan maan tiedot. Tietenkin voisin kiertää ongelman pitämällä A1:A12 solut erillisinä ja kirjoittamalla A1:A12 soluihin eurooppa, jolloin ongelmaa ei syntyisi, mutta tällöin taulukon luettavuus kärsii pahasti.

vielä tarkennusta... kirjoitti:

Kiitos vastauksesta! AutoFilter on siis sama toiminto kuin pikasuodatus. Olen yrittänyt tehdä kuten kuvasit viestissäsi. Mutta ongelma tulee siinä, että kun valitsen "eurooppa" niin Excel näyttää vain "euroopan" ensimmäisellä rivillä olevan maan tiedot. Eurooppa-solu on siis yhdistetty solu 12 solusta (A1:A12) ja 12 Euroopan maata ovat soluissa B1:B12. Esim kun valitsen "eurooppa" valikosta niin näen vain B1 solussa olevan maan tiedot, vaikka haluaisin nähdä kaikkien 12 euroopan maan tiedot. Tietenkin voisin kiertää ongelman pitämällä A1:A12 solut erillisinä ja kirjoittamalla A1:A12 soluihin eurooppa, jolloin ongelmaa ei syntyisi, mutta tällöin taulukon luettavuus kärsii pahasti.

Lue lisää

Koska solut on yhdistetty ei suodatus toimi, koska yhdistetyissä soluissa on tietoa vain sen vasemman yläkulman solussa, joten ainoa mahdollisuus on tehdä makro.
Makrolla puretaan yhdistetyt solut ja täytetään ne ao tiedoilla, jolloin suodatus toimii...
Alla nyt simppeli esim. asiasta. Muokkaa mieleiseksi.
Nyt originaalitiedot Data nimisessä taulukossa, jonka nimi pitää muuttaa sopivaksi.
Ohjelma aluksi kysyy maanosaa ja tekee sen mukaisen suodatuksen Huuhaa(muuta mieleiseksi) taulukkoon. Sen jälkeen voit tehdä tehdä vapaasti suodatuksia eri kentille alasvetovalikoista.

Sub Pikasuodatus()
Dim Hakuehto As String
Dim Alue As Range
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set Alue = Sheets("Data").Range("A1").CurrentRegion ' vaihda nimi originaalitiedot tässä
Sheets("Huuhaa").Delete
Worksheets.Add().Name = "Huuhaa"
Alue.Copy Destination:=Sheets("Huuhaa").Range("A1")
Hakuehto = Application.InputBox("Anna maanosan nimi jonka tietoja haluat tutkia", "Hakukone", "Eurooppa", Type:=2)
Set Alue = Sheets("Huuhaa").Range("A1").CurrentRegion
With Alue
.UnMerge
.Resize(.Rows.Count, 1).SpecialCells(xlBlanks).Formula = "=R[-1]C"
Range("A1").AutoFilter Field:=1, Criteria1:=Hakuehto
End With
Range("A1").Select

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Keep Excelling!
@Kunde

vielä tarkennusta... kirjoitti:

Kiitos vastauksesta! AutoFilter on siis sama toiminto kuin pikasuodatus. Olen yrittänyt tehdä kuten kuvasit viestissäsi. Mutta ongelma tulee siinä, että kun valitsen "eurooppa" niin Excel näyttää vain "euroopan" ensimmäisellä rivillä olevan maan tiedot. Eurooppa-solu on siis yhdistetty solu 12 solusta (A1:A12) ja 12 Euroopan maata ovat soluissa B1:B12. Esim kun valitsen "eurooppa" valikosta niin näen vain B1 solussa olevan maan tiedot, vaikka haluaisin nähdä kaikkien 12 euroopan maan tiedot. Tietenkin voisin kiertää ongelman pitämällä A1:A12 solut erillisinä ja kirjoittamalla A1:A12 soluihin eurooppa, jolloin ongelmaa ei syntyisi, mutta tällöin taulukon luettavuus kärsii pahasti.

Lue lisää

vaikka pitää ne solut erillisinä mutta laittaa fontin väriksi valkoinen, paitsi siinä alimmassa. Suodatus toimisi hyvin eikä luettavuuskaan kärsi...

voisi kirjoitti:

vaikka pitää ne solut erillisinä mutta laittaa fontin väriksi valkoinen, paitsi siinä alimmassa. Suodatus toimisi hyvin eikä luettavuuskaan kärsi...

Joo täytyy koittaa noita ratkaisuja! Makroista tiedän vain alkeet, mutta ennenkin olen päässyt jyvälle asioista Kunden ratkaisuiden pohjalta. Jälkimmäinen ratkaisu taas kuulostaisi mukavan simppleliltä tavalta.