Löytyiskö mallia koodista joka tekisi jotain tällaista:
Käy läpi arvot soluista C3:X3, piilota sarake, jos arvo on tyhjä tai nolla?
Sarakkeiden piilottaminen koodilla
2
358
Vastaukset
taas pelaa foorumi, eikä olla bannattuna )-;
haullahan näitä samoja kyssäreitä alkaa olla jo piisalle asti (mielestäni paras RANGE-funktio)...
ei tartte yleensä kuin solualueen ja tarpeen muutoksen- eli pikku fiksauksen.
Liian VAIKEAAKO???
moduuliin...
Function EtsiJaSiirrä(Hakuehto As Variant) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Taul1").Activate
With Range("C3:X3")
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set EtsiJaSiirrä = solu
EkaOsoite = solu.Address
Do
Set EtsiJaSiirrä = Union(EtsiJaSiirrä, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With
End Function
Sub Testi2()
On Error Resume Next
Dim Löydetty As Range
Dim solu As Range
Set Löydetty = EtsiJaSiirrä("")
Löydetty.EntireColumn.Delete
Set Löydetty = EtsiJaSiirrä(0)
Löydetty.EntireColumn.Delete
End Sub- Toimii hyvin!
Kun näitä ei työkseen tee ja harvakseltaan muutenkin, on ihan perusjututkin ihan hakusessa. Tästä sain höylättyä toimivan version. Kiitos!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1582639
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1351976Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1081846- 731500
- 801466
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet241452- 2271100
- 65969
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv230942- 73920