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

• martonx veterán

  #1645

  #1643 erich85T

  2012-02-21 21:09:07

  Új Válasz

  Ú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

  

  martonx

  veterán

  #1643 erich85T

  #1643 erich85T

  Sziasztok!

  Ismét egy makró kérdéssel fordulok hozzátok. Olyan programra lenne szükségem ami egy adott oszlop adatai alapján sorokat szúr be az azonos adatok után.

  Elvárás, hogy belehessen állítani, hogy melyik oszlop adatai szerint szúrja be a sorokat a táblázatba.

  pl.: legyen egy A, B és C oszlopból álló táblázatunk, ez

  A - B - C
  1 - a - 32
  2 - a - 43
  3 - a - 32
  4 - d - 12
  5 - d - 21
  6 - v - 45
  7 - v - 5
  8 - b - 333

  ebből a táblázatból ezt szeretném makróval kapni:

  A - B - C
  1 - a - 32
  2 - a - 43
  3 - a - 32

  4 - d - 12
  5 - d - 21

  6 - v - 45
  7 - v - 5

  8 - b - 333

  Valakinek erre van megoldás, programja?

  Köszönöm,

  Erik

  Public Sub sorolo()
  sor = 1
  While Cells(sor, 2) <> ""
  If Cells(sor, 2) <> Cells(sor + 1, 2) Then
  Rows(sor + 1 & ":" & sor + 1).Select
  Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  sor = sor + 1
  End If
  sor = sor + 1
  Wend
  End Sub

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