Hirdetés
-
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
-
oke
senior tag
Sziasztok!
Van az alábbi makróm:
Sub hozzarendeles()
Dim sor As Long
sor = Range("B" & Rows.Count).End(xlUp).Row
Range("e2").Select
Application.CutCopyMode = False
'Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],összerendelés!C[-4]:C[-3],2,0)"
Columns("e:e").EntireColumn.AutoFit
Selection.AutoFill Destination:=Range("e2:e" & sor)
End SubGyakorlatilag egy Fkeres, mely egy másik fülről veszi a hozzárendeléseket. Viszont több helyen nem talál egyezést, emiatt értelemszerűen "#HIÁNYZIK" kerül be az aktuális cellába. Van e arra lehetőség, hogy ha nem talál egyezést, akkor a "B" oszlop adott sorának értékét rakja be, ne HIÁNYZIK-ot ?
Itt egy mintafájl:
[link]
Új hozzászólás Aktív témák
- VGA kibeszélő offtopik
- Forza sorozat (Horizon/Motorsport)
- Apple asztali gépek
- Honor Magic6 Pro - kör közepén számok
- Háztartási gépek
- AMD vs. INTEL vs. NVIDIA
- PlayerUnknown’s Battlegrounds
- Eredeti játékok OFF topik
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Soundbar, soundplate, hangprojektor
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Eladó Realme gt neo 2 5g Dobozában tokkal
- Samsung Galaxy Z Flip 5 512GB,Újszerű,Adatkabel,12 hónap garanciával
- LG 32GS95UX - 32" OLED / UHD 4K / 240Hz - 480Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
- iPhone 17 256 GB Sage - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok !!
- BESZÁMÍTÁS! MSI B650 R7 7800X3D 32GB DDR5 2TB SSD RTX 5070Ti 16GB Asus ROG Strix Helios GX601 750W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Fferi50

