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

• #49830 Fferi50 Topikgazda tamas1985 #49828

  Új Válasz 2022-10-27 13:17:21 #49830

  Ú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

  

  Fferi50

  Topikgazda

  válasz tamas1985 #49828 üzenetére

  Szia!
  Ezt a makrót másold be a ThisWorkbook kódlapjára, ahogyan korábban mutattam:

  Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim pld As Variant, xu As Long
Application.EnableEvents = False
Application.ScreenUpdating = False
pld = Application.InputBox("Hány példányt szeretnél nyomtatni?", "Nyomtatás", 1, Type:=1)
If pld > 0 Then
For xu = 1 To pld
Range("A2").Value = 1 + (xu - 1) * 28: Range("A3") = Range("A2").Value + 1
Range("A2:A3").AutoFill Destination:=Range("A2:A29"), Type:=xlFillDefault
ActiveSheet.PrintOut copies:=1, from:=1, to:=1
Next
Range("A2:A29").Formula = "=Row()-1": Range("A2:A29").Value = Range("A2:A29").Value
Else
Cancel = True
End If
Cancel = True
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
  Használati javaslat:
  A Fájl - nyomtatás panelen a példányszám 1.
  A makró megkérdezi, hány példányt szeretnél nyomtatni. Ha meggondoltad magad, akkor 0 beírásával nem indul el a nyomtatás.
  Az A2:A29 tartományba kerülnek a sorszámok. Természetesen tovább is sorszámoztathatod, akkor az A29 helyett írd be azt az utolsó cellát, ameddig a sorszám tartson, pld. A31 esetén 30-ig tart a sorszám.
  Ha nem 28 sorszám szerepel egy oldalon, akkor az 1 + (xu - 1) * 28 kifejezésben a 28 helyett írd a sorszámok darabszámát, a példában ide 30 kerül.
  A nyomtatás végén a munkalapon ismét az 1-től kezdődő sorszámok lesznek.
  FIGYELEM: A nyomtatás elindításakor MINDIG 1-től kezdődnek a sorszámok, akármennyit is látsz vagy írsz a munkalapra!!!
  Remélem érthető és használható számodra. Bármilyen kérdésed lenne még, kérlek írj bátran.
  Üdv.

• #49829 lappy őstag tamas1985 #49828

  Új Válasz 2022-10-27 12:40:49 #49829

  Ú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

  

  lappy

  őstag

  válasz tamas1985 #49828 üzenetére

  az Ffrei50 által megadott makrót használva
  pl A1 sorozatszám
  a többi általad kért sorszám pedig ehhez a cellához van hozzárendelve azaz 1 példány esetén 1x 2. példány esetén 2x és így tovább
  az A1 cella fehér színű legyen és nem fog látszani nyomtatáskor sem

• #49819 Fferi50 Topikgazda tamas1985 #49816

  Új Válasz 2022-10-26 15:02:31 #49819

  Ú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

  

  Fferi50

  Topikgazda

  válasz tamas1985 #49816 üzenetére

  Szia!
  Még egy kis pontosítás kérése:
  "a sorszámozás folyatódjon a 30 oldalon keresztül, ne keljen 30 oldalon keresztül crtl+c crtl+v"
  Tehát minden oldalon 1-el kezdődik a sorszám és tart ameddig tart vagy a második oldalon 29-től folytatódik és így tovább (bár ekkor nem értem a Ctr+c, Ctrl+v-t)?
  Az előbbi esetben minden nyomtatás ugyanazt a sorszámozást fogja mutatni.
  Utóbbi esetben makró szükséges. A nyomtatás előtti eseménykezelő makrót kell átírni.
  De jó lenne pontosan tudni a feladatot.
  Üdv.

• #49817 lappy őstag tamas1985 #49816

  Új Válasz 2022-10-26 12:34:20 #49817

  Ú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

  

  lappy

  őstag

  válasz tamas1985 #49816 üzenetére

  Akkor ezt tudom neked ajánlani

• #49814 Fferi50 Topikgazda tamas1985 #49813

  Új Válasz 2022-10-26 10:31:30 #49814

  Ú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

  

  Fferi50

  Topikgazda

  válasz tamas1985 #49813 üzenetére

  Szia!
  Egyenlőre így sem világos. Mutatnál egy mintapéldát, hogyan gondolod. Hol van az egyoszlopnyi sorszám? Honnan kell kezdődni a sorszámnak? Ha ismét nyomtatsz újabb 5 példányt, akkor milyen sorszámra van szükséged?
  Hány oldalas a táblázat?
  Üdv.

