[ ivansbgd @ 21.09.2017. 15:22 ] @
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

[Ovu poruku je menjao ivansbgd dana 21.09.2017. u 16:39 GMT+1]
[ Blue82 @ 21.09.2017. 17:38 ] @
Ako si ovo hteo, evo.
[ ivansbgd @ 21.09.2017. 17:53 ] @
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
[ ivansbgd @ 21.09.2017. 18:08 ] @
Resetovanje boje sam namestio, jos samo informacija u formi koja je boja aktivna
[ Blue82 @ 21.09.2017. 18:16 ] @
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".
[ ivansbgd @ 21.09.2017. 18:21 ] @
SVAKA CAST !!!

Hvala mnogo

POZDRAV
[ ivansbgd @ 05.10.2017. 22:13 ] @
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.
[ Jpeca @ 06.10.2017. 08:30 ] @
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
[ ivansbgd @ 06.10.2017. 19:07 ] @
HVALA

to je to

pozdrav