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

• #7346 Delila_1 veterán Fire/SOUL/CD #7344

  Új Válasz 2010-05-28 11:52:06 #7346

  Ú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 Fire/SOUL/CD #7344 üzenetére

  Úgy látszik, a napokban nem sokmindent lehet rámbízni.
  Ezesetben egyszerű a dolog.

  tusi74

  Feltételezem, hogy az egyes országok lapjai üresen ásítozva várják az adatok özönét, és a kiinduló lap neve Munka1, ahol az első sor a címsor.

  Sub Masol()
  Sheets("Munka1").Select
  sor = 2
  Do While Cells(sor, 10) <> ""
  lapnév = Cells(sor, 10)
  usor = Sheets(lapnév).Range("A6000").End(xlUp).Row + 1
  ActiveSheet.Range("A" & sor & ":I" & sor).Copy Destination:=Sheets(lapnév).Range("A" & usor)
  sor = sor + 1
  Loop
  End Sub

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