Hirdetés

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

  • 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