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

• #16699 Excelbarat tag Vladek83 #16697

  Új Válasz 2013-02-13 01:28:34 #16699

  Ú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

  

  Excelbarat

  tag

  válasz Vladek83 #16697 üzenetére

  Megszültem
  Forrás de még így is kemény meló volt
  Sub elohivo()
  'ha katt egy bombra akkor ez a makro indul
  Dim lastrow As Integer
  Dim rng As Range
  Dim r As Range
  Dim b As Integer
  
  lastrow = Cells(Rows.Count, 1).End(xlUp).Row
  Set rng = Munka1.Range(Munka1.Cells(2, 1), Munka1.Cells(lastrow, 1))
  Set rng = rng.SpecialCells(xlCellTypeVisible)
  'beállítottuk hogy az rng rangeben csak az láthatókat vegye figyelembe
  b = WorksheetFunction.CountA(rng)
  b = b - 1
  'létrehozzuk a listát
  ReDim rTab(0 To b, 1 To 2)
  i = 0
  For Each r In rng
  rTab(i, 1) = r.Offset(, 1)
  i = i + 1
  Next
  
  'az adatokat beimportáljuk
  UserForm1.ListBox1.List = rTab
  'megjelenítjük a useformot (ürlapot)
  UserForm1.Show
  End Sub

  Amelyik gombbal előhívod az Űrlapot abba a makróba illeszd be
  Ez azt feltételezi hogy az első sorban rovatfejek vannak és hogy a listában a "B" oszlop szűrt adatait szeretnéd látni
  A useform-ba ne állíts be rowsource-t mivel a makró vége az hogy "beimportálja" a szűrt adatokat!

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