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

• #5030 wjani tag core1113 #5029

  Új Válasz 2009-06-10 08:45:31 #5030

  Ú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

  

  wjani

  tag

  válasz core1113 #5029 üzenetére

  Szia!

  Ezeket, gondolom egy gombnyomásra akarod indítani, ugye?

  Az elsőnél, még megoldható valami hivatkozás képletekkel, de a törlés, szerintem már nem megy, így lehetséges, hogy inkább az egészet egy makróval kell megcsinálni.
  A másodiknál az a kérdés, hogy neked annyi munkalap fül lesz, amennyi irányítószám van, vagy csoportosítod. Ezt pedig csak makróval lehetne megoldani.

  Üdv
  Wjani

  CoViA Online könyvkereskedés,

• #5031 Cuci3 tag core1113 #5029

  Új Válasz 2009-06-10 09:44:30 #5031

  Ú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

  

  Cuci3

  tag

  válasz core1113 #5029 üzenetére

  A másodikra tudok makrót küldeni/beszúrni.
  Csináltam nemrég egy ilyet, ahol egy makró egy munkafüzetben ömlesztett adatokat egy másik munkafüzetbe szétszedi végrehajtók nevei alapján külön munkalapokra.
  Kérdés:
  1. Milyen sorrend legyen az irányítószámokra? Tehát ha Excel sorbarendezővel sorba rakom, akkor az elég-e?
  2. Ugyanabba a munkafüzetbe kell szétszedni, vagy külön munkafüzetbe?
  3. Gondolom az irányítószámnak meg kellene jelnnie a munkalap nevénél. Kell valami buherálás az irányítószámokkal? Pl nálam a neveknél kellett, mivel egy munkalap neve max 31 karakter hosszú lehet.

  De ezt csak délután tudom küldeni, mivel délelőtt szaladgálok két iroda között.

  Ja és persze az első is megoldható makróval, de meg lehet úgy is oldani, hogy külön munkalapra beképletezed, majd onnan kimásolod.

  [ Szerkesztve ]

• #5042 Delila_1 Topikgazda core1113 #5029

  Új Válasz 2009-06-10 18:51:45 #5042

  Ú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

  Topikgazda

  válasz core1113 #5029 üzenetére

  Írtam egy makrós megoldást a 2. kérdésedre.
  A munka1 kiinduló lapon az A oszlopban vannak az irányítószámok, B oszlopban a megyék nevei, a többiben bármilyen adat.
  A többi lap neve pontosan egyezzen meg a B oszlop adataival.
  Minden lapon van címsor.
  A "Sheets(Array(" kezdetű sorban írd át a megyék nevét.

  Sub Irszám()
  
  Application.ScreenUpdating = False 'Képernyő frissítés tiltása
  
  'Előző adatok törlése a megyék lapjain.
  Sheets(Array("Pest", "Borsod", "Hajdú", "Zala", "Szolnok")).Select
  Rows("2:6000").Select
  Selection.Delete Shift:=xlUp
  Range("A2").Select
  
  'Sorok másolása a lapokra
  Sheets("Munka1").Select
  For sor = 2 To ActiveSheet.UsedRange.Rows.Count
  megye = Cells(sor, 2)
  Rows(sor & ":" & sor).Copy
  Sheets(megye).Select
  Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select
  ActiveSheet.Paste
  Sheets("Munka1").Select
  Next
  Sheets("Munka1").Select: Range("A2").Select
  Application.CutCopyMode = False
  
  Application.ScreenUpdating = True 'Képernyő frissítés engedélyezése
  End Sub

  [ Szerkesztve ]

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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