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

• #26854 Delila_1 veterán umek7 #26847

  Új Válasz 2015-05-10 06:47:37 #26854

  Ú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

  veterán

  válasz umek7 #26847 üzenetére

  Nem írtad, hogy feltétlenül képletekkel, függvényekkel akarod előcsalni az eredményt. Egy rövid makróval könnyen megoldható.

  Sub HolTalalhato()
  Dim sorA As Long, sorB As Long, usor As Integer, uoszlop As Integer
  
  usor = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
  sorA = 2
  Do While Cells(sorA, 1) > ""
  For sorB = 1 To usor
  If Cells(sorB, 2) = Cells(sorA, 1) Then
  uoszlop = Cells(sorA, Columns.Count).End(xlToLeft).Column + 1
  Cells(sorA, uoszlop) = sorB
  End If
  Next
  sorA = sorA + 1
  Loop
  End Sub

• #26849 azopi74 addikt umek7 #26847

  Új Válasz 2015-05-09 06:29:27 #26849

  Ú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

  

  azopi74

  addikt

  válasz umek7 #26847 üzenetére

  "Ha több is van, pl. folytassuk a listát ezerig, akkor írjon több értéket is. "

  Ezt hogy képzelted el pontosan?

• #26848 Fferi50 Topikgazda umek7 #26847

  Új Válasz 2015-05-08 21:26:39 #26848

  Ú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 umek7 #26847 üzenetére

  Szia!

  Ha csak egy előfordulás lehet azon2 oszlopban, akkor a Hol.van (Match) függvény használható. Ha többször is előfordulhat, az egy kicsit zűrösebb szerintem képlettel.

  Üdv.

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