- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Poco F3 - a mindenes, de nem mindenkinek
- Honor Magic V5 - méret a kamera mögött
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Yettel topik
- Samsung Galaxy A52s 5G - jó S-tehetség
- Samsung Galaxy Watch6 Classic - tekerd!
- 165 Hz-es panelt tesztel a OnePlus
- Szuperkijelzővel készül a Huawei Mate 80 RS
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
Hirdetés
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
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é. -
Cuci3
tag
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 SubViszont 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.
-
Cuci3
tag
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 SubEzt 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
- Melyik hordozható audiolejátszót (DAP, MP3, stb.) vegyem?
- Videó stream letöltése
- Autós topik
- Xbox Series X|S
- Battlefield 6
- Budapest és környéke adok-veszek-beszélgetek
- gban: Ingyen kellene, de tegnapra
- Nintendo Switch 2
- Milyen billentyűzetet vegyek?
- The Division 2 (PC, XO, PS4)
- További aktív témák...
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Vírusirtó, Antivirus, VPN kulcsok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- HIBÁTLAN iPhone 13 mini 128GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3050, 96% Akkumulátor
- Lenovo Thinkpad Tablet X1 Gen 3
- HIBÁTLAN iPhone 12 mini 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2036
- Eladó arany színű Apple iphone 7 128GB / 12 hó jótállással
- HIBÁTLAN iPhone 14 256GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3092, 98% Akkumulátor
Állásajánlatok
Cég: FOTC
Város: Budapest