Új hozzászólás Aktív témák

• #27749 Delila_1 veterán RedHarlow #27748

  Új Válasz 2015-07-14 11:49:16 #27749

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz RedHarlow #27748 üzenetére

  A makró az U oszlopba írja ki a nevet és a jogosultságot.

  Sub Jogosultsag()
  Dim sor As Long, usor As Long, oszlop As Integer
  
  usor = Range("A" & Rows.Count).End(xlUp).Row
  
  For sor = 2 To usor
  Cells(sor, "U") = "[" & Cells(sor, "A") & "] "
  For oszlop = 7 To 20
  If Cells(sor, oszlop) = "true" Then
  Cells(sor, "U") = Cells(sor, "U") & "[" & Cells(1, oszlop) & "] "
  End If
  Next
  Next
  End Sub

Új hozzászólás Aktív témák