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

• #7434 Delila_1 veterán Geby #7433

  Új Válasz 2010-06-25 12:43:12 #7434

  Ú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 Geby #7433 üzenetére

  Legegyszerűbb kimutatást készíteni az adataidból. A SOR-hoz azt az oszlopcímkét tedd, amelyik a 0001, 0002, stb adatokat tartalmazza, az ADAThoz pedig a másikat.
  
  Másik módszer, hogy egy oszlopban felsorolod az első oszlopban előforduló adatokat (legyen ez az új oszlop most az F). A G1 képlete (feltételezve, hogy a másik két oszlop az A és B):
  =SZUMHA(A:A;F1;B:B), ezt kell lemásolnod az F oszlop adatai mellé.

• #5416 Cuci3 tag Geby #5415

  Új Válasz 2009-09-30 11:03:05 #5416

  Ú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 Geby #5415 üzenetére

  Na, félig megvagyok, én rontottam el a kódot. A már helyesebb verzió:

  Private Sub Workbook_BeforePrint(Cancel As Boolean)
  
  If ActiveSheet.Name = "Munka1" Then
  ActiveSheet.Range("A3") = ActiveSheet.Range("A3") + 1
  End If
  
  End Sub

  Viszont azt még nem tudom megoldani, hogy nyomtatásnál "Mégse" gombra kattintva ne növelje az A3 értékét. De próbálkozok.

• #5413 Cuci3 tag Geby #5412

  Új Válasz 2009-09-29 17:32:17 #5413

  Ú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 Geby #5412 üzenetére

  Makró lesz rá a megoldás. Nyomtatás előtt egy adott mező értékét növeli meg eggyel a következő szubrutin:

  Private Sub Workbook_BeforePrint(Cancel As Boolean)
  
  ActiveWindow.SelectedSheets.PrintOut Copies:=1
  
  If ActiveSheet.Name = "Munka1" Then
  ActiveSheet.Range("A3") = ActiveSheet.Range("A3") + 1
  End If
  
  End Sub

  Ezt a VB szerkesztőben a "This Workbook" modulba kellene bemásolnod. A "Munka1" helyére annak a munkalapnak a nevét írd, amit nyomtatsz, az A3 helyére meg a szóban forgó cellát.

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