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

• #20493 Lackó86 tag misa479 #20484

  Új Válasz 2014-02-13 13:27:01 #20493

  Ú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

  

  Lackó86

  tag

  válasz misa479 #20484 üzenetére

  =SZÁMÉRTÉK(CSERE(A1 ; 1 ; 1 ; ) ) Ezzel a képlettel nem bír az excelem (2010, magyar)

• #20488 Lackó86 tag misa479 #20484

  Új Válasz 2014-02-13 12:02:27 #20488

  Ú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

  

  Lackó86

  tag

  válasz misa479 #20484 üzenetére

  Ezt nem teljesen értem.

• #20482 Delila_1 veterán misa479 #20480

  Új Válasz 2014-02-13 11:06:11 #20482

  Ú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 misa479 #20480 üzenetére

  Ez a makró elintézi:

  Sub sortorol()
  Dim sor As Long, usor As Long
  usor = Range("B" & Rows.Count).End(xlUp).Row
  Range("B10:B" & usor).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
  End Sub

• #20375 Delila_1 veterán misa479 #20374

  Új Válasz 2014-02-08 17:27:15 #20375

  Ú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 misa479 #20374 üzenetére

  Szívesen, örülök, hogy bejött.

• #20372 Delila_1 veterán misa479 #20371

  Új Válasz 2014-02-08 15:31:20 #20372

  Ú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 misa479 #20371 üzenetére

  A makróban a csillagokkal megjelölt sorban írd át a Munka1-et a saját lapod nevére, ami az adatokat tartalmazza.

  Sub KulonLapra()
  Dim felso As Long, also As Long, nev As String
  Dim WF As WorksheetFunction, WS As Worksheet
  
  Set WF = Application.WorksheetFunction
  Set WS = Sheets("Munka1") '**************
  WS.Activate
  
  'Rendezés a B oszlop szerint
  Range("A1").Select
  Selection.CurrentRegion.Select
  Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  
  felso = 2
  Do While Cells(felso, 1) <> ""
  nev = Range("B" & felso)
  also = WF.Match(nev, Columns("B"), 1)
  Sheets.Add.Name = nev
  WS.Activate
  Rows(1).Copy Sheets(nev).Range("A1")
  Rows(also & ":" & felso).Copy Sheets(nev).Range("A2")
  felso = also + 1
  Loop
  End Sub

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