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

• #18281 Delila_1 veterán marchello1 #18278

  Új Válasz 2013-06-13 17:42:36 #18281

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

  Más elrendezést javasolok, amivel 1 rekordba kerülnek az összetartozó adatok, és a cellák összevonása is elkerülhető.
  

  A makró:

  Sub helyszinek()
  Dim sor%, sor1%
  
  sor% = 2: sor1% = 2
  Do While Cells(sor%, "A") <> ""
  If Application.WorksheetFunction.CountA(Range("B" & sor% & ":C" & sor%)) = 2 Then
  Cells(sor1%, "I") = Cells(sor%, "A")
  Cells(sor1%, "J") = Cells(sor%, "B")
  Cells(sor1%, "K") = Cells(sor%, "C")
  sor1% = sor1% + 1
  End If
  sor% = sor% + 1
  Loop
  End Sub

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