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
223
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
- 16457
- 10412
- 16347
- 3341
Mies mä oon ihan helppo
Miehelle johon oon ihastunut. Olen harvoin ihastunut, mutta suhun olen. Ei tarvitse kuin pyytää, niin...13206- 1103
- 090
Mies olen aika erakko nykyään
Vanhentunutkin olen muutamana viime vuonna parikyt vuotta. Kun en ennenkään kelvannut, niin tuskin nytkään kelpaan. Lisä090Kuinka moni palstalaisista on näin hyvässä kondiksessa
76-vuotias rokkari Rick Springfield esittelee elämäntyyliään : https://www.youtube.com/watch?v=GbxHuNy6d68367- 161