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

• #28066 Delila_1 veterán gyu84 #28065

  Új Válasz 2015-08-10 19:38:25 #28066

  Ú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 gyu84 #28065 üzenetére

  Makróval megoldható.

  Sub Megis_makro()
  Dim usor As Long, oszlop As Integer, uoszlop As Integer
  Dim ter As Range, CV As Range
  
  Sheets("Munka1").Activate
  usor = ActiveSheet.UsedRange.Rows.Count '*
  uoszlop = ActiveSheet.UsedRange.Columns.Count '**
  Set ter = ActiveSheet.Range(Cells(2, "A"), Cells(usor, uoszlop)) '***
  oszlop = 1
  For Each CV In ter
  If CV > "" Then
  Sheets("Munka2").Cells(CV.Row, oszlop) = CV
  oszlop = oszlop + 1
  End If
  If CV.Column = uoszlop Then oszlop = 1
  Next
  End Sub

  Három sor végére csillagokat tettem. Ha a Munka1 lapon (ahol az eredeti adatok vannak) meghatározott területről kell kigyűjtened a Munka2 lapra az adatokat, az 1 és 2 csillagos sort töröld ki, a 3 csillagos helyett pedig ez legyen:

  Set ter =Range("A2:F5"), de persze az F5 helyére a saját területed jobb alsó cellájának a címe kerüljön.

  A Munka1 és Munka2 lapok nevét is írd át a saját lapjaid nevére.

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