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

• #53998 Fferi50 Topikgazda Win-T #53995

  Új Válasz 2025-01-30 22:41:32 #53998

  Ú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

  

  Fferi50

  Topikgazda

  válasz Win-T #53995 üzenetére

  Szia!
  Közben elkészült a makró.
  Ezt másold be az adatokat tartalmazó munkalapod kódlapjára, a következők szerint:
  A munkalap fülön jobb egérgomb - Kód megjelenítése - a General fülbe másold be.
  Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.ListObjects(1).DataBodyRange) Is Nothing Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
egyedidb
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Sub egyedidb()
Dim rrange As Range, frange As Range, i As Integer
Set rrange = ActiveSheet.ListObjects(1).DataBodyRange
Set frange = Cells(1, Munka1.ListObjects(1).Range.Columns.Count + 3)
For i = 1 To rrange.Columns.Count
    If i = 1 Then
        rrange.Columns(i).Copy frange
    Else
        rrange.Columns(i).Copy frange.End(xlDown).Offset(1, 0)
    End If
Next
Range(frange, frange.End(xlDown)).RemoveDuplicates 1, xlNo
frange.offset(0,-1).Value = frange.End(xlDown).Row
Range(frange, frange.Offset(rrange.Cells.Count, 0)).Clear
End Sub
  Az első makró eseménykezelésre szolgál, azt nézi, hogy a táblázatodban van-e a változás. Ha igen, akkor megszámolja az egyedi értékeket, ha nem, akkor nem történik semmi.
  A második makró (egyedidb) számol ténylegesen: A táblázattól jobbra a 3. oszlopba kigyűjti az értékeket egymás alá és utána a jobbra 2. cellába beírja az eredményt. A számolásokat nem fogod látni.
  FONTOS! Ha a táblázatot lefelé bővíted, azt is beszámolja a makró. Az egyes oszlopokba nem szabad üres cellákat hagyni, akkor tudja beszámolni.
  A munkafüzetet makróbarátként kell mentened és a makrókat engedélyezned kell a beállítások - biztonság fülön.
  Remélem sikerül, ha gondod lenne, írj bátran.
  Üdv.

• #53996 Fferi50 Topikgazda Win-T #53995

  Új Válasz 2025-01-30 21:45:48 #53996

  Ú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

  

  Fferi50

  Topikgazda

  válasz Win-T #53995 üzenetére

  Szia!
  Hát ez egyenlőre szívás... nálam is.
  Megjegyezném, hogy én szabad szemmel úgy számoltam, hogy 18 egyedi gyümölcsnév van a mintádban.
  Tesztelem a makrót.
  Üdv.

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