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

• #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