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

• #25634 Delila_1 veterán grondby #25633

  Új Válasz 2015-02-27 12:45:19 #25634

  Ú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 grondby #25633 üzenetére

  Szivi.

• #25632 Delila_1 veterán grondby #25631

  Új Válasz 2015-02-27 12:39:34 #25632

  Ú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 grondby #25631 üzenetére

  Set ws = Worksheets("Munka1")

  helyett

  Set ws = Worksheets(ActiveSheet.Name)

• #25629 Delila_1 veterán grondby #25627

  Új Válasz 2015-02-27 11:38:23 #25629

  Ú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 grondby #25627 üzenetére

  Szívesen. Minden lap kódlapjára másold át.

• #25626 Delila_1 veterán grondby #25623

  Új Válasz 2015-02-27 09:34:04 #25626

  Ú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 grondby #25623 üzenetére

  Az I oszlopban lévő adatokból is hozz létre listát. Az eredeti makró a laphoz rendelve, kibővítve

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Variant
  
  If Target.Column = 2 Then
  sor = Application.Match(Target, Columns(8), 0)
  If IsError(sor) Then Range("H" & Application.WorksheetFunction.CountA(Columns(8)) + 1) = Target
  End If
  
  If Target.Column = 3 Then
  sor = Application.Match(Target, Columns(9), 0)
  If IsError(sor) Then Range("I" & Application.WorksheetFunction.CountA(Columns(9)) + 1) = Target
  End If
  End Sub

• #25616 Delila_1 veterán grondby #25615

  Új Válasz 2015-02-26 14:14:03 #25616

  Ú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 grondby #25615 üzenetére

  Szívesen.

• #25612 Delila_1 veterán grondby #25611

  Új Válasz 2015-02-26 13:45:43 #25612

  Ú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 grondby #25611 üzenetére

  A lapodhoz rendelve a lenti makrót automatikus lesz a H oszlop bővítése, mikor új adatot viszel fel a B oszlopba.

  A füzetedet makróbarátként kell mentened.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Integer
  
  If Target.Column = 2 Then
  On Error GoTo Uj
  sor = Application.Match(Target, Range("H:H"), 0)
  
  End If
  Exit Sub
  
  Uj:
  Range("H" & Application.WorksheetFunction.CountA(Columns(8)) + 1) = Target
  End Sub

• #25610 Delila_1 veterán grondby #25609

  Új Válasz 2015-02-26 12:19:01 #25610

  Ú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 grondby #25609 üzenetére

  Én sem írtam érthetően.

  1. Először tedd ki a színeket a H oszlopba, mindegyikből 1-et az említett speciális szűréssel.
  2. Hozd létre a H oszlopban az adatokból a listát, majd a B oszlopba vidd be az érvényesítéseket.
  3. Új színt a H oszlopban kell majd megadni, akkor ez az érték is szerepel automatikusan a B oszlop érvényesítéseiben.

• #25608 Delila_1 veterán grondby #25607

  Új Válasz 2015-02-26 11:28:05 #25608

  Ú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 grondby #25607 üzenetére

  Adj címet a H1-be, majd a tartományban állva Ctrl+R-rel listává alakítod. Kijelölöd a beírt színeket, és nevet adsz a tartománynak. Ezt a nevet adhatod a B oszlopban az érvényesítéseknek.

  A H oszlopba újonnan beírt színek automatikusan szerepelni fognak az érvényesítésekben, erre (is) jó a listává alakítás.

• #25606 Delila_1 veterán grondby #25605

  Új Válasz 2015-02-26 11:06:40 #25606

  Ú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 grondby #25605 üzenetére

  A speciális, régebbi verziókban irányított szűrést nézd meg a súgóban.

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