Ú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

• #18280 Delila_1 veterán marchello1 #18278

  Új Válasz 2013-06-13 17:31:10 #18280

  Ú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

  Tulajdonképpen azt szeretnéd, hogy a bal oldali táblázatból gyűjtse ki a jobb oldaliba azokat az adatokat, ahol mind a két helyszín megvan?

• #18279 Delila_1 veterán marchello1 #18278

  Új Válasz 2013-06-13 17:23:04 #18279

  Ú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

  if range("b4")="" then nextrow=nextrow+2

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