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

• #21909 Delila_1 veterán csenor #21907

  Új Válasz 2014-06-06 07:26:30 #21909

  Ú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 csenor #21907 üzenetére

  A makró, amit egy gombhoz rendelhetsz, az Eredmények lap X oszlopába beírja a csapatok nevét, az Y-ba a pontszámot, mindezt csökkenő sorrendben.

  Sub Pont()
  Dim sor As Long, usor As Long
  
  Sheets("Eredmények").Select
  Columns(13).Copy
  Range("X1").PasteSpecial xlPasteValues
  Columns(21).Copy
  Range("Y1").PasteSpecial xlPasteValues
  
  usor = Range("X" & Rows.Count).End(xlUp).Row
  For sor = usor To 2 Step -1
  If InStr(Cells(sor, "X"), "csoport") Or Cells(sor, "X") = "" Then
  Range("X" & sor & ":Y" & sor).Delete
  End If
  Next
  
  'Rendezés
  usor = Range("X" & Rows.Count).End(xlUp).Row
  
  Columns("X:Y").Select
  ActiveWorkbook.Worksheets("Eredmények").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("Eredmények").Sort.SortFields.Add Key:=Range( _
  "Y1:Y" & usor), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
  xlSortNormal
  With ActiveWorkbook.Worksheets("Eredmények").Sort
  .SetRange Range("X1:Y" & usor)
  .Header = xlGuess
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
  End With
  
  Range("X1:Y1").Insert Shift:=xlDown
  Range("X1") = "Csapat": Range("Y1") = "Pontszám"
  End Sub

• #21903 Delila_1 veterán csenor #21902

  Új Válasz 2014-06-05 16:51:29 #21903

  Ú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 csenor #21902 üzenetére

  Két dolgot tehetsz. Vagy vársz, míg ide téved egy távolbalátó, aki kitalálja az adataid elrendezését és a hivatkozásaidat, vagy kiteszed egy elérhető helyre a fájlt.

• #21899 Delila_1 veterán csenor #21898

  Új Válasz 2014-06-05 14:52:45 #21899

  Ú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 csenor #21898 üzenetére

  A képletek nem a saját sorukban lévő cellákra hivatkoznak?

• #21897 Delila_1 veterán csenor #21885

  Új Válasz 2014-06-05 14:41:02 #21897

  Ú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 csenor #21885 üzenetére

  Szia!

  Ehhez csupán rá kell kattintanod a sorbarendezés ikonra. Előbb állj be abba az oszlopba, amelyik szerint rendezni akarod a tartományodat. NEM KELL KIJELÖLNI az oszlopot, csak benne állj.

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