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

• #19949 Hauptmann veterán Delila_1 #19924

  Új Válasz 2014-01-03 18:29:00 #19949

  Ú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

  

  Hauptmann

  veterán

  válasz Delila_1 #19924 üzenetére

  Köszi, ez így most jó. Nem tudtam, hogy az egyel utána következő cella már nem tartozik a táblázathoz.

• #19922 Hauptmann veterán Delila_1 #19906

  Új Válasz 2014-01-02 23:14:36 #19922

  Ú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

  

  Hauptmann

  veterán

  válasz Delila_1 #19906 üzenetére

  Köszönöm.

  A Target.Column-t átírtam 5-re, mert az F oszlopba én nem írok semmit, az F2 cellában van a SUM függvény. Az F oszlopot hogy lehetne kihagyni a rendezésből? A SUM függvénynek fixen az F2-ben kellene maradnia

• #19903 Hauptmann veterán

  Új Válasz 2014-01-02 12:17:36 #19903

  Ú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

  

  Hauptmann

  veterán

  Sziasztok,

  Van egy excel táblám, amit szeretnék automatikusan sorba rendezni, hogy az adatok beírása után egyből megtörténjen a rendezés.
  .
  Így néznek ki az oszlopok:

  Név, Program, Fizetési mód, Fizetési dátum, Összeg, Összesen

  Név szerint kellene rendezni ABC szerint növekvő sorrendben, de a rendezésből ki kell hagyni az A1, B1, C1, D1, E1 cellákat, mert ezek az oszlopok nevei, illetve a teljes F sort (Összesen), mert ide egy SUM függvénnyel lesz az Összeg oszlop összeadva.

  Találtam rá egy makrót, ami alapvetően jó lenne, de ez belerendezi a fentieket is. Ez lenne az.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If (Target.Column = 1) Then
  uj = Target.Value
  ActiveSheet.Cells.Sort (Cells(1, 1))
  ActiveSheet.Cells.Find(uj).Activate
  End If
  End Sub

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