Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Skrivanje kolone uz uslov pomoću makroa

[es] :: Office :: Excel :: Skrivanje kolone uz uslov pomoću makroa

[ Pregleda: 417 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

darkos1
banjaluka RS

Član broj: 267138
Poruke: 59
31.223.131.*



+1 Profil

icon Skrivanje kolone uz uslov pomoću makroa14.04.2019. u 20:39 - pre 11 dana i 8h
Kako da napišem makro koji će da sakrije kolonu C ako je u ćeliji F1 vrijednost manja od 10, a ako je vrijednost 11 da sakrijem kolonu D, a ako je vrijednost veća od 12 da sakrijem kolonu E.
I drugo pitanje da li se može formatirati neka ćelija u kojoj će uvek biti velika slova bez obzira kako napisana (u pitanju je ime i prezime da budu ispisana velikim slovima u ćeliji u kojoj se piše)
 
Odgovor na temu

bokinet

Član broj: 29844
Poruke: 291



+22 Profil

icon Re: Skrivanje kolone uz uslov pomoću makroa14.04.2019. u 23:00 - pre 11 dana i 5h
Pod skariti se podrazumeva da bude sakrivena vizuelno ali da bude tu (onda se podesava sirina) ili da bude trajno obrisana (onda se radi delete kolone)?

Cela kolona - kod bi bio nesto poput ovoga gde u primeru se sakrivaju sve kolone od A do C:
Code:

Columns("A:C").EntireColumn.Hidden = True


odnosno samo jedna, kod bi bio
Code:

Columns("C").EntireColumn.Hidden = True


Za to sto ste trazili gore i ako je ovo prvo onda da bi ste dobili to sto hocete dodajte IF uslove i reseno.
 
Odgovor na temu

darkos1
banjaluka RS

Član broj: 267138
Poruke: 59
80.65.66.*



+1 Profil

icon Re: Skrivanje kolone uz uslov pomoću makroa15.04.2019. u 08:09 - pre 10 dana i 20h
Hvala na odgovoru, do ovoga sam i ja dosao snimajući makro, ali nisam znao kako da zavisno od navedenih uslova skriva različite kolone.
 
Odgovor na temu

jaskojsako
BIH

Član broj: 141632
Poruke: 185
109.175.98.*



+4 Profil

icon Re: Skrivanje kolone uz uslov pomoću makroa15.04.2019. u 08:19 - pre 10 dana i 20h
Pozdrav
pokušaj sa ovim kodom

Private Sub CommandButton1_Click()
If Range("F1").Value < 10 Then
Columns("C").EntireColumn.Hidden = True
Else
Columns("C").EntireColumn.Hidden = False
End If
If Range("F1").Value = 11 Then
Columns("D").EntireColumn.Hidden = True
Else
Columns("D").EntireColumn.Hidden = False
End If
If Range("F1").Value > 12 Then
Columns("E").EntireColumn.Hidden = True
Else
Columns("D").EntireColumn.Hidden = False
End If
End Sub
Jasmin
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2053
89.216.49.*

Sajt: www.gowi.rs


+77 Profil

icon Re: Skrivanje kolone uz uslov pomoću makroa15.04.2019. u 08:55 - pre 10 dana i 19h
jaskojsako ti je već dao odgovor. Umesto višestrukih if možeš da koristiš select case ... - nije bitna razlika
Što se tiče pretvaranja u velika slova
a/ Možeš da instaliraš neki font koji ima samo velika slova (ALL CAPS) i onda sa tim fontom da formatiraš kolonu
b/ Da koristiš makro koji će na promenu sadržaja ćelije da pretvori sadržaj u velika slova. Npr za kolonu A (od drugog do 2000 reda)

Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A2:A2000")) Is Nothing Then
    If Target.Cells.Count = 1 Then
        Application.EnableEvents = False
        Target.Value = UCase(Target.Value)
        Application.EnableEvents = True
    End If
End If
End Sub



U primeru sam ti i skrivanje kolona dodao na promenu ćelije F1

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

darkos1
banjaluka RS

Član broj: 267138
Poruke: 59
31.223.131.*



+1 Profil

icon Re: Skrivanje kolone uz uslov pomoću makroa19.04.2019. u 09:30 - pre 6 dana i 19h
Hvala na odgovoru nisam stigao ranije da se javim.
Vezano za drugi dio problema kako da dodam još jednu kolonu za velika slova a nije susujedna.
Kako da dodam taj range ili da se izmijeni dio koda (npr treba mi još i kolona C2:C2000)
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2053
89.216.49.*

Sajt: www.gowi.rs


+77 Profil

icon Re: Skrivanje kolone uz uslov pomoću makroa19.04.2019. u 11:49 - pre 6 dana i 17h
Nesusedni opseg možeš da jednostavno dodaš u Range nakon zareza, npr.
...Intersect(Target, Range("A2:A2000,C2:C2000"))
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

darkos1
banjaluka RS

Član broj: 267138
Poruke: 59
31.223.131.*



+1 Profil

icon Re: Skrivanje kolone uz uslov pomoću makroa19.04.2019. u 15:09 - pre 6 dana i 13h
Hvala
 
Odgovor na temu

[es] :: Office :: Excel :: Skrivanje kolone uz uslov pomoću makroa

[ Pregleda: 417 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.