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

• #27196 Delila_1 veterán umek7 #27195

  Új Válasz 2015-05-31 15:19:33 #27196

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

  Tedd ki a fájlt elérhető helyre, csak előbb a nem publikus adatok helyére írj mást.

• #27194 Delila_1 veterán umek7 #27189

  Új Válasz 2015-05-31 13:56:24 #27194

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

  "...Delila_1 topikgazdának"

  Múltkor említettem, hogy a választ a Válasz gomb segítségével kellene megadnod, úgy sokkal könnyebben megtaláltam volna most az eredeti kérdésedet.

  Módosítottam a makrót.

  Sub HolTalalhato()
  Dim sorB As Long, sorC As Long, usor As Integer, uoszlop As Integer
  
  usor = Sheets(1).Range("B" & Rows.Count).End(xlUp).Row
  sorB = 2
  For sorB = 2 To usor
  For sorC = 2 To usor
  If Cells(sorC, 3) = Cells(sorB, 2) Then
  If Cells(sorB, 4) = "" Then
  Cells(sorB, 4) = Cells(sorC, 1)
  Else
  Cells(sorB, 4) = Cells(sorB, 4) & "–" & Cells(sorC, 1)
  End If
  End If
  Next
  Next
  End Sub

• #26868 Delila_1 veterán umek7 #26867

  Új Válasz 2015-05-11 06:33:01 #26868

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

  Válasznál nem az Új, hanem a Válasz gombot kell használnod a hsz megírásához.

• #26866 Delila_1 veterán umek7 #26864

  Új Válasz 2015-05-10 16:21:52 #26866

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

  Kicsit módosítottam az előző makrón a szerkesztési időn belül.

• #26865 Delila_1 veterán umek7 #26864

  Új Válasz 2015-05-10 16:06:41 #26865

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

  Próbáld meg ezzel, ahol az első címsor.

  Sub HolTalalhato()
  Dim sorB As Long, sorC As Long, usor As Integer, uoszlop As Integer
  
  usor = Sheets(1).Range("C" & Rows.Count).End(xlUp).Row
  sorB = 2
  Do While Cells(sorB, 2) > ""
  For sorC = 2 To usor
  If Cells(sorC, 3) = Cells(sorB, 2) Then
  If Cells(sorB, 4) = "" Then
  Cells(sorB, 4) = Cells(sorC, 1)
  Else
  Cells(sorB, 4) = Cells(sorB, 4) & "–" & Cells(sorC, 1)
  End If
  End If
  Next
  sorB = sorB + 1
  Loop
  End Sub

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

• #26851 Fferi50 Topikgazda umek7 #26850

  Új Válasz 2015-05-09 18:05:47 #26851

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

  Szia!

  Ebben az esetben szerintem kellenek segédszámítások.

  Ha feltételezzük, hogy az első sor fejléc, az adatok az A:C oszlopban vannak, akkor az E2 cellába írd be ezt a képletet:
  =TRANSZPONÁLÁS(HA($B2=$C$2:$C$50;SOR($C$2:$C$50)+1;"") )
  tömbképletként fogadd el (Ctrl+shift+enter)
  majd ezt a képletet húzd el a sorban (kijelölöd az 50 mellette levő cellát, F2-vel beleállsz és Ctrl+Shift+Enter)

  Ezután a D2 cellába összehozhatod az eredményt (=F2 & "," & G2 & "," ...stb.)

  Remélem azopi tud valami trükköt, hogy a tömbképlet eredménye egy cellába kerülhessen egyenesen

  Üdv.
  Ez 50 sorra működik, de természetesen az 50 helyett többet is írhatsz, akkor több oszlopra van szükséged.

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