• #49812 Fferi50 Topikgazda tamas1985 #49810

  Új Válasz 2022-10-26 08:03:17 #49812

  Ú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

  

  Fferi50

  Topikgazda

  válasz tamas1985 #49810 üzenetére

  Szia!
  Eseménykezelő makróval oldható meg. A táblázat egy celláját "kinevezed" sorszámnak.
  A Munkafüzet Before_Print eseménykezelőjében a cellában levő számot növeled eggyel.
  VBA nézet (Alt F11) Thisworkbook kódlapjára beírod ezt:
  Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("A1").Value = Range("A1").Value + 1
End Sub
  
  Így minden nyomtatás előtt növeli a sorszámot.
  Az is megoldható, hogy a nyomtatás előtt megkérdezze, valóban nyomtatni szeretne-e.
  Private Sub Workbook_BeforePrint(Cancel As Boolean)
If MsgBox("Valóban nyomtatni szeretne?", vbQuestion + vbYesNo) = vbYes Then
   Range("A1").Value = Range("A1").Value + 1
Else
   Cancel = True
End If
End Sub
  A fájlt makróbarátként kell menteni.
  Üdv.

• #49811 lappy őstag tamas1985 #49810

  Új Válasz 2022-10-26 07:53:45 #49811

  Ú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

  

  lappy

  őstag

  válasz tamas1985 #49810 üzenetére

  Ha jol értem akkor a táblázat kitöltése utan kinyomtatjak majd ujra kitöltésre kerül de ekkor a sorszám már 2 lesz majd újra kitőlt nyomtat stb.?

• #18775 Delila_1 veterán tamas1985 #18774

  Új Válasz 2013-08-15 08:11:15 #18775

  Ú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 tamas1985 #18774 üzenetére

  Azt nem tudom, de ha kipróbálod, kiderül.

• #18773 Delila_1 veterán tamas1985 #18772

  Új Válasz 2013-08-15 07:50:46 #18773

  Ú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 tamas1985 #18772 üzenetére

  Teljes mértékben függ a nyelvtől. A függvények nevét is át kell írnod, és a pontosvesszők helyett vesszőket írj az angol verzióban.

• #18760 Delila_1 veterán tamas1985 #18756

  Új Válasz 2013-08-14 19:59:26 #18760

  Ú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 tamas1985 #18756 üzenetére

  Előfordulhat, hogy az osztásjel nem mindig 2 számjegy után lesz, ezért érdemes 2 képletet megváltoztatni.

  C8-> =BAL(B8;SZÖVEG.KERES(":";B8)-1)*1
  D8-> =JOBB(B8;HOSSZ(B8)-SZÖVEG.KERES(":";B8))*1

• #18759 Delila_1 veterán tamas1985 #18756

  Új Válasz 2013-08-14 19:51:24 #18759

  Ú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 tamas1985 #18756 üzenetére

  Képletek:

  C8 -> =BAL(B8;2)*1
  D8-> =JOBB(B8;HOSSZ(B8)-3)*1
  E8-> =GCD(C8:D8) Legnagyobb közös osztó
  F8-> =C8/E8&":"&D8/E8

  Az 1-gyel való szorzás azért kell, mert egy számjegyekből álló szöveg bal-, ill. jobb oldala szintén szöveg, amivel nem lehet számolni. A felszorzás számmá alakítja a két felet.
  Biztosan elírás a legkisebb közös osztó, nyilván legnagyobbat akartál írni.

• #18758 Pityke78 őstag tamas1985 #18757

  Új Válasz 2013-08-14 19:39:19 #18758

  Ú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

  

  Pityke78

  őstag

  válasz tamas1985 #18757 üzenetére

  PrintScreen-el nem lesz a legjobb minőség a pdf-et meg utána nehezen tudom kezelni, ha be akarom valahova illeszteni, ezért szeretném valami jó minőségű képformátumba menteni.

• #18743 Delila_1 veterán tamas1985 #18742

  Új Válasz 2013-08-14 10:59:43 #18743

  Ú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 tamas1985 #18742 üzenetére

  Úgy gondoltam, hogy az összeg, plusz a 2,5% értékre van szükséged, de mint kiderült, csakis a kamat kell neked.

• #18741 Delila_1 veterán tamas1985 #18740

  Új Válasz 2013-08-14 10:29:47 #18741

  Ú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 tamas1985 #18740 üzenetére

  A D oszlop képlete szükségtelen. Helyette a D66 cellába írd be a =HA(C66>30000;C66*(1+$E$78);20) képletet, és ezt másold le az utolsó adatodig.

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