Telefonszámunk: 1-472-0679

Hozzászólások

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • 2020-10-16-10:28 Hozzászólás: [Resolved] lapszámok #7780
    Ammoudara
    Felhasználó

      ui:

      Ha azt szeretnéd, hogy ne 1, 2, 3… legyen a lapszám, hanem 01, 02, 03….. akkor:

      Range(„F7”) = „Példányszám: ” & Format(s, „##,00”) & „.”

      2020-10-16-09:44 Hozzászólás: [Resolved] lapszámok #7779
      Ammoudara
      Felhasználó

        Ezt az üzenetet kaptam a csatolmányra:

        Teszt.xlsm: Elnézést, ennek a fájltípusnak a használata – biztonsági okból – nem engedélyezett.

        Ha megadod az ímél címed, szívesen elküldöm.

        2020-10-16-09:39 Hozzászólás: [Resolved] lapszámok #7778
        Ammoudara
        Felhasználó

          Szia Volusia!

          Makróval egyszerűen meg lehet csinálni:

          Sub Makró1()
          ‘
          ‘ Makró1 Makró
          ‘
          ‘ Billentyűparancs: Ctrl+i
          ‘

          Dim i, s
          Dim peldany

          Range(„F7”).Delete

          i = „Hány példányt szeretnénk nyomtatni?” & Chr(13) & Chr(13) & „”
          peldany = InputBox(i)
          If peldany = „” Then End
          If peldany <> IsNumeric(peldany) Then End
          peldany = Format(Abs(peldany), „#,##0”)

          For s = 1 To peldany
          Range(„F7”) = „Példányszám: ” & s & „.”
          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
          Next s

          Range(„F7”).Delete

          End Sub

        • Szerző
          Bejegyzés
        3 bejegyzés megtekintése - 1-3 / 3