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

• #15385 Delila_1 veterán Sziszmisz #15384

  Új Válasz 2012-11-04 12:57:42 #15385

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

  Ezért érdemes azonnal az adatok pontos helyét megadni. Az eredeti kérdésben 4 oszlop szerepelt, ahol a szétválasztandó színek a D oszlopban voltak. Így most kétszer kellett megírni a makrót.

  Sub Szetvalaszt()
  Dim sor%, szin$, vesszo%
  sor% = 2
  Do While Cells(sor%, 1) > ""
  szin$ = Cells(sor%, 13)
  vesszo = InStr(szin$, ",")
  If vesszo Then
  Range("A" & sor% + 1).EntireRow.Insert
  Range(Cells(sor%, 1), Cells(sor%, 12)).Copy Cells(sor% + 1, 1)
  Range(Cells(sor%, 14), Cells(sor%, 16)).Copy Cells(sor% + 1, 14)
  
  Cells(sor%, 13) = Left(szin$, vesszo - 1)
  Cells(sor% + 1, 13) = Right(szin$, Len(szin$) - vesszo - 1)
  End If
  sor% = sor% + 1
  Loop
  End Sub

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