Hirdetés
- Milyen billentyűzetet vegyek?
- Apple MacBook
- Saját fejlesztésű notebookkal jelentkezett a VGA-iról ismert Moore Threads
- OLED monitor topic
- TCL LCD és LED TV-k
- Vezetékes FEJhallgatók
- Mini PC
- AMD vs. INTEL vs. NVIDIA
- Máris elfogytak az idei évre szánt HDD-k a Western Digitalnál
- Milyen egeret válasszak?
-
PROHARDVER!
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
-
bteebi
veterán
válasz
Carasc0
#23567
üzenetére
1. Gagyi és jelen esetben valószínűleg nem túl gyors, de egyszerű megoldás, ha lehúzod a képletet, és a megfelelő részt lecseréled Ctrl+H-val (mondjuk a C-t D-re, de ha ez soronként változik, akkor nem jó). Feladattól függően elég macerás is lehet (itt most valószínűleg túl körülményes lenne).
2. Makróval. Kiindulásnak valami ilyesmi jó lehet, ezt kell kicsit átírnod:Dim i As Integer
For i = 1 To 40
Cells(i, 2).Value = WorksheetFunction.If(Sheets("Nyilvántartás").Range("C2") = Range("CX1"), WorksheetFunction.If(Sheets("Nyilvántartás").Range("D2") >= Range("K2"), WorksheetFunction.If(Sheets("Nyilvántartás").Range("D2") <= Range("K8"), 1, 0), 0), 0)
Next iHa a Range("hivatkozás") helyett mindenhol a Cells(sor, oszlop)-ot használod, akkor azt úgy paraméterezed ciklusban, ahogy csak szeretnéd, és akkor könnyen megvan az egész. A fenti példában a B1-es cellába (ami a Cells(1,2) cella) írt képlet van.
Új hozzászólás Aktív témák
- Milyen billentyűzetet vegyek?
- OnePlus 15 - van plusz energia
- Apple MacBook
- Autós topik
- Konzolokról KULTURÁLT módon
- Lakáshitel, lakásvásárlás
- Saját fejlesztésű notebookkal jelentkezett a VGA-iról ismert Moore Threads
- Samsung Gear S3 - második kör
- OLED monitor topic
- Gitáros topic
- További aktív témák...
- Microsoft és egyéb dobozos retro szoftverek
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- The Elder Scrolls Online Imperial Collector s Edition
- BESZÁMÍTÁS! ASRock H510M i5 11400F 16GB DDR4 512GB SSD GTX 1660 Super 6GB Kolink Rocket Heavy 450W
- ASUS ROG Destrier Ergo SL400 gamer szék
- iPhone 14 256GB Midnight -1 ÉV GARANCIA - Kártyafüggetlen, MS4422
- HIBÁTLAN iPhone 15 Pro Max 256GB Blue Titanium -1 ÉV GARANCIA -Kártyafüggetlen
- GYÖNYÖRŰ iPhone 14 Pro 128GB Space Black-1 ÉV GARANCIA - Kártyafüggetlen, MS3781
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
