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

• #7764 Delila_1 Topikgazda föccer #7761

  Új Válasz 2010-07-23 10:43:15 #7764

  Ú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

  Topikgazda

  válasz föccer #7761 üzenetére

  Most ezt tudja:

  Nevezd át a lapokat. Ahol a sok adatod van, legyen Lista, a másik Kritériumok.

  A Lista lapon vannak 20 oszlopban az adataid. A Kritériumok lapon a B1:B20 tartományban érvényesítéssel vannak az egyes oszlopokra vonatkozó kritériumok, pl. ha a Lista!A oszlopban az almára akarsz szűrni, akkor a Kritériumok!B1 cella értéke alma; ha az Lista!E oszlopban Fótra szűrnél, akkor a Kritériumok!B5 legyen Fót.

  A gombot az Űrlapvezérlők közül tedd ki a Kritériumok lapra.

  Sub filt()
  Dim i As Integer
  Sheets("Lista").select
  
  Cells(1).Select
  For i = 1 To 20
  If Sheets("Kritériumok").Cells(i, 2) > "" Then
  Selection.AutoFilter Field:=i, Criteria1:=Sheets("Kritériumok").Cells(i, 2)
  End If
  Next
  End Sub

  Amennyiben nem ez a célod, írd le pontosan, mit is akarsz. Azt szeretnéd, hogy a Lista lapon egyenként beállítod a (20) szűrőt, és ezek a kézzel beállított kritériumok jelenjenek meg a Kritériumok!B1:B20 tartományában?

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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