Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

VB macro bojenje citavog reda

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 8 odgovora
  • 2.580 pregleda

Najnovija ↓

VB macro bojenje citavog reda 21.09.2017. u 16:22 · pre 110 meseci
izmenjeno 1 put, poslednji put ivansbgd 21.09.2017. u 16:39
Izmene poruke
  1. ivansbgd21.09.2017. u 16:39zapis iz teksta poruke
#1
Pozdrav

koristim ovaj makro i potrebno mi je da obojim citav red koji trenutno aktivan (aktivna kartica)
Postavio sam buttone sa odredjenim bojama kao izbor, mada mogu da budu check polja

Nadam se da sam objasnio sta mi je potrebno :(

Hvala
proba.xls135.5k
Re: VB macro bojenje citavog reda 21.09.2017. u 18:53 · pre 110 meseci #3
Da, to je to
Samo imam i malu dopunu ... kako u formi dobiti informaciju koja boja je aktivna, kao i button za ponistavanje boje

Hvala na brzom odgovoru
Re: VB macro bojenje citavog reda 21.09.2017. u 19:08 · pre 110 meseci #4
Resetovanje boje sam namestio, jos samo informacija u formi koja je boja aktivna
Re: VB macro bojenje citavog reda 21.09.2017. u 19:16 · pre 110 meseci #5
Evo

Update. Samo skini ponovo ovaj fajl posto sam dodao zastitu ako neko bude kliktao po sheetovima za vreme rada da ti uvek sve operacije radi u sheet-u "EVIDENCIJA".
proba.xls153.5k
Re: VB macro bojenje citavog reda 05.10.2017. u 23:13 · pre 110 meseci #7
Pozdrav

imam opet problem.
Potrebno mi je da kada se u tabeli klikne na neku celiju (company6) u koloni B, otvori makro sa podacima iz tog reda.

U prilogu je file sa delom koda koji klikom na bilo koju celiju iz B kolone uvek otvara pocetnu formu, tj. prvi red.
proba x.xls156k
Re: VB macro bojenje citavog reda 06.10.2017. u 09:30 · pre 110 meseci #8
U rutini

Code:
Private Sub UserForm_Initialize() '======================================<.>
  Dim I As Integer         'Aktiviraj Sheet->EVIDENCIJA !?!
  ActiveWorkbook.Worksheets("EVIDENCIJA").Activate
  
  X = 0
  LL = 2
  aktivna.ColumnCount = 1           'aktivna
  aktivna.BoundColumn = 1
  aktivna.RowSource = "aktivna!A1:A35"
  aktivna.ColumnWidths = "5,5,10"
  '
  mesec.ColumnCount = 1           'mesec
  mesec.BoundColumn = 1
  mesec.RowSource = "mesec!A1:A35"
  mesec.ColumnWidths = "5,5,10"
  '
 I = PodesiRed()
End Sub


Umesto LL=2, stavi
Code:
 LL = ActiveCell.Row()


LL je globalni parametar, bolje bi bilo da si definisao kao ulazni parametar za funkciju PodesiRed(), ali to bi zahtevalo izmene na više mesta
Potpis
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme