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

• #23659 Fferi50 Topikgazda tgumis #23657

  Új Válasz 2014-10-11 17:34:14 #23659

  Ú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

  

  Fferi50

  Topikgazda

  válasz tgumis #23657 üzenetére

  Szia!

  Excel 2007- ben adatok speciális szűrő, Excel 2003-ban adatok, irányított szűrő (makróban advancedfilter metódus.
  Ha a c1 cellába tettél egy fejlécet, akkor az irányított/speciális szűrő párbeszéd paneljében csak azt kell beállítanod, hogy C1:C700 az adattartomány, C1 a szűrőtartomány, helyezze át máshova, ide beírod a D1-t, és bejelölöd a csak az egyedi értékeket.

  Makróval:
  range("C1:C700").advancedfilter action:=xlfiltercopy, criteriarange:=range("C1"),unique:=true,copytorange:=range("D1")

  Ennyi az egész.

  Üdv.

• #23658 Delila_1 veterán tgumis #23657

  Új Válasz 2014-10-11 16:56:59 #23658

  Ú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 tgumis #23657 üzenetére

  Sub IsmTorl()
  Dim sor As Integer
  
  sorM = 2
  Range("D2:D700") = "=IF(COUNTIF(C2:C$2,C2)=1,C2,"""")"
  
  For sor = 700 To 2 Step -1
  If Len(Cells(sor, 4)) < 1 Then Cells(sor, 4).Delete shift:=xlUp
  Next
  End Sub

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