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

• #28982 Delila_1 Topikgazda csadi0011 #28980

  Új Válasz 2015-10-12 08:24:17 #28982

  Ú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

  Topikgazda

  válasz csadi0011 #28980 üzenetére

  Néhány dolgot nem írtál meg. Az 1-es lapon hol van ez a bővülő sor? Ebbe a sorba billentyűzetről viszed be az adatokat, vagy képlet írja be az új értékeket? Hol legyen a szelektált sor?

  Írtam egy makrót, ahol a lap első sorában vannak a jelenlegi adatok (pillanatnyilag 56 db, az A1:BD1 tartományban), és ebből az egyedi értékeket a 2. sorba írja be abban a sorrendben, ahogy az elsőben előfordulnak. A makrót a lapodhoz kell rendelned.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim oszlop As Long, uoszlop As Long, CV As Object
  If Target.Row = 1 Then
  Application.EnableEvents = False
  oszlop = 1
  uoszlop = Range("A1").End(xlToRight).Column
  Rows(2) = ""
  For Each CV In Range(Cells(1, 1), Cells(1, uoszlop))
  If Application.WorksheetFunction.CountIf(Rows(2), CV) = 0 Then
  Cells(2, oszlop) = CV
  oszlop = oszlop + 1
  End If
  Next
  Application.EnableEvents = True
  End If
  End Sub

  Kérlek, olvasd el a Téma összefoglalót, és legközelebb az ott leírtaknak megfelelően tedd fel a kérdésedet!

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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