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

• #7547 Delila_1 veterán motinka #7546

  Új Válasz 2010-07-11 07:01:47 #7547

  Ú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 motinka #7546 üzenetére

  A lapvédelem beállításainál választhatsz, hogy milyen műveletek ellen véded a lapot.
  Itt van egy felsorolás, amiből kiválaszthatod, mit engedélyezel minden felhasználónak. Bejelöltem az AutoSzűrő használatát, de ez úgy látom, nem működik, nem engedi.

  Töröld a zárolást a D3:D9 tartományban, és a többi helyen, ahol módosíthat a felhasználó. Védd le a lapot.

  A makró első sora ez legyen:
  ActiveSheet.Protect UserInterfaceOnly:=True

  Szerk.: ezzel a felhasználótól védetté tesszük a lapot, de a makrók ezután is módosíthatják a zárolt cellák tartalmát.

• #7534 Delila_1 veterán motinka #7533

  Új Válasz 2010-07-10 07:45:17 #7534

  Ú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 motinka #7533 üzenetére

  Szívesen.

  Várjuk az újabb kérdéseidet, kétesélyes a válasz.

• #7532 Delila_1 veterán motinka #7531

  Új Válasz 2010-07-10 06:09:09 #7532

  Ú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 motinka #7531 üzenetére

  Ha már Fire megígérte, tálalom a makrót.

  Tegyél autoszűrőt az A11:I11 tartományba, ahogy Fire is írta.

  A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra másold be:

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 4 And Target.Row > 2 And Target.Row < 9 Then
  Range("A11").Select
  Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 1)
  Selection.AutoFilter Field:=9, Criteria1:="="
  End If
  
  If Target.Address = "$H$1" Then
  Selection.AutoFilter Field:=5
  Selection.AutoFilter Field:=9
  End If
  End Sub

  Ezután a D3:D8 tartomány bármelyik cellájára duplán kattintva a lenti sorok közül azok látszanak, amiket kértél.
  Beleírtam, hogy a H1 duplaklikkjére minden adat látsszon az alsó táblázatban. Írhatsz is valami erre utaló szöveget a H1-be.

• #7530 Fire/SOUL/CD félisten motinka #7529

  Új Válasz 2010-07-09 23:27:35 #7530

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz motinka #7529 üzenetére

  Hali!

  Igen, makróval megoldható úgy ahogy gondolod, de ha nem haragszol, ma már nem állok neki... Majd holnap...

  Fire.

  UI: Bár mire holnap reggel felkelek, valószínű Delila_1 már olvasta a feladatot, és kész kód fog fogadni... Úgy hogy ne aggódj, lesz makród...

• #7528 Fire/SOUL/CD félisten motinka #7527

  Új Válasz 2010-07-09 23:10:44 #7528

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz motinka #7527 üzenetére

  Hali!

  Akkor nincs akadálya az Autoszűrőnek.
  Jelöld ki az A11 : I11 cellákat és Adatok menü/Szűrő/Autoszűrő.

  Meg fognak jelenni lenyitható objektumok, a technikus nevénél nyisd le, válasz ki egy emberkét, ezután a munkalap számánál nyisd le és válaszd az ÜRES lehetőséget.

  Így csak pl Kovács Sanyi sorai jelennek meg, de csak azok, ahol a munkalap száma ÜRES.

  Fire.

• #7526 Fire/SOUL/CD félisten motinka #7525

  Új Válasz 2010-07-09 22:43:07 #7526

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz motinka #7525 üzenetére

  Hali!

  Egy kép jó lenne róla, de valószínűleg egyszerűbb lenne talán az Autoszűrő alkalmazása.

  Fire.

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