Eli aktiivisen rivin tyhjien solujen perusteella pitäisi piilottaa sarakkeet määritetyltä sarakealueelta. Ja millä koodilla kaikki sarakkeet taas palautetaan takaisin esille?
Sarakkeiden piilottaminen aktiivisen rivin per
Koodi_hukassa
3
155
Vastaukset
- ORCL
Ohessa moduuliin kaksi makroa. Muuta kolmella koodirivillä haluamasi sarakeväli. Mallissa tällä hetkellä välinä A- Z. Ensimmäisellä makrolla saa piiloon tyhjien solujen sarakkeet sarakevälillä ja toisella makrolla saa kaikki sarakkeet taas näkyviin. Onko apua ?
Sub PiilotaSarakkeet()
Dim Alue As Range
Dim Solu As Range
Columns("A:Z").Hidden = False 'haluttu sarakeväli tähän
Set Alue = Range("A" & ActiveCell.Row & ":Z" & ActiveCell.Row) 'haluttu sarakeväli tähän
For Each Solu In Alue
If IsEmpty(Solu) Then
Columns(Solu.Column).Hidden = True
End If
Next Solu
End Sub
Sub NäytäSarakkeet()
Columns("A:Z").Hidden = False 'haluttu sarakeväli tähän
End Sub- Koodi_hukassa
Just noin! Kiitos ORCL
ei tarvitse määritellä aluetta...
Sub Piilota()
ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = True
End Sub
Sub Näytä()
ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden = False
End Sub
Keep EXCELing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kiitos nainen
Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik123940MTV: Kirkossa saarnan pitänyt Jyrki 69 koki yllätyksen - Paljastaa: "Se mikä oli hyvin erikoista..."
Jyrki Linnankivi alias Jyrki 69 on rokkari ja kirkonmies. Teologiaa opiskeleva Linnankivi piti elämänsä ensimmäisen saar802049Hyväksytkö sinä sen että päättäjämme ei rakenna rauhaa Venäjän kanssa?
Vielä kun sota ehkäpä voitaisiin välttää rauhanponnisteluilla niin millä verukkeella voidaan sanoa että on hyvä asia kun5481641Kirjoita yhdellä sanalla
Joku meihin liittyvä asia, mitä muut ei tiedä. Sen jälkeen laitan sulle wappiviestin851308Olet hyvin erilainen
Herkempi, ajattelevaisempi. Toisaalta taas hyvin varma siitä mitä haluat. Et anna yhtään periksi. Osaat myös ilkeillä ja671097Yksi syy nainen miksi sinusta pidän
on se, että tykkään luomusta. Olet luonnollinen, ihana ja kaunis. Ja luonne, no, en ole tavannut vielä sellaista, joka s331028Hyödyt Suomelle???
Haluaisin asettaa teille palstalla kirjoittelevat Venäjää puolustelevat ja muut "asiantuntijat" yhden kysymyksen pohditt214908Hyvää Joulua mies!
Toivottavasti kaikki on hyvin siellä. Anteeksi että olen hieman lisännyt taakkaasi ymmärtämättä kunnolla tilannettasi, o60883- 171854
Paljastavat kuvat Selviytyjät Suomi kulisseista - 1 päivä vs 36 päivää viidakossa - Katso tästä!
Ohhoh! Yli kuukausi viidakossa voi muuttaa ulkonäköä perusarkeen aika rajusti. Kuka mielestäsi muuttui eniten: Mia Mill3818