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

• #52395 Delila_1 veterán andreas49 #52394

  Új Válasz 2024-04-02 11:30:02 #52395

  Ú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 andreas49 #52394 üzenetére

  Megnyitod az első nagy fájlt. Felveszel egy változót a füzet nevével.
  Rendezed a tartományt az évszám szerint. Evszam változót veszel fel. Az első évszám az oszlopban.
  Kijelölöd a másolandó tartományt – első sor=Match(Evszam, columns(1),0) , utolsó sor= Match(Evszam, columns(1),1).
  Innen lesz az ismétlés
  Megnyitod a füzetet, ahova másolni akarod külön lapokra az évszám szerinti adatokat. Ellenőrzöd, hogy van-e már Evszam nevű lap.
  Dim WS As Workbook, Evszam As String
  Evszam = "2024" ’az oszlopban lévő első évszám
  On Error Resume Next
  Set WS = Sheets(Evszam)
  If Err.Number = 9 Then
  Sheets.Add.Name = Evszam
  Else
  Sheets(Evszam).Select
  End If
  On Error GoTo 0
  Kikeresed az első üres sort, beilleszted a tartományt.
  Eddig
  Vissza az első nagy fájlba, megadod a következő évszámot – ennek a sora=range(„A” & Match(Evszam, columns(1),1)+1. Ezt az értéket adod meg új évszámként.

  Vajh' mennyire követhető ez?

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